procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(find-file-noselect-1): Add local var `error'.
This commit is contained in:
Richard M. Stallman 1998-06-13 04:44:32 +00:00
parent 4dd9d86d22
commit 666c1d8bab
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -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)