Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0dc88e60
Commit
0dc88e60
authored
Feb 06, 1996
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fbuffer_live_p): New function.
(syms_of_buffer): defsubr it.
parent
470c5afe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
0 deletions
+11
-0
src/buffer.c
src/buffer.c
+11
-0
No files found.
src/buffer.c
View file @
0dc88e60
...
...
@@ -163,6 +163,16 @@ nsberror (spec)
error
(
"Invalid buffer argument"
);
}
DEFUN
(
"buffer-live-p"
,
Fbuffer_live_p
,
Sbuffer_live_p
,
1
,
1
,
0
,
"Return non-nil if OBJECT is a buffer which has not been killed.
\n
\
Value is nil if OBJECT is not a buffer or if it has been killed."
)
(
object
)
Lisp_Object
object
;
{
return
((
BUFFERP
(
object
)
&&
!
NILP
(
XBUFFER
(
object
)
->
name
))
?
Qt
:
Qnil
);
}
DEFUN
(
"buffer-list"
,
Fbuffer_list
,
Sbuffer_list
,
0
,
0
,
0
,
"Return a list of all existing live buffers."
)
()
...
...
@@ -3946,6 +3956,7 @@ is a member of the list.");
"List of functions called with no args to query before killing a buffer."
);
Vkill_buffer_query_functions
=
Qnil
;
defsubr
(
&
Sbuffer_live_p
);
defsubr
(
&
Sbuffer_list
);
defsubr
(
&
Sget_buffer
);
defsubr
(
&
Sget_file_buffer
);
...
...
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