diff src/buffer.c @ 485:8c615e453683

*** empty log message ***

--- a/src/buffer.c	Mon Jan 13 21:48:03 1992 +0000
+++ b/src/buffer.c	Mon Jan 13 21:48:08 1992 +0000
@@ -25,9 +25,6 @@
 #define MAXPATHLEN 1024
 #endif /* not MAXPATHLEN */
 
-#ifdef NULL
-#undef NULL
-#endif
 #include "config.h"
 #include "lisp.h"
 #include "window.h"
@@ -163,7 +160,7 @@
       if (XTYPE (buf) != Lisp_Buffer) continue;
       if (XTYPE (XBUFFER (buf)->filename) != Lisp_String) continue;
       tem = Fstring_equal (XBUFFER (buf)->filename, filename);
-      if (!NULL (tem))
+      if (!NILP (tem))
 	return buf;
     }
   return Qnil;
@@ -185,7 +182,7 @@
   register struct buffer *b;
 
   buf = Fget_buffer (name);
-  if (!NULL (buf))
+  if (!NILP (buf))
     return buf;
 
   b = (struct buffer *) malloc (sizeof (struct buffer));
@@ -227,14 +224,14 @@
   b->name = name;
 
   function = buffer_defaults.major_mode;
-  if (NULL (function))
+  if (NILP (function))
     {
       tem = Fget (current_buffer->major_mode, Qmode_class);
       if (EQ (tem, Qnil))
 	function = current_buffer->major_mode;
     }
 
-  if (NULL (function) || EQ (function, Qfundamental_mode))
+  if (NILP (function) || EQ (function, Qfundamental_mode))
     return buf;
 
   /* To select a nonfundamental mode,
@@ -327,7 +324,7 @@
   CHECK_STRING (name, 0);
 
   tem = Fget_buffer (name);
-  if (NULL (tem))
+  if (NILP (tem))
     return name;
 
   count = 1;
@@ -336,7 +333,7 @@
       sprintf (number, "<%d>", ++count);
       gentemp = concat2 (name, build_string (number));
       tem = Fget_buffer (gentemp);
-      if (NULL (tem))
+      if (NILP (tem))
 	return gentemp;
     }
 }
@@ -348,7 +345,7 @@
   (buffer)
      register Lisp_Object buffer;
 {
-  if (NULL (buffer))
+  if (NILP (buffer))
     return current_buffer->name;
   CHECK_BUFFER (buffer, 0);
   return XBUFFER (buffer)->name;
@@ -360,7 +357,7 @@
   (buffer)
      register Lisp_Object buffer;
 {
-  if (NULL (buffer))
+  if (NILP (buffer))
     return current_buffer->filename;
   CHECK_BUFFER (buffer, 0);
   return XBUFFER (buffer)->filename;
@@ -378,7 +375,7 @@
   register struct buffer *buf;
   register Lisp_Object val;
 
-  if (NULL (buffer))
+  if (NILP (buffer))
     buf = current_buffer;
   else
     {
@@ -433,7 +430,7 @@
      register Lisp_Object buffer;
 {
   register struct buffer *buf;
-  if (NULL (buffer))
+  if (NILP (buffer))
     buf = current_buffer;
   else
     {
@@ -459,17 +456,17 @@
      If buffer becoming unmodified, unlock the file.  */
 
   fn = current_buffer->filename;
-  if (!NULL (fn))
+  if (!NILP (fn))
     {
       already = current_buffer->save_modified < MODIFF;
-      if (!already && !NULL (flag))
+      if (!already && !NILP (flag))
 	lock_file (fn);
-      else if (already && NULL (flag))
+      else if (already && NILP (flag))
 	unlock_file (fn);
     }
 #endif /* CLASH_DETECTION */
 
-  current_buffer->save_modified = NULL (flag) ? MODIFF : 0;
+  current_buffer->save_modified = NILP (flag) ? MODIFF : 0;
   update_mode_lines++;
   return flag;
 }
