🚀 go-pugleaf

In article <9110072035.AA08747@maltex> pwu@ai.mit.edu (Peng Wu) writes:

   Note that *scratch* is turned into read-only.
   The command TEST is defined as the following:

   (defun TEST ()
     (interactive)
     (set-buffer (get-buffer-create "*test*"))
     (make-local-variable 'buffer-read-only)
     (setq buffer-read-only t)
     (let ((buffer-read-only nil))
       (kill-buffer "*test*")))

   It seems that after the buffer *test* is killed, its local
   variables are restore in another buffer.  ftp-write-file
   has a similar problem when it kills the process i/o buffer.

This is a well-known problem with specbind/unbind_to.  Basically, for
buffer-local values, it needs to save the buffer that the value was local
to and only restore the value in that buffer (or none if the buffer is
killed), even if the current-buffer has changed.

Feel free to write the fix.  :-)

The workaround is to use let, setq, unwind-protect, set-buffer, and
several auxiliary variables.

-- 
Enjoy,

Joe Wells <jbw@cs.bu.edu>