byte compiler messages

[Devon Sean McCullough]

$ cat byte-compile-bug.el
; emacs -nw -q --no-site-file byte-compile-bug.el -f eval-buffer -f x
; byte-compile-file bug indicates the wrong reference to free variable `a'

(defun byte-compile-bug ()
  (let ((a 0)
        (b (if (x)
               a)))
    ;; message erroneously fails to indicate above a
    ;; message erroneously indicates below a
    a))

(defun x ()
  (interactive)
  (let* ((buffer (get-buffer-create "*Compile-Log*"))
         (window (get-buffer-window buffer)))
    (set-window-point window (save-excursion (set-buffer buffer)
                                             (erase-buffer)
                                             (point-max)))
    (save-buffer)
    (byte-compile-file "byte-compile-bug.el" t))
  (next-error '(4)))

$ emacs -nw -q --no-site-file byte-compile-bug.el -f eval-buffer -f x

Then type Control-L to remove the welcome screen and see the error.

In GNU Emacs 21.3.50.1 (i386-unknown-freebsd4.10, X toolkit, Xaw3d scroll bars)
 of 2004-08-24 on grant.org
configured using `configure  'CC=gcc''

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: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  menu-bar-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t

Recent input:
C-l ESC x r e p o r t SPC e m SPC SPC RET

Recent messages:
Loading font-lock...done
Fontifying *Compile-Log*... (regexps.........................................)
Loading font-lock...done
Compiling /home1/devon/emacs/byte-compile-bug.el... (byte-compile-bug)
Loading byte-opt...done
Loading warnings...done
Compiling /home1/devon/emacs/byte-compile-bug.el...done
Wrote /home1/devon/emacs/byte-compile-bug.elc
Loading /home1/devon/emacs/byte-compile-bug.elc...done
Loading emacsbug...done