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

1 files changed, 5 insertions, 1 deletions

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))