diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-06-02 05:18:06 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-06-02 05:18:06 +0000 |
| commit | dfdb645c3e0e4e12bcdc506c96b11254ab32a80c (patch) | |
| tree | b53251265b28203d49e9a38e46297ce43df75e0f /src/lread.c | |
| parent | 228d4b1c2ca4af62f74ba0a2edc03f962e20f544 (diff) | |
| download | emacs-dfdb645c3e0e4e12bcdc506c96b11254ab32a80c.tar.gz | |
*** empty log message ***
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index 930a9e56839..9477a11c421 100644 --- a/src/lread.c +++ b/src/lread.c @@ -513,21 +513,21 @@ point remains at the end of the last character read from the buffer.") int count = specpdl_ptr - specpdl; Lisp_Object tem, buf; - if (NIL_P (bufname)) + if (NILP (bufname)) buf = Fcurrent_buffer (); else buf = Fget_buffer (bufname); - if (NIL_P (buf)) + if (NILP (buf)) error ("No such buffer."); - if (NIL_P (printflag)) + if (NILP (printflag)) tem = Qsymbolp; else tem = printflag; specbind (Qstandard_output, tem); record_unwind_protect (save_excursion_restore, save_excursion_save ()); BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf))); - readevalloop (buf, 0, Feval, !NIL_P (printflag)); + readevalloop (buf, 0, Feval, !NILP (printflag)); unbind_to (count); return Qnil; |