#define MAXPATHLEN 1024
#endif /* not MAXPATHLEN */
-#ifdef NULL
-#undef NULL
-#endif
#include "config.h"
#include "lisp.h"
#include "window.h"
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;
register struct buffer *b;
buf = Fget_buffer (name);
- if (!NULL (buf))
+ if (!NILP (buf))
return buf;
b = (struct buffer *) malloc (sizeof (struct buffer));
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,
CHECK_STRING (name, 0);
tem = Fget_buffer (name);
- if (NULL (tem))
+ if (NILP (tem))
return name;
count = 1;
sprintf (number, "<%d>", ++count);
gentemp = concat2 (name, build_string (number));
tem = Fget_buffer (gentemp);
- if (NULL (tem))
+ if (NILP (tem))
return gentemp;
}
}
(buffer)
register Lisp_Object buffer;
{
- if (NULL (buffer))
+ if (NILP (buffer))
return current_buffer->name;
CHECK_BUFFER (buffer, 0);
return XBUFFER (buffer)->name;
(buffer)
register Lisp_Object buffer;
{
- if (NULL (buffer))
+ if (NILP (buffer))
return current_buffer->filename;
CHECK_BUFFER (buffer, 0);
return XBUFFER (buffer)->filename;
register struct buffer *buf;
register Lisp_Object val;
- if (NULL (buffer))
+ if (NILP (buffer))
buf = current_buffer;
else
{
register Lisp_Object buffer;
{
register struct buffer *buf;
- if (NULL (buffer))
+ if (NILP (buffer))
buf = current_buffer;
else
{
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;
}
register Lisp_Object buffer;
{
register struct buffer *buf;
- if (NULL (buffer))
+ if (NILP (buffer))
buf = current_buffer;
else
{
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);
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;
}
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))
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*"));
}
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);
}
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;
}
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.
{
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);
}
/* 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;
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)
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);
/* 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
/* 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
{
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;
"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;
}
{
register Lisp_Object aelt, link;
- if (NULL (buf))
+ if (NILP (buf))
{
XSET (buf, Lisp_Buffer, current_buffer);
Fswitch_to_buffer (Fother_buffer (buf), Qnil);
Lisp_Object buf1;
buf1 = Fget_buffer (buf);
- if (NULL (buf1))
+ if (NILP (buf1))
nsberror (buf);
buf = buf1;
}
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;
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);
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)
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);
Fprinc (b->mode_name, Qnil);
Findent_to (col3, minspace);
- if (!NULL (b->filename))
+ if (!NILP (b->filename))
Fprinc (b->filename, Qnil);
else
{
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);
/* 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;
/* 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);
Lisp_Object fieldlist;
Lisp_Object collector;
- if (NULL (buffer))
+ if (NILP (buffer))
fieldlist = current_buffer->fieldlist;
else
{
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);