Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
666c1d8b
Commit
666c1d8b
authored
Jun 13, 1998
by
Richard M. Stallman
Browse files
(find-file-noselect): Delete unused local var `error'.
(find-file-noselect-1): Add local var `error'.
parent
4dd9d86d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/files.el
lisp/files.el
+3
-3
No files found.
lisp/files.el
View file @
666c1d8b
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment