Mercurial > emacs
changeset 17352:058970c0f57f
(PC-try-load-many-files): Set truename.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Apr 1997 00:37:52 +0000 |
| parents | e53338c19ba5 |
| children | 71db8e3ee12f |
| files | lisp/complete.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))