bug#974: 23.0.60; byte-compilation problem

[Drew Adams]

1. byte-compile the attached file in Emacs 22.2.
 
2. emacs -Q for Emacs 23:
 
In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)
 of 2008-09-03 on LENNART-69DE564
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags -Ic:/g/include
-fno-crossjumping'
 
3. M-x load-file bug-desc-var.elc   ; byte-compiled version
 
4. C-h v features
 
You get the Wrong number of arguments error shown below. The attached
file has exactly the Emacs 23 CVS code for `describe-variable' from
2008-09-04, except for the interactive spec and doc string. The only
change was to add another optional argument, which is not referenced
anywhere in the body of the definition.
 
The attached file also includes the Emacs 23 macro definitions of
`with-selected-frame' and `with-help-window' (from the Emacs 23
version cited above), for byte-compilation.
 
I know we don't guarantee that you can byte-compile in Emacs 22 and
use the byte-compiled file in Emacs 23, but it is a shame that this
won't work in this case. I suspect there is a bug somewhere. If not,
I would at least like to understand what's happening.
 
Notice from the end of the backtrace message below that the original
`describe-variable' interactive spec is printed there, not the
interactive spec from the attached file. You can see this from (if
(equal val "") v (intern val)), which is missing from the code in the
attached file. Also, the backtrace includes
("c:/Emacs-23-2008-09-03/lisp/help-fns.elc" . 14258), which refers to
the original code for `describe-variable', not to the attached version.
That does not seem correct, to me.
 
 
 
In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)
 of 2008-09-03 on LENNART-69DE564
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags -Ic:/g/include
-fno-crossjumping'
 
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t
 
Major mode: Dired by name
 
Minor modes in effect:
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
 
Recent input:
<help-echo> M-x l o a d - f <return> b u g - d e s 
<tab> c <return> C-h v f e a t u r e s <return> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <help-menu> <send-emacs-bug
-report>
 
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Loading c:/drews-lisp-20/bug-desc-var.elc...done
call-interactively: Wrong number of arguments: #[(variable &optional buffer
frame) "=c6=c7 !=84... <binary stuff skipped>"
[file-name buffer frame variable locus val-start-pos nil buffer-live-p
frame-live-p selected-frame ...] 10 ("c:/Emacs-23-2008-09-03/lisp/help-fns.elc"
. 14258) (let ((v (variable-at-point)) (enable-recursive-minibuffers t) val)
(setq val (completing-read (if (symbolp v) (format "Describe variable (default
%s): " v) "Describe variable: ") obarray (quote (lambda (vv) (or (boundp vv)
(get vv (quote variable-documentation))))) t nil nil (if (symbolp v)
(symbol-name v)))) (list (if (equal val "") v (intern val))))], 4

bug-desc-var.el
Description: Binary data