From 328c069714ae705f93fc09607e47f5c19ddf2353 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 10 Apr 1997 00:37:52 +0000 Subject: [PATCH] (PC-try-load-many-files): Set truename. --- lisp/complete.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.39.2