Commit 666c1d8b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-file-noselect): Delete unused local var `error'.

(find-file-noselect-1): Add local var `error'.
parent 4dd9d86d
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment