Mercurial > emacs
comparison src/buffer.c @ 20698:ec08780e4c42
(set_buffer_if_live): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Jan 1998 21:42:19 +0000 |
| parents | a9d566444dd4 |
| children | d43ba5d91281 |
comparison
equal
deleted
inserted
replaced
| 20697:6c8ba5a6147b | 20698:ec08780e4c42 |
|---|---|
| 1568 nsberror (buffer); | 1568 nsberror (buffer); |
| 1569 if (NILP (XBUFFER (buf)->name)) | 1569 if (NILP (XBUFFER (buf)->name)) |
| 1570 error ("Selecting deleted buffer"); | 1570 error ("Selecting deleted buffer"); |
| 1571 set_buffer_internal (XBUFFER (buf)); | 1571 set_buffer_internal (XBUFFER (buf)); |
| 1572 return buf; | 1572 return buf; |
| 1573 } | |
| 1574 | |
| 1575 /* Set the current buffer to BUFFER provided it is alive. */ | |
| 1576 | |
| 1577 Lisp_Object | |
| 1578 set_buffer_if_live (buffer) | |
| 1579 Lisp_Object buffer; | |
| 1580 { | |
| 1581 if (! NILP (XBUFFER (buffer)->name)) | |
| 1582 Fset_buffer (buffer); | |
| 1583 return Qnil; | |
| 1573 } | 1584 } |
| 1574 | 1585 |
| 1575 DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only, | 1586 DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only, |
| 1576 Sbarf_if_buffer_read_only, 0, 0, 0, | 1587 Sbarf_if_buffer_read_only, 0, 0, 0, |
| 1577 "Signal a `buffer-read-only' error if the current buffer is read-only.") | 1588 "Signal a `buffer-read-only' error if the current buffer is read-only.") |