changeset 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 7a7506ffde31
children 89952d6af6c2
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Feb 21 21:32:04 1996 +0000
+++ b/lisp/files.el	Wed Feb 21 21:32:35 1996 +0000
@@ -829,7 +829,8 @@
 		 (setq backup-inhibited t)))
 	  (if rawfile
 	      nil
-	    (after-find-file error (not nowarn)))))
+	    (after-find-file error (not nowarn))
+	    (setq buf (current-buffer)))))
       buf)))
 
 (defvar after-find-file-from-revert-buffer nil)