Commit 5842a27b authored by Dan Nicolaescu's avatar Dan Nicolaescu

Convert DEFUNs to standard C.

* src/alloc.c: Convert DEFUNs to standard C.
* src/buffer.c:
* src/bytecode.c:
* src/callint.c:
* src/callproc.c:
* src/casefiddle.c:
* src/casetab.c:
* src/category.c:
* src/character.c:
* src/charset.c:
* src/chartab.c:
* src/cmds.c:
* src/coding.c:
* src/composite.c:
* src/data.c:
* src/dbusbind.c:
* src/dired.c:
* src/dispnew.c:
* src/doc.c:
* src/dosfns.c:
* src/editfns.c:
* src/emacs.c:
* src/eval.c:
* src/fileio.c:
* src/filelock.c:
* src/floatfns.c:
* src/fns.c:
* src/font.c:
* src/fontset.c:
* src/frame.c:
* src/fringe.c:
* src/image.c:
* src/indent.c:
* src/insdel.c:
* src/keyboard.c:
* src/keymap.c:
* src/lread.c:
* src/macros.c:
* src/marker.c:
* src/menu.c:
* src/minibuf.c:
* src/msdos.c:
* src/nsfns.m:
* src/nsmenu.m:
* src/nsselect.m:
* src/print.c:
* src/process.c:
* src/search.c:
* src/sound.c:
* src/syntax.c:
* src/term.c:
* src/terminal.c:
* src/textprop.c:
* src/undo.c:
* src/w16select.c:
* src/w32console.c:
* src/w32fns.c:
* src/w32font.c:
* src/w32menu.c:
* src/w32proc.c:
* src/w32select.c:
* src/window.c:
* src/xdisp.c:
* src/xfaces.c:
* src/xfns.c:
* src/xmenu.c:
* src/xselect.c:
* src/xsettings.c:
* src/xsmfns.c: Likewise.
parent 71c44c04
2010-07-08 Dan Nicolaescu <dann@ics.uci.edu>
* alloc.c: Convert DEFUNs to standard C.
* buffer.c:
* bytecode.c:
* callint.c:
* callproc.c:
* casefiddle.c:
* casetab.c:
* category.c:
* character.c:
* charset.c:
* chartab.c:
* cmds.c:
* coding.c:
* composite.c:
* data.c:
* dbusbind.c:
* dired.c:
* dispnew.c:
* doc.c:
* dosfns.c:
* editfns.c:
* emacs.c:
* eval.c:
* fileio.c:
* filelock.c:
* floatfns.c:
* fns.c:
* font.c:
* fontset.c:
* frame.c:
* fringe.c:
* image.c:
* indent.c:
* insdel.c:
* keyboard.c:
* keymap.c:
* lread.c:
* macros.c:
* marker.c:
* menu.c:
* minibuf.c:
* msdos.c:
* nsfns.m:
* nsmenu.m:
* nsselect.m:
* print.c:
* process.c:
* search.c:
* sound.c:
* syntax.c:
* term.c:
* terminal.c:
* textprop.c:
* undo.c:
* w16select.c:
* w32console.c:
* w32fns.c:
* w32font.c:
* w32menu.c:
* w32proc.c:
* w32select.c:
* window.c:
* xdisp.c:
* xfaces.c:
* xfns.c:
* xmenu.c:
* xselect.c:
* xsettings.c:
* xsmfns.c: Likewise.
2010-07-08 Eli Zaretskii <eliz@gnu.org> 2010-07-08 Eli Zaretskii <eliz@gnu.org>
* process.c (kbd_is_on_hold, hold_keyboard_input) * process.c (kbd_is_on_hold, hold_keyboard_input)
......
...@@ -2250,8 +2250,7 @@ DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0, ...@@ -2250,8 +2250,7 @@ DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0,
doc: /* Return a newly created string of length LENGTH, with INIT in each element. doc: /* Return a newly created string of length LENGTH, with INIT in each element.
LENGTH must be an integer. LENGTH must be an integer.
INIT must be an integer that represents a character. */) INIT must be an integer that represents a character. */)
(length, init) (Lisp_Object length, Lisp_Object init)
Lisp_Object length, init;
{ {
register Lisp_Object val; register Lisp_Object val;
register unsigned char *p, *end; register unsigned char *p, *end;
...@@ -2294,8 +2293,7 @@ INIT must be an integer that represents a character. */) ...@@ -2294,8 +2293,7 @@ INIT must be an integer that represents a character. */)
DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0, DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0,
doc: /* Return a new bool-vector of length LENGTH, using INIT for each element. doc: /* Return a new bool-vector of length LENGTH, using INIT for each element.
LENGTH must be a number. INIT matters only in whether it is t or nil. */) LENGTH must be a number. INIT matters only in whether it is t or nil. */)
(length, init) (Lisp_Object length, Lisp_Object init)
Lisp_Object length, init;
{ {
register Lisp_Object val; register Lisp_Object val;
struct Lisp_Bool_Vector *p; struct Lisp_Bool_Vector *p;
...@@ -2687,8 +2685,7 @@ free_cons (struct Lisp_Cons *ptr) ...@@ -2687,8 +2685,7 @@ free_cons (struct Lisp_Cons *ptr)
DEFUN ("cons", Fcons, Scons, 2, 2, 0, DEFUN ("cons", Fcons, Scons, 2, 2, 0,
doc: /* Create a new cons, give it CAR and CDR as components, and return it. */) doc: /* Create a new cons, give it CAR and CDR as components, and return it. */)
(car, cdr) (Lisp_Object car, Lisp_Object cdr)
Lisp_Object car, cdr;
{ {
register Lisp_Object val; register Lisp_Object val;
...@@ -2783,9 +2780,7 @@ DEFUN ("list", Flist, Slist, 0, MANY, 0, ...@@ -2783,9 +2780,7 @@ DEFUN ("list", Flist, Slist, 0, MANY, 0,
doc: /* Return a newly created list with specified arguments as elements. doc: /* Return a newly created list with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. Any number of arguments, even zero arguments, are allowed.
usage: (list &rest OBJECTS) */) usage: (list &rest OBJECTS) */)
(nargs, args) (int nargs, register Lisp_Object *args)
int nargs;
register Lisp_Object *args;
{ {
register Lisp_Object val; register Lisp_Object val;
val = Qnil; val = Qnil;
...@@ -2801,8 +2796,7 @@ usage: (list &rest OBJECTS) */) ...@@ -2801,8 +2796,7 @@ usage: (list &rest OBJECTS) */)
DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0, DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0,
doc: /* Return a newly created list of length LENGTH, with each element being INIT. */) doc: /* Return a newly created list of length LENGTH, with each element being INIT. */)
(length, init) (register Lisp_Object length, Lisp_Object init)
register Lisp_Object length, init;
{ {
register Lisp_Object val; register Lisp_Object val;
register int size; register int size;
...@@ -2979,8 +2973,7 @@ allocate_process (void) ...@@ -2979,8 +2973,7 @@ allocate_process (void)
DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0, DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0,
doc: /* Return a newly created vector of length LENGTH, with each element being INIT. doc: /* Return a newly created vector of length LENGTH, with each element being INIT.
See also the function `vector'. */) See also the function `vector'. */)
(length, init) (register Lisp_Object length, Lisp_Object init)
register Lisp_Object length, init;
{ {
Lisp_Object vector; Lisp_Object vector;
register EMACS_INT sizei; register EMACS_INT sizei;
...@@ -3003,9 +2996,7 @@ DEFUN ("vector", Fvector, Svector, 0, MANY, 0, ...@@ -3003,9 +2996,7 @@ DEFUN ("vector", Fvector, Svector, 0, MANY, 0,
doc: /* Return a newly created vector with specified arguments as elements. doc: /* Return a newly created vector with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. Any number of arguments, even zero arguments, are allowed.
usage: (vector &rest OBJECTS) */) usage: (vector &rest OBJECTS) */)
(nargs, args) (register int nargs, Lisp_Object *args)
register int nargs;
Lisp_Object *args;
{ {
register Lisp_Object len, val; register Lisp_Object len, val;
register int index; register int index;
...@@ -3027,9 +3018,7 @@ stack size, (optional) doc string, and (optional) interactive spec. ...@@ -3027,9 +3018,7 @@ stack size, (optional) doc string, and (optional) interactive spec.
The first four arguments are required; at most six have any The first four arguments are required; at most six have any
significance. significance.
usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INTERACTIVE-SPEC &rest ELEMENTS) */) usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INTERACTIVE-SPEC &rest ELEMENTS) */)
(nargs, args) (register int nargs, Lisp_Object *args)
register int nargs;
Lisp_Object *args;
{ {
register Lisp_Object len, val; register Lisp_Object len, val;
register int index; register int index;
...@@ -3111,8 +3100,7 @@ init_symbol (void) ...@@ -3111,8 +3100,7 @@ init_symbol (void)
DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,
doc: /* Return a newly allocated uninterned symbol whose name is NAME. doc: /* Return a newly allocated uninterned symbol whose name is NAME.
Its value and function definition are void, and its property list is nil. */) Its value and function definition are void, and its property list is nil. */)
(name) (Lisp_Object name)
Lisp_Object name;
{ {
register Lisp_Object val; register Lisp_Object val;
register struct Lisp_Symbol *p; register struct Lisp_Symbol *p;
...@@ -3273,7 +3261,7 @@ make_save_value (void *pointer, int integer) ...@@ -3273,7 +3261,7 @@ make_save_value (void *pointer, int integer)
DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0, DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
doc: /* Return a newly allocated marker which does not point at any place. */) doc: /* Return a newly allocated marker which does not point at any place. */)
() (void)
{ {
register Lisp_Object val; register Lisp_Object val;
register struct Lisp_Marker *p; register struct Lisp_Marker *p;
...@@ -4002,7 +3990,7 @@ static double avg_live; ...@@ -4002,7 +3990,7 @@ static double avg_live;
DEFUN ("gc-status", Fgc_status, Sgc_status, 0, 0, "", DEFUN ("gc-status", Fgc_status, Sgc_status, 0, 0, "",
doc: /* Show information about live and zombie objects. */) doc: /* Show information about live and zombie objects. */)
() (void)
{ {
Lisp_Object args[8], zombie_list = Qnil; Lisp_Object args[8], zombie_list = Qnil;
int i; int i;
...@@ -4796,8 +4784,7 @@ DEFUN ("purecopy", Fpurecopy, Spurecopy, 1, 1, 0, ...@@ -4796,8 +4784,7 @@ DEFUN ("purecopy", Fpurecopy, Spurecopy, 1, 1, 0,
doc: /* Make a copy of object OBJ in pure storage. doc: /* Make a copy of object OBJ in pure storage.
Recursively copies contents of vectors and cons cells. Recursively copies contents of vectors and cons cells.
Does not copy symbols. Copies strings without text properties. */) Does not copy symbols. Copies strings without text properties. */)
(obj) (register Lisp_Object obj)
register Lisp_Object obj;
{ {
if (NILP (Vpurify_flag)) if (NILP (Vpurify_flag))
return obj; return obj;
...@@ -4898,7 +4885,7 @@ Garbage collection happens automatically if you cons more than ...@@ -4898,7 +4885,7 @@ Garbage collection happens automatically if you cons more than
(USED-STRINGS . FREE-STRINGS)) (USED-STRINGS . FREE-STRINGS))
However, if there was overflow in pure space, `garbage-collect' However, if there was overflow in pure space, `garbage-collect'
returns nil, because real GC can't be done. */) returns nil, because real GC can't be done. */)
() (void)
{ {
register struct specbinding *bind; register struct specbinding *bind;
struct catchtag *catch; struct catchtag *catch;
...@@ -6115,7 +6102,7 @@ DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0, ...@@ -6115,7 +6102,7 @@ DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0,
doc: /* Return the address of the last byte Emacs has allocated, divided by 1024. doc: /* Return the address of the last byte Emacs has allocated, divided by 1024.
This may be helpful in debugging Emacs's memory usage. This may be helpful in debugging Emacs's memory usage.
We divide the value by 1024 to make sure it fits in a Lisp integer. */) We divide the value by 1024 to make sure it fits in a Lisp integer. */)
() (void)
{ {
Lisp_Object end; Lisp_Object end;
...@@ -6137,7 +6124,7 @@ objects consed. ...@@ -6137,7 +6124,7 @@ objects consed.
MISCS include overlays, markers, and some internal types. MISCS include overlays, markers, and some internal types.
Frames, windows, buffers, and subprocesses count as vectors Frames, windows, buffers, and subprocesses count as vectors
(but the contents of a buffer's text do not count here). */) (but the contents of a buffer's text do not count here). */)
() (void)
{ {
Lisp_Object consed[8]; Lisp_Object consed[8];
......
...@@ -190,8 +190,7 @@ nsberror (Lisp_Object spec) ...@@ -190,8 +190,7 @@ nsberror (Lisp_Object spec)
DEFUN ("buffer-live-p", Fbuffer_live_p, Sbuffer_live_p, 1, 1, 0, DEFUN ("buffer-live-p", Fbuffer_live_p, Sbuffer_live_p, 1, 1, 0,
doc: /* Return non-nil if OBJECT is a buffer which has not been killed. doc: /* Return non-nil if OBJECT is a buffer which has not been killed.
Value is nil if OBJECT is not a buffer or if it has been killed. */) Value is nil if OBJECT is not a buffer or if it has been killed. */)
(object) (Lisp_Object object)
Lisp_Object object;
{ {
return ((BUFFERP (object) && ! NILP (XBUFFER (object)->name)) return ((BUFFERP (object) && ! NILP (XBUFFER (object)->name))
? Qt : Qnil); ? Qt : Qnil);
...@@ -202,8 +201,7 @@ DEFUN ("buffer-list", Fbuffer_list, Sbuffer_list, 0, 1, 0, ...@@ -202,8 +201,7 @@ DEFUN ("buffer-list", Fbuffer_list, Sbuffer_list, 0, 1, 0,
If the optional arg FRAME is a frame, we return the buffer list If the optional arg FRAME is a frame, we return the buffer list
in the proper order for that frame: the buffers in FRAME's `buffer-list' in the proper order for that frame: the buffers in FRAME's `buffer-list'
frame parameter come first, followed by the rest of the buffers. */) frame parameter come first, followed by the rest of the buffers. */)
(frame) (Lisp_Object frame)
Lisp_Object frame;
{ {
Lisp_Object general; Lisp_Object general;
general = Fmapcar (Qcdr, Vbuffer_alist); general = Fmapcar (Qcdr, Vbuffer_alist);
...@@ -266,8 +264,7 @@ DEFUN ("get-buffer", Fget_buffer, Sget_buffer, 1, 1, 0, ...@@ -266,8 +264,7 @@ DEFUN ("get-buffer", Fget_buffer, Sget_buffer, 1, 1, 0,
BUFFER-OR-NAME must be either a string or a buffer. If BUFFER-OR-NAME BUFFER-OR-NAME must be either a string or a buffer. If BUFFER-OR-NAME
is a string and there is no buffer with that name, return nil. If is a string and there is no buffer with that name, return nil. If
BUFFER-OR-NAME is a buffer, return it as given. */) BUFFER-OR-NAME is a buffer, return it as given. */)
(buffer_or_name) (register Lisp_Object buffer_or_name)
register Lisp_Object buffer_or_name;
{ {
if (BUFFERP (buffer_or_name)) if (BUFFERP (buffer_or_name))
return buffer_or_name; return buffer_or_name;
...@@ -281,8 +278,7 @@ DEFUN ("get-file-buffer", Fget_file_buffer, Sget_file_buffer, 1, 1, 0, ...@@ -281,8 +278,7 @@ DEFUN ("get-file-buffer", Fget_file_buffer, Sget_file_buffer, 1, 1, 0,
The buffer's `buffer-file-name' must match exactly the expansion of FILENAME. The buffer's `buffer-file-name' must match exactly the expansion of FILENAME.
If there is no such live buffer, return nil. If there is no such live buffer, return nil.
See also `find-buffer-visiting'. */) See also `find-buffer-visiting'. */)
(filename) (register Lisp_Object filename)
register Lisp_Object filename;
{ {
register Lisp_Object tail, buf, tem; register Lisp_Object tail, buf, tem;
Lisp_Object handler; Lisp_Object handler;
...@@ -337,8 +333,7 @@ buffer does not keep undo information. ...@@ -337,8 +333,7 @@ buffer does not keep undo information.
If BUFFER-OR-NAME is a buffer instead of a string, return it as given, If BUFFER-OR-NAME is a buffer instead of a string, return it as given,
even if it is dead. The return value is never nil. */) even if it is dead. The return value is never nil. */)
(buffer_or_name) (register Lisp_Object buffer_or_name)
register Lisp_Object buffer_or_name;
{ {
register Lisp_Object buffer, name; register Lisp_Object buffer, name;
register struct buffer *b; register struct buffer *b;
...@@ -533,8 +528,7 @@ NAME should be a string which is not the name of an existing buffer. ...@@ -533,8 +528,7 @@ NAME should be a string which is not the name of an existing buffer.
Optional argument CLONE non-nil means preserve BASE-BUFFER's state, Optional argument CLONE non-nil means preserve BASE-BUFFER's state,
such as major and minor modes, in the indirect buffer. such as major and minor modes, in the indirect buffer.
CLONE nil means the indirect buffer's state is reset to default values. */) CLONE nil means the indirect buffer's state is reset to default values. */)
(base_buffer, name, clone) (Lisp_Object base_buffer, Lisp_Object name, Lisp_Object clone)
Lisp_Object base_buffer, name, clone;
{ {
Lisp_Object buf, tem; Lisp_Object buf, tem;
struct buffer *b; struct buffer *b;
...@@ -829,8 +823,7 @@ Otherwise modify name by appending `<NUMBER>', incrementing NUMBER ...@@ -829,8 +823,7 @@ Otherwise modify name by appending `<NUMBER>', incrementing NUMBER
\(starting at 2) until an unused name is found, and then return that name. \(starting at 2) until an unused name is found, and then return that name.
Optional second argument IGNORE specifies a name that is okay to use (if Optional second argument IGNORE specifies a name that is okay to use (if
it is in the sequence to be tried) even if a buffer with that name exists. */) it is in the sequence to be tried) even if a buffer with that name exists. */)
(name, ignore) (register Lisp_Object name, Lisp_Object ignore)
register Lisp_Object name, ignore;
{ {
register Lisp_Object gentemp, tem; register Lisp_Object gentemp, tem;
int count; int count;
...@@ -864,8 +857,7 @@ DEFUN ("buffer-name", Fbuffer_name, Sbuffer_name, 0, 1, 0, ...@@ -864,8 +857,7 @@ DEFUN ("buffer-name", Fbuffer_name, Sbuffer_name, 0, 1, 0,
doc: /* Return the name of BUFFER, as a string. doc: /* Return the name of BUFFER, as a string.
BUFFER defaults to the current buffer. BUFFER defaults to the current buffer.
Return nil if BUFFER has been killed. */) Return nil if BUFFER has been killed. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
if (NILP (buffer)) if (NILP (buffer))
return current_buffer->name; return current_buffer->name;
...@@ -876,8 +868,7 @@ Return nil if BUFFER has been killed. */) ...@@ -876,8 +868,7 @@ Return nil if BUFFER has been killed. */)
DEFUN ("buffer-file-name", Fbuffer_file_name, Sbuffer_file_name, 0, 1, 0, DEFUN ("buffer-file-name", Fbuffer_file_name, Sbuffer_file_name, 0, 1, 0,
doc: /* Return name of file BUFFER is visiting, or nil if none. doc: /* Return name of file BUFFER is visiting, or nil if none.
No argument or nil as argument means use the current buffer. */) No argument or nil as argument means use the current buffer. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
if (NILP (buffer)) if (NILP (buffer))
return current_buffer->filename; return current_buffer->filename;
...@@ -890,8 +881,7 @@ DEFUN ("buffer-base-buffer", Fbuffer_base_buffer, Sbuffer_base_buffer, ...@@ -890,8 +881,7 @@ DEFUN ("buffer-base-buffer", Fbuffer_base_buffer, Sbuffer_base_buffer,
doc: /* Return the base buffer of indirect buffer BUFFER. doc: /* Return the base buffer of indirect buffer BUFFER.
If BUFFER is not indirect, return nil. If BUFFER is not indirect, return nil.
BUFFER defaults to the current buffer. */) BUFFER defaults to the current buffer. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
struct buffer *base; struct buffer *base;
Lisp_Object base_buffer; Lisp_Object base_buffer;
...@@ -915,9 +905,7 @@ DEFUN ("buffer-local-value", Fbuffer_local_value, ...@@ -915,9 +905,7 @@ DEFUN ("buffer-local-value", Fbuffer_local_value,
doc: /* Return the value of VARIABLE in BUFFER. doc: /* Return the value of VARIABLE in BUFFER.
If VARIABLE does not have a buffer-local binding in BUFFER, the value If VARIABLE does not have a buffer-local binding in BUFFER, the value
is the default binding of the variable. */) is the default binding of the variable. */)
(variable, buffer) (register Lisp_Object variable, register Lisp_Object buffer)
register Lisp_Object variable;
register Lisp_Object buffer;
{ {
register struct buffer *buf; register struct buffer *buf;
register Lisp_Object result; register Lisp_Object result;
...@@ -1015,8 +1003,7 @@ Most elements look like (SYMBOL . VALUE), describing one variable. ...@@ -1015,8 +1003,7 @@ Most elements look like (SYMBOL . VALUE), describing one variable.
For a symbol that is locally unbound, just the symbol appears in the value. For a symbol that is locally unbound, just the symbol appears in the value.
Note that storing new VALUEs in these elements doesn't change the variables. Note that storing new VALUEs in these elements doesn't change the variables.
No argument or nil as argument means use current buffer as BUFFER. */) No argument or nil as argument means use current buffer as BUFFER. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
register struct buffer *buf; register struct buffer *buf;
register Lisp_Object result; register Lisp_Object result;
...@@ -1058,8 +1045,7 @@ DEFUN ("buffer-modified-p", Fbuffer_modified_p, Sbuffer_modified_p, ...@@ -1058,8 +1045,7 @@ DEFUN ("buffer-modified-p", Fbuffer_modified_p, Sbuffer_modified_p,
0, 1, 0, 0, 1, 0,
doc: /* Return t if BUFFER was modified since its file was last read or saved. doc: /* Return t if BUFFER was modified since its file was last read or saved.
No argument or nil as argument means use current buffer as BUFFER. */) No argument or nil as argument means use current buffer as BUFFER. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
register struct buffer *buf; register struct buffer *buf;
if (NILP (buffer)) if (NILP (buffer))
...@@ -1077,8 +1063,7 @@ DEFUN ("set-buffer-modified-p", Fset_buffer_modified_p, Sset_buffer_modified_p, ...@@ -1077,8 +1063,7 @@ DEFUN ("set-buffer-modified-p", Fset_buffer_modified_p, Sset_buffer_modified_p,
1, 1, 0, 1, 1, 0,
doc: /* Mark current buffer as modified or unmodified according to FLAG. doc: /* Mark current buffer as modified or unmodified according to FLAG.
A non-nil FLAG means mark the buffer modified. */) A non-nil FLAG means mark the buffer modified. */)
(flag) (register Lisp_Object flag)
register Lisp_Object flag;
{ {
register int already; register int already;
register Lisp_Object fn; register Lisp_Object fn;
...@@ -1147,8 +1132,7 @@ DEFUN ("restore-buffer-modified-p", Frestore_buffer_modified_p, ...@@ -1147,8 +1132,7 @@ DEFUN ("restore-buffer-modified-p", Frestore_buffer_modified_p,
doc: /* Like `set-buffer-modified-p', with a difference concerning redisplay. doc: /* Like `set-buffer-modified-p', with a difference concerning redisplay.
It is not ensured that mode lines will be updated to show the modified It is not ensured that mode lines will be updated to show the modified
state of the current buffer. Use with care. */) state of the current buffer. Use with care. */)
(flag) (Lisp_Object flag)
Lisp_Object flag;
{ {
#ifdef CLASH_DETECTION #ifdef CLASH_DETECTION
Lisp_Object fn; Lisp_Object fn;
...@@ -1178,8 +1162,7 @@ DEFUN ("buffer-modified-tick", Fbuffer_modified_tick, Sbuffer_modified_tick, ...@@ -1178,8 +1162,7 @@ DEFUN ("buffer-modified-tick", Fbuffer_modified_tick, Sbuffer_modified_tick,
Each buffer has a tick counter which is incremented each time the Each buffer has a tick counter which is incremented each time the
text in that buffer is changed. It wraps around occasionally. text in that buffer is changed. It wraps around occasionally.
No argument or nil as argument means use current buffer as BUFFER. */) No argument or nil as argument means use current buffer as BUFFER. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
register struct buffer *buf; register struct buffer *buf;
if (NILP (buffer)) if (NILP (buffer))
...@@ -1203,8 +1186,7 @@ values returned by two individual calls of `buffer-chars-modified-tick', ...@@ -1203,8 +1186,7 @@ values returned by two individual calls of `buffer-chars-modified-tick',
you can tell whether a character change occurred in that buffer in you can tell whether a character change occurred in that buffer in
between these calls. No argument or nil as argument means use current between these calls. No argument or nil as argument means use current
buffer as BUFFER. */) buffer as BUFFER. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
register struct buffer *buf; register struct buffer *buf;
if (NILP (buffer)) if (NILP (buffer))
...@@ -1230,8 +1212,7 @@ If UNIQUE is non-nil, come up with a new name using ...@@ -1230,8 +1212,7 @@ If UNIQUE is non-nil, come up with a new name using
Interactively, you can set UNIQUE with a prefix argument. Interactively, you can set UNIQUE with a prefix argument.
We return the name we actually gave the buffer. We return the name we actually gave the buffer.
This does not change the name of the visited file (if any). */) This does not change the name of the visited file (if any). */)
(newname, unique) (register Lisp_Object newname, Lisp_Object unique)
register Lisp_Object newname, unique;
{ {
register Lisp_Object tem, buf; register Lisp_Object tem, buf;
...@@ -1278,8 +1259,7 @@ If the optional third argument FRAME is non-nil, use that frame's ...@@ -1278,8 +1259,7 @@ If the optional third argument FRAME is non-nil, use that frame's
buffer list instead of the selected frame's buffer list. buffer list instead of the selected frame's buffer list.
If no other buffer exists, the buffer `*scratch*' is returned. If no other buffer exists, the buffer `*scratch*' is returned.
If BUFFER is omitted or nil, some interesting buffer is returned. */) If BUFFER is omitted or nil, some interesting buffer is returned. */)
(buffer, visible_ok, frame) (register Lisp_Object buffer, Lisp_Object visible_ok, Lisp_Object frame)
register Lisp_Object buffer, visible_ok, frame;
{ {
Lisp_Object Fset_buffer_major_mode (Lisp_Object buffer); Lisp_Object Fset_buffer_major_mode (Lisp_Object buffer);
register Lisp_Object tail, buf, notsogood, tem, pred, add_ons; register Lisp_Object tail, buf, notsogood, tem, pred, add_ons;
...@@ -1350,8 +1330,7 @@ DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo, ...@@ -1350,8 +1330,7 @@ DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo,
0, 1, "", 0, 1, "",
doc: /* Start keeping undo information for buffer BUFFER. doc: /* Start keeping undo information for buffer BUFFER.
No argument or nil as argument means do this for the current buffer. */) No argument or nil as argument means do this for the current buffer. */)
(buffer) (register Lisp_Object buffer)
register Lisp_Object buffer;
{ {
Lisp_Object real_buffer; Lisp_Object real_buffer;
...@@ -1392,8 +1371,7 @@ is running. ...@@ -1392,8 +1371,7 @@ is running.
Any processes that have this buffer as the `process-buffer' are killed Any processes that have this buffer as the `process-buffer' are killed
with SIGHUP. */) with SIGHUP. */)
(buffer_or_name) (Lisp_Object buffer_or_name)
Lisp_Object buffer_or_name;
{ {
Lisp_Object buffer; Lisp_Object buffer;
register struct buffer *b; register struct buffer *b;
...@@ -1682,8 +1660,7 @@ For the *scratch* buffer, use `initial-major-mode', otherwise choose a mode ...@@ -1682,8 +1660,7 @@ For the *scratch* buffer, use `initial-major-mode', otherwise choose a mode
according to `default-major-mode'. according to `default-major-mode'.
Use this function before selecting the buffer, since it may need to inspect Use this function before selecting the buffer, since it may need to inspect
the current buffer's major mode. */) the current buffer's major mode. */)
(buffer) (Lisp_Object buffer)
Lisp_Object buffer;
{ {
int count; int count;
Lisp_Object function; Lisp_Object function;
...@@ -1770,8 +1747,7 @@ its buffer, use `pop-to-buffer' for displaying the buffer. ...@@ -1770,8 +1747,7 @@ its buffer, use `pop-to-buffer' for displaying the buffer.
WARNING: This is NOT the way to work on another buffer temporarily WARNING: This is NOT the way to work on another buffer temporarily
within a Lisp program! Use `set-buffer' instead. That avoids within a Lisp program! Use `set-buffer' instead. That avoids
messing with the window-buffer correspondences. */) messing with the window-buffer correspondences. */)
(buffer_or_name, norecord) (Lisp_Object buffer_or_name, Lisp_Object norecord)
Lisp_Object buffer_or_name, norecord;
{ {
if (EQ (buffer_or_name, Fwindow_buffer (selected_window))) if (EQ (buffer_or_name, Fwindow_buffer (selected_window)))
{ {
...@@ -1800,7 +1776,7 @@ messing with the window-buffer correspondences. */) ...@@ -1800,7 +1776,7 @@ messing with the window-buffer correspondences. */)
DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0, DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0,
doc: /* Return the current buffer as a Lisp object. */) doc: /* Return the current buffer as a Lisp object. */)
() (void)
{ {
register Lisp_Object buf; register Lisp_Object buf;
XSETBUFFER (buf, current_buffer); XSETBUFFER (buf, current_buffer);
...@@ -1986,8 +1962,7 @@ also `save-excursion' when you want to make a buffer current ...@@ -1986,8 +1962,7 @@ also `save-excursion' when you want to make a buffer current
temporarily. This function does not display the buffer, so its effect temporarily. This function does not display the buffer, so its effect
ends when the current command terminates. Use `switch-to-buffer' or ends when the current command terminates. Use `switch-to-buffer' or