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
181c830f
Commit
181c830f
authored
Mar 10, 1994
by
Richard M. Stallman
Browse files
(find-buffer-visiting): Don't compare NUMBER if it is nil.
parent
d7846e08
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
11 deletions
+12
-11
lisp/files.el
lisp/files.el
+12
-11
No files found.
lisp/files.el
View file @
181c830f
...
...
@@ -592,17 +592,18 @@ If there is no such live buffer, return nil."
found
)
(
let
((
number
(
nthcdr
10
(
file-attributes
truename
)))
(
list
(
buffer-list
))
found
)
(
while
(
and
(
not
found
)
list
)
(
save-excursion
(
set-buffer
(
car
list
))
(
if
(
and
(
equal
buffer-file-number
number
)
;; Verify this buffer's file number
;; still belongs to its file.
(
file-exists-p
buffer-file-name
)
(
equal
(
nthcdr
10
(
file-attributes
buffer-file-name
))
number
))
(
setq
found
(
car
list
))))
(
setq
list
(
cdr
list
)))
(
and
number
(
while
(
and
(
not
found
)
list
)
(
save-excursion
(
set-buffer
(
car
list
))
(
if
(
and
(
equal
buffer-file-number
number
)
;; Verify this buffer's file number
;; still belongs to its file.
(
file-exists-p
buffer-file-name
)
(
equal
(
nthcdr
10
(
file-attributes
buffer-file-name
))
number
))
(
setq
found
(
car
list
))))
(
setq
list
(
cdr
list
))))
found
))))
(
defun
find-file-noselect
(
filename
&optional
nowarn
)
...
...
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