HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
de40458
)
(set_buffer_if_live): New function.
author
Richard M. Stallman
<rms@gnu.org>
Wed, 21 Jan 1998 21:42:19 +0000
(21:42 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Wed, 21 Jan 1998 21:42:19 +0000
(21:42 +0000)
src/buffer.c
patch
|
blob
|
blame
|
history
diff --git
a/src/buffer.c
b/src/buffer.c
index
1950ff3
..
1a68374
100644
(file)
--- 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;
+}
\f
DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only,
Sbarf_if_buffer_read_only, 0, 0, 0,