mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-04-10 00:37:52 +00:00
parent 3e7562b11e
commit 328c069714
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/complete.el
View File

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