From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 21 Feb 1996 21:32:35 +0000 (+0000)
Subject: (find-file-noselect): If after-find-file switches buffers,
X-Git-Tag: emacs-19.34~1224
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa660969617d1904b4040148c79d936c6e50692e;p=emacs.git

(find-file-noselect): If after-find-file switches buffers,
return the buffer that it leaves current.
---

diff --git a/lisp/files.el b/lisp/files.el
index 31c7f257ce7..309410ba992 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -829,7 +829,8 @@ The buffer is not selected, just returned to the caller."
 		 (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)