Mercurial > emacs
changeset 14506:bddd8114eaa9
(Fbuffer_live_p): New function.
(syms_of_buffer): defsubr it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 06 Feb 1996 23:48:06 +0000 |
| parents | fd6e27938b72 |
| children | ec4424facc98 |
| files | src/buffer.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/buffer.c Tue Feb 06 21:35:20 1996 +0000 +++ b/src/buffer.c Tue Feb 06 23:48:06 1996 +0000 @@ -163,6 +163,16 @@ 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 @@ "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);