diff options
| author | Juanma Barranquero | 2007-03-29 16:00:03 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-03-29 16:00:03 +0000 |
| commit | ea4fddd8941e6e5e4af78791cfc464ad4c67af34 (patch) | |
| tree | 81c9efcecd7731d703e789b9784baf7380dafc1d /src/buffer.c | |
| parent | cbf23adbc6e8b103321dd13e56bf98f7de6cd73e (diff) | |
| download | emacs-ea4fddd8941e6e5e4af78791cfc464ad4c67af34.tar.gz emacs-ea4fddd8941e6e5e4af78791cfc464ad4c67af34.zip | |
(Fset_buffer_major_mode): Check that BUFFER is valid.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index 20cab85e9da..3ad92331e01 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -1614,6 +1614,8 @@ the current buffer's major mode. */) | |||
| 1614 | int count; | 1614 | int count; |
| 1615 | Lisp_Object function; | 1615 | Lisp_Object function; |
| 1616 | 1616 | ||
| 1617 | CHECK_BUFFER (buffer); | ||
| 1618 | |||
| 1617 | if (STRINGP (XBUFFER (buffer)->name) | 1619 | if (STRINGP (XBUFFER (buffer)->name) |
| 1618 | && strcmp (SDATA (XBUFFER (buffer)->name), "*scratch*") == 0) | 1620 | && strcmp (SDATA (XBUFFER (buffer)->name), "*scratch*") == 0) |
| 1619 | function = find_symbol_value (intern ("initial-major-mode")); | 1621 | function = find_symbol_value (intern ("initial-major-mode")); |