martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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))