Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.

Browse source
This commit is contained in:
Richard M. Stallman 1993-08-15 05:47:03 +00:00
parent 690a797cf3
commit 455d9d28a9
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/files.el
View file

@ -652,7 +652,11 @@ The buffer is not selected, just returned to the caller."
;; Run find-file-not-found-hooks until one returns non-nil.
(let ((hooks find-file-not-found-hooks))
(while (and hooks
(not (funcall (car hooks))))
(not (and (funcall (car hooks))
;; If a hook succeeded, clear error.
(progn (setq error nil)
;; Also exit the loop.
t))))
(setq hooks (cdr hooks))))))
;; Find the file's truename, and maybe use that as visited name.
(setq buffer-file-truename (abbreviate-file-name truename))