From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Apr 1997 00:37:52 +0000 (+0000)
Subject: (PC-try-load-many-files): Set truename.
X-Git-Tag: emacs-20.1~2593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=328c069714ae705f93fc09607e47f5c19ddf2353;p=emacs.git

(PC-try-load-many-files): Set truename.
---

diff --git a/lisp/complete.el b/lisp/complete.el
index 50855ebd804..c12e2ce95cb 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -676,16 +676,20 @@ or properties are considered."
 	(kill-buffer (current-buffer))
 	(or files
 	    (error "No matching files"))
+	;; Bring the other files (not the first) into buffers.
 	(save-window-excursion
 	  (while (setq next (cdr next))
 	    (let ((buf (find-file-noselect (car next))))
+	      ;; Put this buffer at the front of the buffer list.
 	      (switch-to-buffer buf))))
-	;; This modifies the "buf" variable inside find-file-noselect.
+	;; This modifies the `buf' variable inside find-file-noselect.
 	(setq buf (get-file-buffer first))
 	(if buf
 	    nil   ; should do verify-visited-file-modtime stuff.
 	  (setq filename first)
 	  (setq buf (create-file-buffer filename))
+	  ;; This modified `truename' inside find-file-noselect.
+	  (setq truename (abbreviate-file-name (file-truename filename)))
 	  (set-buffer buf)
 	  (erase-buffer)
 	  (insert-file-contents filename t))