comparison lisp/files.el @ 14636:2edced5a8756

(find-file-noselect): If after-find-file switches buffers, return the buffer that it leaves current.
author Karl Heuer <kwzh@gnu.org>
date Wed, 21 Feb 1996 21:32:35 +0000
parents 5a1435bd8ff3
children 3682b5e64ce3
comparison
equal deleted inserted replaced
14635:7a7506ffde31 14636:2edced5a8756
827 (progn 827 (progn
828 (make-local-variable 'backup-inhibited) 828 (make-local-variable 'backup-inhibited)
829 (setq backup-inhibited t))) 829 (setq backup-inhibited t)))
830 (if rawfile 830 (if rawfile
831 nil 831 nil
832 (after-find-file error (not nowarn))))) 832 (after-find-file error (not nowarn))
833 (setq buf (current-buffer)))))
833 buf))) 834 buf)))
834 835
835 (defvar after-find-file-from-revert-buffer nil) 836 (defvar after-find-file-from-revert-buffer nil)
836 837
837 (defun after-find-file (&optional error warn noauto 838 (defun after-find-file (&optional error warn noauto