From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 29 Mar 2007 16:00:03 +0000 (+0000)
Subject: (Fset_buffer_major_mode): Check that BUFFER is valid.
X-Git-Tag: emacs-pretest-22.0.97~129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea4fddd8941e6e5e4af78791cfc464ad4c67af34;p=emacs.git

(Fset_buffer_major_mode): Check that BUFFER is valid.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e001f27c9bb..f2dda067c62 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2007-03-29  Juanma Barranquero  <lekktu@gmail.com>
 
+	* buffer.c (Fset_buffer_major_mode): Check that BUFFER is valid.
+
 	* process.c (Fformat_network_address): Return nil when the
 	argument vector contains invalid values.
 
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.  */)
   int count;
   Lisp_Object function;
 
+  CHECK_BUFFER (buffer);
+
   if (STRINGP (XBUFFER (buffer)->name)
       && strcmp (SDATA (XBUFFER (buffer)->name), "*scratch*") == 0)
     function = find_symbol_value (intern ("initial-major-mode"));