# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860632672 0
# Node ID 058970c0f57f6f9e6b06544f89239f1f75f165e3
# Parent  e53338c19ba5213689a91057358678e4f737ac8b
(PC-try-load-many-files): Set truename.

diff -r e53338c19ba5 -r 058970c0f57f lisp/complete.el
--- a/lisp/complete.el	Thu Apr 10 00:27:09 1997 +0000
+++ b/lisp/complete.el	Thu Apr 10 00:37:52 1997 +0000
@@ -676,16 +676,20 @@
 	(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))