Mercurial > emacs
changeset 22466:7e79814e7263
(find-file-noselect): Delete unused local var `error'.
(find-file-noselect-1): Add local var `error'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 13 Jun 1998 04:44:32 +0000 |
| parents | 5dcb65955074 |
| children | 1fd9b569c5b4 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat Jun 13 04:34:52 1998 +0000 +++ b/lisp/files.el Sat Jun 13 04:44:32 1998 +0000 @@ -872,8 +872,7 @@ (truename (abbreviate-file-name (file-truename filename))) (number (nthcdr 10 (file-attributes truename))) ;; Find any buffer for a file which has same truename. - (other (and (not buf) (find-buffer-visiting filename))) - error) + (other (and (not buf) (find-buffer-visiting filename)))) ;; Let user know if there is a buffer with the same truename. (if other (progn @@ -951,7 +950,8 @@ buf))) (defun find-file-noselect-1 (buf filename nowarn rawfile truename number) - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t) + error) (with-current-buffer buf (kill-local-variable 'find-file-literally) (setq buffer-file-coding-system nil)