diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:44:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:44:32 +0000 |
| commit | 37377413efda2939aab1fc829fee147605f1c427 (patch) | |
| tree | 353e8511b8178aa7b2da3b22c33b0494abc69771 | |
| parent | 7cacb133409f005bd42bbb300a328ecb7874c668 (diff) | |
| download | emacs-37377413efda2939aab1fc829fee147605f1c427.tar.gz | |
(find-file-noselect): Delete unused local var `error'.
(find-file-noselect-1): Add local var `error'.
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 9768853c381..b952756d6ed 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -872,8 +872,7 @@ Optional second arg RAWFILE non-nil means the file is read literally." (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 @@ Optional second arg RAWFILE non-nil means the file is read literally." 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) |