@@ -484,7 +481,7 @@
      register Lisp_Object buffer;
 {
   register struct buffer *buf;
-  if (NULL (buffer))
+  if (NILP (buffer))
     buf = current_buffer;
   else
     {
@@ -513,9 +510,9 @@
   tem = Fget_buffer (name);
   if (XBUFFER (tem) == current_buffer)
     return current_buffer->name;
-  if (!NULL (tem))
+  if (!NILP (tem))
     {
-      if (!NULL (distinguish))
+      if (!NILP (distinguish))
 	name = Fgenerate_new_buffer_name (name);
       else
 	error ("Buffer name \"%s\" is in use", XSTRING (name)->data);
@@ -524,7 +521,7 @@
   current_buffer->name = name;
   XSET (buf, Lisp_Buffer, current_buffer);
   Fsetcar (Frassq (buf, Vbuffer_alist), name);
-  if (NULL (current_buffer->filename) && !NULL (current_buffer->auto_save_file_name))
+  if (NILP (current_buffer->filename) && !NILP (current_buffer->auto_save_file_name))
     call0 (intern ("rename-auto-save-file"));
   return name;
 }
@@ -540,7 +537,7 @@
   register Lisp_Object tail, buf, notsogood, tem;
   notsogood = Qnil;
 
-  for (tail = Vbuffer_alist; !NULL (tail); tail = Fcdr (tail))
+  for (tail = Vbuffer_alist; !NILP (tail); tail = Fcdr (tail))
     {
       buf = Fcdr (Fcar (tail));
       if (EQ (buf, buffer))
@@ -548,12 +545,12 @@
       if (XSTRING (XBUFFER (buf)->name)->data[0] == ' ')
 	continue;
       tem = Fget_buffer_window (buf, Qnil);
-      if (NULL (tem))
+      if (NILP (tem))
 	return buf;
-      if (NULL (notsogood))
+      if (NILP (notsogood))
 	notsogood = buf;
     }
-  if (!NULL (notsogood))
+  if (!NILP (notsogood))
     return notsogood;
   return Fget_buffer_create (build_string ("*scratch*"));
 }
@@ -579,12 +576,12 @@
   register struct buffer *b;
   register Lisp_Object buf1;
 
-  if (NULL (buf))
+  if (NILP (buf))
     b = current_buffer;
   else
     {
       buf1 = Fget_buffer (buf);
-      if (NULL (buf1)) nsberror (buf);
+      if (NILP (buf1)) nsberror (buf);
       b = XBUFFER (buf1);
     }
 
@@ -620,24 +617,24 @@
   register struct Lisp_Marker *m;
   struct gcpro gcpro1, gcpro2;
 
-  if (NULL (bufname))
+  if (NILP (bufname))
     buf = Fcurrent_buffer ();
   else
     buf = Fget_buffer (bufname);
-  if (NULL (buf))
+  if (NILP (buf))
     nsberror (bufname);
 
   b = XBUFFER (buf);
 
   /* Query if the buffer is still modified.  */
-  if (INTERACTIVE && !NULL (b->filename)
+  if (INTERACTIVE && !NILP (b->filename)
       && BUF_MODIFF (b) > b->save_modified)
     {
       GCPRO2 (buf, bufname);
       tem = do_yes_or_no_p (format1 ("Buffer %s modified; kill anyway? ",
 				     XSTRING (b->name)->data));
       UNGCPRO;
-      if (NULL (tem))
+      if (NILP (tem))
 	return Qnil;
     }
 
@@ -660,7 +657,7 @@
   if (EQ (buf, XWINDOW (minibuf_window)->buffer))
     return Qnil;
 
-  if (NULL (b->name))
+  if (NILP (b->name))
     return Qnil;
 
   /* Make this buffer not be current.
@@ -696,7 +693,7 @@
     {
       Lisp_Object tem;
       tem = Fsymbol_value (intern ("delete-auto-save-files"));
-      if (! NULL (tem))
+      if (! NILP (tem))
 	unlink (XSTRING (b->auto_save_file_name)->data);
     }
 
@@ -739,7 +736,7 @@
   /* Effectively do Vbuffer_alist = Fdelq (link, Vbuffer_alist)
      but cannot use Fdelq here it that allows quitting.  */
 
-  if (NULL (prev))
+  if (NILP (prev))
     Vbuffer_alist = XCONS (Vbuffer_alist)->cdr;
   else
     XCONS (prev)->cdr = XCONS (XCONS (prev)->cdr)->cdr;
@@ -766,15 +763,15 @@
   if (EQ (minibuf_window, selected_window))
     error ("Cannot switch buffers in minibuffer window");
   tem = Fwindow_dedicated_p (selected_window);
-  if (!NULL (tem))
+  if (!NILP (tem))
     error ("Cannot switch buffers in a dedicated window");
 
-  if (NULL (bufname))
+  if (NILP (bufname))
     buf = Fother_buffer (Fcurrent_buffer ());
   else
     buf = Fget_buffer_create (bufname);
   Fset_buffer (buf);
-  if (NULL (norecord))
+  if (NILP (norecord))
     record_buffer (buf);
 
   Fset_window_buffer (EQ (selected_window, minibuf_window)
@@ -794,7 +791,7 @@
      Lisp_Object bufname, other;
 {
   register Lisp_Object buf;
-  if (NULL (bufname))
+  if (NILP (bufname))
     buf = Fother_buffer (Fcurrent_buffer ());
   else
     buf = Fget_buffer_create (bufname);
@@ -834,7 +831,7 @@
   /* Look down buffer's list of local Lisp variables
      to find and update any that forward into C variables. */
 
-  for (tail = b->local_var_alist; !NULL (tail); tail = XCONS (tail)->cdr)
+  for (tail = b->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr)
     {
       valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value;
       if ((XTYPE (valcontents) == Lisp_Buffer_Local_Value
@@ -850,7 +847,7 @@
   /* Do the same with any others that were local to the previous buffer */
 
   if (old_buf)
-    for (tail = old_buf->local_var_alist; !NULL (tail); tail = XCONS (tail)->cdr)
+    for (tail = old_buf->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr)
       {
 	valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value;
 	if ((XTYPE (valcontents) == Lisp_Buffer_Local_Value
@@ -876,9 +873,9 @@
 {
   register Lisp_Object buffer;
   buffer = Fget_buffer (bufname);
-  if (NULL (buffer))
+  if (NILP (buffer))
     nsberror (bufname);
-  if (NULL (XBUFFER (buffer)->name))
+  if (NILP (XBUFFER (buffer)->name))
     error ("Selecting deleted buffer");
   set_buffer_internal (XBUFFER (buffer));
   return buffer;
@@ -889,7 +886,7 @@
   "Signal a `buffer-read-only' error if the current buffer is read-only.")
   ()
 {
-  while (!NULL (current_buffer->read_only))
+  while (!NILP (current_buffer->read_only))
     Fsignal (Qbuffer_read_only, (Fcons (Fcurrent_buffer (), Qnil)));
   return Qnil;
 }
@@ -903,7 +900,7 @@
 {
   register Lisp_Object aelt, link;
 
-  if (NULL (buf))
+  if (NILP (buf))
     {
       XSET (buf, Lisp_Buffer, current_buffer);
       Fswitch_to_buffer (Fother_buffer (buf), Qnil);
@@ -913,7 +910,7 @@
       Lisp_Object buf1;
       
       buf1 = Fget_buffer (buf);
-      if (NULL (buf1))
+      if (NILP (buf1))
 	nsberror (buf);
       buf = buf1;
     }	  
@@ -983,7 +980,7 @@
 
   tail = intern ("Buffer-menu-mode");
   if (!EQ (tail, current_buffer->major_mode)
-      && (tem = Ffboundp (tail), !NULL (tem)))
+      && (tem = Ffboundp (tail), !NILP (tem)))
     call0 (tail);
   Fbuffer_disable_undo (Vstandard_output);
   current_buffer->read_only = Qnil;
@@ -992,7 +989,7 @@
  MR Buffer         Size  Mode           File\n\
  -- ------         ----  ----           ----\n", -1);
 
-  for (tail = Vbuffer_alist; !NULL (tail); tail = Fcdr (tail))
+  for (tail = Vbuffer_alist; !NILP (tail); tail = Fcdr (tail))
     {
       buf = Fcdr (Fcar (tail));
       b = XBUFFER (buf);
@@ -1000,7 +997,7 @@
       if (XSTRING (b->name)->data[0] == ' ')
 	continue;
       /* Optionally don't mention buffers that lack files. */
-      if (!NULL (files) && NULL (b->filename))
+      if (!NILP (files) && NILP (b->filename))
 	continue;
       /* Identify the current buffer. */
       if (b == old)
@@ -1008,7 +1005,7 @@
       write_string (b == old ? "." : " ", -1);
       /* Identify modified buffers */
       write_string (BUF_MODIFF (b) > b->save_modified ? "*" : " ", -1);
-      write_string (NULL (b->read_only) ? "  " : "% ", -1);
+      write_string (NILP (b->read_only) ? "  " : "% ", -1);
       Fprinc (b->name, Qnil);
       Findent_to (col1, make_number (2));
       XFASTINT (tem) = BUF_Z (b) - BUF_BEG (b);
@@ -1017,7 +1014,7 @@
       Fprinc (b->mode_name, Qnil);
       Findent_to (col3, minspace);
 
-      if (!NULL (b->filename))
+      if (!NILP (b->filename))
 	Fprinc (b->filename, Qnil);
       else
 	{
@@ -1025,7 +1022,7 @@
 	  Lisp_Object tem;
 	  set_buffer_internal (b);
 	  tem = Fboundp (other_file_symbol);
-	  if (!NULL (tem))
+	  if (!NILP (tem))
 	    {
 	      tem = Fsymbol_value (other_file_symbol);
 	      Fset_buffer (Vstandard_output);
@@ -1085,7 +1082,7 @@
   /* Make sure no local variables remain set up with this buffer
      for their current values.  */
 
-  for (alist = oalist; !NULL (alist); alist = XCONS (alist)->cdr)
+  for (alist = oalist; !NILP (alist); alist = XCONS (alist)->cdr)
     {
       sym = XCONS (XCONS (alist)->car)->car;
 
@@ -1115,11 +1112,11 @@
   /* Any which are supposed to be permanent,
      make local again, with the same values they had.  */
      
-  for (alist = oalist; !NULL (alist); alist = XCONS (alist)->cdr)
+  for (alist = oalist; !NILP (alist); alist = XCONS (alist)->cdr)
     {
       sym = XCONS (XCONS (alist)->car)->car;
       tem = Fget (sym, Qpermanent_local);
-      if (! NULL (tem))
+      if (! NILP (tem))
 	{
 	  Fmake_local_variable (sym);
 	  Fset (sym, XCONS (XCONS (alist)->car)->cdr);
@@ -1146,7 +1143,7 @@
   Lisp_Object fieldlist;
   Lisp_Object collector;
 
-  if (NULL (buffer))
+  if (NILP (buffer))
     fieldlist = current_buffer->fieldlist;
   else
     {
@@ -1174,9 +1171,9 @@
       if ((start_loc < field_start && end_loc > field_start)
 	  || (start_loc >= field_start && start_loc < field_end))
 	{
-	  if (!NULL (error_check))
+	  if (!NILP (error_check))
 	    {
-	      if (!NULL (FIELD_PROTECTED_FLAG (field)))
+	      if (!NILP (FIELD_PROTECTED_FLAG (field)))
 		{
 		  struct gcpro gcpro1;
 		  GCPRO1 (fieldlist);