diff options
author | Richard M. Stallman <[email protected]> | 1998-01-21 21:42:19 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1998-01-21 21:42:19 +0000 |
commit | d0628b063d09fcaa984c549e4d4ae58500230c8c (patch) | |
tree | bde88d2ee763e27722614ac2ea1f6b7b71531174 /src/buffer.c | |
parent | de404585f8cca6724aceaa5ce5dbdb432d26dcaf (diff) |
(set_buffer_if_live): New function.
Diffstat (limited to 'src/buffer.c')
-rw-r--r-- | src/buffer.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index 1950ff365a..1a68374d7a 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1571,6 +1571,17 @@ Use `switch-to-buffer' or `pop-to-buffer' to switch buffers permanently.") set_buffer_internal (XBUFFER (buf)); return buf; } + +/* Set the current buffer to BUFFER provided it is alive. */ + +Lisp_Object +set_buffer_if_live (buffer) + Lisp_Object buffer; +{ + if (! NILP (XBUFFER (buffer)->name)) + Fset_buffer (buffer); + return Qnil; +} DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only, Sbarf_if_buffer_read_only, 0, 0, 0, |