🚀 go-pugleaf

Here is a buffer list:

 MR Buffer         Size  Mode           File
 -- ------         ----  ----           ----
 *  temp	   205	 Lisp Interaction 
 *  *scratch*	   0	 Lisp Interaction 
.*  *Buffer List*  296	 Buffer Menu	

After executing command TEST it becomes:

 MR Buffer         Size  Mode           File
 -- ------         ----  ----           ----
 *  temp	   205	 Lisp Interaction 
 *% *scratch*	   0	 Lisp Interaction 
.*  *Buffer List*  200	 Buffer Menu	

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.