# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824938355 0
# Node ID 2edced5a8756655ffc6446437a5b1ce5a98335f9
# Parent  7a7506ffde311d72fea16821971f7cd007c7e79e
(find-file-noselect): If after-find-file switches buffers,
return the buffer that it leaves current.

diff -r 7a7506ffde31 -r 2edced5a8756 lisp/files.el
--- 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)