# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1175183914 0
# Node ID 6ef15c3befe4211d3640f200cf12920f9104abfe
# Parent  b7f5870e3ec185013b2e15fa3320c71d08153660
(Fset_buffer_major_mode): Check that BUFFER is valid.

diff -r b7f5870e3ec1 -r 6ef15c3befe4 src/buffer.c
--- a/src/buffer.c	Thu Mar 29 13:58:40 2007 +0000
+++ b/src/buffer.c	Thu Mar 29 15:58:34 2007 +0000
@@ -1614,6 +1614,8 @@
   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"));