# HG changeset patch # User Richard M. Stallman # Date 834590631 0 # Node ID 559d91fe836ac3d457254faef273f704cc0bee25 # Parent feee0ea235db6178b24a94274579733f918e1c50 (find-alternate-file): Don't clear buffer-file-truename and friends until after calling unlock-buffer. diff -r feee0ea235db -r 559d91fe836a lisp/files.el --- a/lisp/files.el Wed Jun 12 03:13:51 1996 +0000 +++ b/lisp/files.el Wed Jun 12 14:43:51 1996 +0000 @@ -586,12 +586,12 @@ (if (get-buffer " **lose**") (kill-buffer " **lose**")) (rename-buffer " **lose**") - (setq buffer-file-name nil) - (setq buffer-file-number nil) - (setq buffer-file-truename nil) (unwind-protect (progn (unlock-buffer) + (setq buffer-file-name nil) + (setq buffer-file-number nil) + (setq buffer-file-truename nil) (find-file filename)) (cond ((eq obuf (current-buffer)) (setq buffer-file-name ofile)