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.

Thanks.  

--
Le