# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1015284006 0
# Node ID 223f1f5d160d0e15963b5c4f72e654a102e73a7a
# Parent  d15360503e4e12e5c5dff9126ddfa48b9524e1a7
(syms_of_buffer): Allow non-string `mode-name'.

diff -r d15360503e4e -r 223f1f5d160d src/buffer.c
--- a/src/buffer.c	Mon Mar 04 23:00:28 2002 +0000
+++ b/src/buffer.c	Mon Mar 04 23:20:06 2002 +0000
@@ -1553,7 +1553,7 @@
   if (EQ (minibuf_window, window))
     return "Cannot switch buffers in minibuffer window";
   tem = Fwindow_dedicated_p (window);
-  if (!NILP (tem))
+  if (EQ (tem, Qt))
     return "Cannot switch buffers in a dedicated window";
   return NULL;
 }
@@ -5226,7 +5226,7 @@
 		     doc: /* Symbol for current buffer's major mode.  */);
 
   DEFVAR_PER_BUFFER ("mode-name", &current_buffer->mode_name,
-                     make_number (Lisp_String),
+                     Qnil,
 		     doc: /* Pretty name of current buffer's major mode (a string).  */);
 
   DEFVAR_PER_BUFFER ("abbrev-mode", &current_buffer->abbrev_mode, Qnil,