Mercurial > emacs
diff src/lread.c @ 14092:279f5f3528a8
(Feval_buffer, Feval_region, Fintern, Fintern_soft): Harmonize arguments
with documentation.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Tue, 09 Jan 1996 02:12:16 +0000 |
parents | 621a575db6f7 |
children | 99ab26698ab0 |
line wrap: on
line diff
--- a/src/lread.c Tue Jan 09 02:03:13 1996 +0000 +++ b/src/lread.c Tue Jan 09 02:12:16 1996 +0000 @@ -803,16 +803,16 @@ \n\ If there is no error, point does not move. If there is an error,\n\ point remains at the end of the last character read from the buffer.") - (bufname, printflag) - Lisp_Object bufname, printflag; + (buffer, printflag) + Lisp_Object buffer, printflag; { int count = specpdl_ptr - specpdl; Lisp_Object tem, buf; - if (NILP (bufname)) + if (NILP (buffer)) buf = Fcurrent_buffer (); else - buf = Fget_buffer (bufname); + buf = Fget_buffer (buffer); if (NILP (buf)) error ("No such buffer."); @@ -867,8 +867,8 @@ \n\ If there is no error, point does not move. If there is an error,\n\ point remains at the end of the last character read from the buffer.") - (b, e, printflag) - Lisp_Object b, e, printflag; + (start, end, printflag) + Lisp_Object start, end, printflag; { int count = specpdl_ptr - specpdl; Lisp_Object tem, cbuf; @@ -885,9 +885,9 @@ record_unwind_protect (save_excursion_restore, save_excursion_save ()); record_unwind_protect (save_restriction_restore, save_restriction_save ()); - /* This both uses b and checks its type. */ - Fgoto_char (b); - Fnarrow_to_region (make_number (BEGV), e); + /* This both uses start and checks its type. */ + Fgoto_char (start); + Fnarrow_to_region (make_number (BEGV), end); readevalloop (cbuf, 0, XBUFFER (cbuf)->filename, Feval, !NILP (printflag)); return unbind_to (count, Qnil); @@ -1835,23 +1835,23 @@ If there is none, one is created by this function and returned.\n\ A second optional argument specifies the obarray to use;\n\ it defaults to the value of `obarray'.") - (str, obarray) - Lisp_Object str, obarray; + (string, obarray) + Lisp_Object string, obarray; { register Lisp_Object tem, sym, *ptr; if (NILP (obarray)) obarray = Vobarray; obarray = check_obarray (obarray); - CHECK_STRING (str, 0); + CHECK_STRING (string, 0); - tem = oblookup (obarray, XSTRING (str)->data, XSTRING (str)->size); + tem = oblookup (obarray, XSTRING (string)->data, XSTRING (string)->size); if (!INTEGERP (tem)) return tem; if (!NILP (Vpurify_flag)) - str = Fpurecopy (str); - sym = Fmake_symbol (str); + string = Fpurecopy (string); + sym = Fmake_symbol (string); ptr = &XVECTOR (obarray)->contents[XINT (tem)]; if (SYMBOLP (*ptr)) @@ -1866,17 +1866,17 @@ "Return the canonical symbol whose name is STRING, or nil if none exists.\n\ A second optional argument specifies the obarray to use;\n\ it defaults to the value of `obarray'.") - (str, obarray) - Lisp_Object str, obarray; + (string, obarray) + Lisp_Object string, obarray; { register Lisp_Object tem; if (NILP (obarray)) obarray = Vobarray; obarray = check_obarray (obarray); - CHECK_STRING (str, 0); + CHECK_STRING (string, 0); - tem = oblookup (obarray, XSTRING (str)->data, XSTRING (str)->size); + tem = oblookup (obarray, XSTRING (string)->data, XSTRING (string)->size); if (!INTEGERP (tem)) return tem; return Qnil;