diff options
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/src/editfns.c b/src/editfns.c index 85b30de6975..0c34a95b949 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -108,7 +108,7 @@ static void transpose_markers (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT); Lisp_Object Qbuffer_access_fontify_functions; -Lisp_Object Fuser_full_name (Lisp_Object); +INFUN (Fuser_full_name, 1); /* Symbol for the text property used to mark fields. */ @@ -185,7 +185,7 @@ init_editfns (void) #endif } -DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0, +DEFUE ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0, doc: /* Convert arg CHAR to a string containing that character. usage: (char-to-string CHAR) */) (Lisp_Object character) @@ -239,7 +239,7 @@ buildmark (EMACS_INT charpos, EMACS_INT bytepos) return mark; } -DEFUN ("point", Fpoint, Spoint, 0, 0, 0, +DEFUE ("point", Fpoint, Spoint, 0, 0, 0, doc: /* Return value of point, as an integer. Beginning of buffer is position (point-min). */) (void) @@ -249,7 +249,7 @@ Beginning of buffer is position (point-min). */) return temp; } -DEFUN ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0, +DEFUE ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0, doc: /* Return value of point, as a marker object. */) (void) { @@ -267,7 +267,7 @@ clip_to_bounds (EMACS_INT lower, EMACS_INT num, EMACS_INT upper) return num; } -DEFUN ("goto-char", Fgoto_char, Sgoto_char, 1, 1, "NGoto char: ", +DEFUE ("goto-char", Fgoto_char, Sgoto_char, 1, 1, "NGoto char: ", doc: /* Set point to POSITION, a number or marker. Beginning of buffer is position (point-min), end is (point-max). @@ -663,7 +663,7 @@ is before LIMIT, then LIMIT will be returned instead. */) return make_number (beg); } -DEFUN ("field-end", Ffield_end, Sfield_end, 0, 3, 0, +DEFUE ("field-end", Ffield_end, Sfield_end, 0, 3, 0, doc: /* Return the end of the field surrounding POS. A field is a region of text with the same `field' property. If POS is nil, the value of point is used for POS. @@ -678,7 +678,7 @@ is after LIMIT, then LIMIT will be returned instead. */) return make_number (end); } -DEFUN ("constrain-to-field", Fconstrain_to_field, Sconstrain_to_field, 2, 5, 0, +DEFUE ("constrain-to-field", Fconstrain_to_field, Sconstrain_to_field, 2, 5, 0, doc: /* Return the position closest to NEW-POS that is in the same field as OLD-POS. A field is a region of text with the same `field' property. @@ -787,7 +787,7 @@ Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil. */) } -DEFUN ("line-beginning-position", +DEFUE ("line-beginning-position", Fline_beginning_position, Sline_beginning_position, 0, 1, 0, doc: /* Return the character position of the first character on the current line. With argument N not nil or 1, move forward N - 1 lines first. @@ -829,7 +829,7 @@ This function does not move point. */) Qt, Qnil); } -DEFUN ("line-end-position", Fline_end_position, Sline_end_position, 0, 1, 0, +DEFUE ("line-end-position", Fline_end_position, Sline_end_position, 0, 1, 0, doc: /* Return the character position of the last character on the current line. With argument N not nil or 1, move forward N - 1 lines first. If scan reaches end of buffer, return that position. @@ -1048,7 +1048,7 @@ is in effect, in which case it is less. */) return temp; } -DEFUN ("point-max-marker", Fpoint_max_marker, Spoint_max_marker, 0, 0, 0, +DEFUE ("point-max-marker", Fpoint_max_marker, Spoint_max_marker, 0, 0, 0, doc: /* Return a marker to the maximum permissible value of point in this buffer. This is (1+ (buffer-size)), unless narrowing (a buffer restriction) is in effect, in which case it is less. */) @@ -1099,7 +1099,7 @@ If BYTEPOS is out of range, the value is nil. */) return make_number (BYTE_TO_CHAR (XINT (bytepos))); } -DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0, +DEFUE ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0, doc: /* Return the character following point, as a number. At the end of the buffer or accessible region, return 0. */) (void) @@ -1112,7 +1112,7 @@ At the end of the buffer or accessible region, return 0. */) return temp; } -DEFUN ("preceding-char", Fprevious_char, Sprevious_char, 0, 0, 0, +DEFUE ("preceding-char", Fprevious_char, Sprevious_char, 0, 0, 0, doc: /* Return the character preceding point, as a number. At the beginning of the buffer or accessible region, return 0. */) (void) @@ -1131,7 +1131,7 @@ At the beginning of the buffer or accessible region, return 0. */) return temp; } -DEFUN ("bobp", Fbobp, Sbobp, 0, 0, 0, +DEFUE ("bobp", Fbobp, Sbobp, 0, 0, 0, doc: /* Return t if point is at the beginning of the buffer. If the buffer is narrowed, this means the beginning of the narrowed part. */) (void) @@ -1141,7 +1141,7 @@ If the buffer is narrowed, this means the beginning of the narrowed part. */) return Qnil; } -DEFUN ("eobp", Feobp, Seobp, 0, 0, 0, +DEFUE ("eobp", Feobp, Seobp, 0, 0, 0, doc: /* Return t if point is at the end of the buffer. If the buffer is narrowed, this means the end of the narrowed part. */) (void) @@ -1151,7 +1151,7 @@ If the buffer is narrowed, this means the end of the narrowed part. */) return Qnil; } -DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0, +DEFUE ("bolp", Fbolp, Sbolp, 0, 0, 0, doc: /* Return t if point is at the beginning of a line. */) (void) { @@ -1160,7 +1160,7 @@ DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0, return Qnil; } -DEFUN ("eolp", Feolp, Seolp, 0, 0, 0, +DEFUE ("eolp", Feolp, Seolp, 0, 0, 0, doc: /* Return t if point is at the end of a line. `End of a line' includes point being at the end of the buffer. */) (void) @@ -1170,7 +1170,7 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0, return Qnil; } -DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0, +DEFUE ("char-after", Fchar_after, Schar_after, 0, 1, 0, doc: /* Return character in current buffer at position POS. POS is an integer or a marker and defaults to point. If POS is out of range, the value is nil. */) @@ -1247,7 +1247,7 @@ If POS is out of range, the value is nil. */) return val; } -DEFUN ("user-login-name", Fuser_login_name, Suser_login_name, 0, 1, 0, +DEFUE ("user-login-name", Fuser_login_name, Suser_login_name, 0, 1, 0, doc: /* Return the name under which the user logged in, as a string. This is based on the effective uid, not the real uid. Also, if the environment variables LOGNAME or USER are set, @@ -1387,7 +1387,7 @@ name, or nil if there is no such user. */) return full; } -DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0, +DEFUE ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0, doc: /* Return the host name of the machine you are running on, as a string. */) (void) { @@ -1462,7 +1462,7 @@ lo_time (time_t t) return t & ((1 << 16) - 1); } -DEFUN ("current-time", Fcurrent_time, Scurrent_time, 0, 0, 0, +DEFUE ("current-time", Fcurrent_time, Scurrent_time, 0, 0, 0, doc: /* Return the current time, as the number of seconds since 1970-01-01 00:00:00. The time is returned as a list of three integers. The first has the most significant 16 bits of the seconds, while the second has the @@ -1481,7 +1481,7 @@ resolution finer than a second. */) make_number (EMACS_USECS (t))); } -DEFUN ("get-internal-run-time", Fget_internal_run_time, Sget_internal_run_time, +DEFUE ("get-internal-run-time", Fget_internal_run_time, Sget_internal_run_time, 0, 0, 0, doc: /* Return the current run time used by Emacs. The time is returned as a list of three integers. The first has the @@ -2255,7 +2255,7 @@ insert1 (Lisp_Object arg) not be used after calling insert or insert_from_string, so we don't care if it gets trashed. */ -DEFUN ("insert", Finsert, Sinsert, 0, MANY, 0, +DEFUE ("insert", Finsert, Sinsert, 0, MANY, 0, doc: /* Insert the arguments, either strings or characters, at point. Point and before-insertion markers move forward to end up after the inserted text. @@ -2335,7 +2335,7 @@ usage: (insert-before-markers-and-inherit &rest ARGS) */) return Qnil; } -DEFUN ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0, +DEFUE ("insert-char", Finsert_char, Sinsert_char, 2, 3, 0, doc: /* Insert COUNT copies of CHARACTER. Point, and before-insertion markers, are relocated as in the function `insert'. The optional third arg INHERIT, if non-nil, says to inherit text properties @@ -2509,7 +2509,7 @@ update_buffer_properties (EMACS_INT start, EMACS_INT end) } } -DEFUN ("buffer-substring", Fbuffer_substring, Sbuffer_substring, 2, 2, 0, +DEFUE ("buffer-substring", Fbuffer_substring, Sbuffer_substring, 2, 2, 0, doc: /* Return the contents of part of the current buffer as a string. The two arguments START and END are character positions; they can be in either order. @@ -2545,7 +2545,7 @@ they can be in either order. */) return make_buffer_string (b, e, 0); } -DEFUN ("buffer-string", Fbuffer_string, Sbuffer_string, 0, 0, 0, +DEFUE ("buffer-string", Fbuffer_string, Sbuffer_string, 0, 0, 0, doc: /* Return the contents of the current buffer as a string. If narrowing is in effect, this function returns only the visible part of the buffer. */) @@ -3183,7 +3183,7 @@ It returns the number of characters changed. */) return make_number (cnt); } -DEFUN ("delete-region", Fdelete_region, Sdelete_region, 2, 2, "r", +DEFUE ("delete-region", Fdelete_region, Sdelete_region, 2, 2, "r", doc: /* Delete the text between point and mark. When called from a program, expects two arguments, @@ -3206,7 +3206,7 @@ DEFUN ("delete-and-extract-region", Fdelete_and_extract_region, return del_range_1 (XINT (start), XINT (end), 1, 1); } -DEFUN ("widen", Fwiden, Swiden, 0, 0, "", +DEFUE ("widen", Fwiden, Swiden, 0, 0, "", doc: /* Remove restrictions (narrowing) from current buffer. This allows the buffer's full text to be seen and edited. */) (void) @@ -3221,7 +3221,7 @@ This allows the buffer's full text to be seen and edited. */) return Qnil; } -DEFUN ("narrow-to-region", Fnarrow_to_region, Snarrow_to_region, 2, 2, "r", +DEFUE ("narrow-to-region", Fnarrow_to_region, Snarrow_to_region, 2, 2, "r", doc: /* Restrict editing in this buffer to the current region. The rest of the text becomes temporarily invisible and untouchable but is not deleted; if you save the buffer in a file, the invisible @@ -3382,7 +3382,7 @@ static char *message_text; /* Allocated length of that buffer. */ static int message_length; -DEFUN ("message", Fmessage, Smessage, 1, MANY, 0, +DEFUE ("message", Fmessage, Smessage, 1, MANY, 0, doc: /* Display a message at the bottom of the screen. The message also goes into the `*Messages*' buffer. \(In keyboard macros, that's all it does.) @@ -3494,7 +3494,7 @@ usage: (message-or-box FORMAT-STRING &rest ARGS) */) return Fmessage (nargs, args); } -DEFUN ("current-message", Fcurrent_message, Scurrent_message, 0, 0, 0, +DEFUE ("current-message", Fcurrent_message, Scurrent_message, 0, 0, 0, doc: /* Return the string currently displayed in the echo area, or nil if none. */) (void) { @@ -3543,7 +3543,7 @@ usage: (propertize STRING &rest PROPERTIES) */) ? count_size_as_multibyte (SDATA (STRING), SBYTES (STRING)) \ : SBYTES (STRING)) -DEFUN ("format", Fformat, Sformat, 1, MANY, 0, +DEFUE ("format", Fformat, Sformat, 1, MANY, 0, doc: /* Format a string out of a format-string and arguments. The first argument is a format control string. The other arguments are substituted into it to make the result, a string. |