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
52e01189
Commit
52e01189
authored
Aug 09, 1995
by
Richard M. Stallman
Browse files
(get_truename_buffer): New function.
parent
2f2228c0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
0 deletions
+18
-0
src/buffer.c
src/buffer.c
+18
-0
No files found.
src/buffer.c
View file @
52e01189
...
...
@@ -236,6 +236,24 @@ See also `find-buffer-visiting'.")
return
Qnil
;
}
Lisp_Object
get_truename_buffer
(
filename
)
register
Lisp_Object
filename
;
{
register
Lisp_Object
tail
,
buf
,
tem
;
for
(
tail
=
Vbuffer_alist
;
CONSP
(
tail
);
tail
=
XCONS
(
tail
)
->
cdr
)
{
buf
=
Fcdr
(
XCONS
(
tail
)
->
car
);
if
(
!
BUFFERP
(
buf
))
continue
;
if
(
!
STRINGP
(
XBUFFER
(
buf
)
->
file_truename
))
continue
;
tem
=
Fstring_equal
(
XBUFFER
(
buf
)
->
file_truename
,
filename
);
if
(
!
NILP
(
tem
))
return
buf
;
}
return
Qnil
;
}
/* Incremented for each buffer created, to assign the buffer number. */
int
buffer_count
;
...
...
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