Re: possible `with-current-buffer' bug

[Stephen Berman <stephen.berman@gmx.net>]

On Mon, 7 Feb 2011 01:30:30 +0800 Le Wang <l26wang@gmail.com> wrote:

> Hi,
>
>
> Could someone follow these steps and tell me if I'm going insane?
>  "compilation-disable-input" seems to be set by with-current-buffer.
>
> 1. emacs -Q
>
> 2. paste into scratch:
>
> (require 'compile)
>
> (defun foo ()
>   (interactive)
>   (compilation-start "blahasdfasdf" 'grep-mode))
>
> 3. M-x eval-current-buffer
> 4. M-x foo
> 5. (confirm "compilation-disable-input" is nil) C-h v
> compilation-disable-input
> 5. (instrument compilation-start and step through it) C-h f compilation-start
> C-x o <tab> <return> M-x edebug-defun M-x foo
>
> As soon as I get inside the first "(with-current-buffer () ... " form, the
> value of "compilation-disable-input" changes from nil to t.  I''ve seen this
> with NTEmacs 23.2.1 and CVS build 20110112.

See grep.el:

(define-compilation-mode grep-mode "Grep"
  "Sets `grep-last-buffer' and `compilation-window-height'."
  (setq grep-last-buffer (current-buffer))
  (set (make-local-variable 'tool-bar-map) grep-mode-tool-bar-map)
  (set (make-local-variable 'compilation-error-face)
       grep-hit-face)
  (set (make-local-variable 'compilation-error-regexp-alist)
       grep-regexp-alist)
  (set (make-local-variable 'compilation-process-setup-function)
       'grep-process-setup)
  (set (make-local-variable 'compilation-disable-input) t))
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Steve Berman