Mercurial > emacs

comparison lisp/files.el @ 15410:559d91fe836a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-alternate-file): Don't clear buffer-file-truename and friends until after calling unlock-buffer.
author Richard M. Stallman <rms@gnu.org>
date Wed, 12 Jun 1996 14:43:51 +0000
parents 104a97493dcc
children d89ae6e193da
comparison
equal deleted inserted replaced
15409:feee0ea235db 15410:559d91fe836a
584 (otrue buffer-file-truename) 584 (otrue buffer-file-truename)
585 (oname (buffer-name))) 585 (oname (buffer-name)))
586 (if (get-buffer " **lose**") 586 (if (get-buffer " **lose**")
587 (kill-buffer " **lose**")) 587 (kill-buffer " **lose**"))
588 (rename-buffer " **lose**") 588 (rename-buffer " **lose**")
589 (setq buffer-file-name nil)
590 (setq buffer-file-number nil)
591 (setq buffer-file-truename nil)
592 (unwind-protect 589 (unwind-protect
593 (progn 590 (progn
594 (unlock-buffer) 591 (unlock-buffer)
592 (setq buffer-file-name nil)
593 (setq buffer-file-number nil)
594 (setq buffer-file-truename nil)
595 (find-file filename)) 595 (find-file filename))
596 (cond ((eq obuf (current-buffer)) 596 (cond ((eq obuf (current-buffer))
597 (setq buffer-file-name ofile) 597 (setq buffer-file-name ofile)
598 (setq buffer-file-number onum) 598 (setq buffer-file-number onum)
599 (setq buffer-file-truename otrue) 599 (setq buffer-file-truename otrue)