diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/src/buffer.c b/src/buffer.c index 4e690f42934..7b543b80a25 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -160,7 +160,7 @@ nsberror (Lisp_Object spec) error ("Invalid buffer argument"); } -DEFUE ("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. Value is nil if OBJECT is not a buffer or if it has been killed. */) (Lisp_Object object) @@ -232,7 +232,7 @@ assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) return Qnil; } -DEFUE ("get-buffer", Fget_buffer, Sget_buffer, 1, 1, 0, +DEFUN ("get-buffer", Fget_buffer, Sget_buffer, 1, 1, 0, doc: /* Return the buffer named 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 @@ -294,7 +294,7 @@ get_truename_buffer (register Lisp_Object filename) return Qnil; } -DEFUE ("get-buffer-create", Fget_buffer_create, Sget_buffer_create, 1, 1, 0, +DEFUN ("get-buffer-create", Fget_buffer_create, Sget_buffer_create, 1, 1, 0, doc: /* Return the buffer specified by BUFFER-OR-NAME, creating a new one if needed. If BUFFER-OR-NAME is a string and a live buffer with that name exists, return that buffer. If no such buffer exists, create a new buffer with @@ -830,7 +830,7 @@ reset_buffer_local_variables (register struct buffer *b, int permanent_too) and set-visited-file-name ought to be able to use this to really rename the buffer properly. */ -DEFUE ("generate-new-buffer-name", Fgenerate_new_buffer_name, +DEFUN ("generate-new-buffer-name", Fgenerate_new_buffer_name, Sgenerate_new_buffer_name, 1, 2, 0, doc: /* Return a string that is the name of no existing buffer based on NAME. If there is no live buffer named NAME, then return NAME. @@ -868,7 +868,7 @@ it is in the sequence to be tried) even if a buffer with that name exists. */) } -DEFUE ("buffer-name", Fbuffer_name, Sbuffer_name, 0, 1, 0, +DEFUN ("buffer-name", Fbuffer_name, Sbuffer_name, 0, 1, 0, doc: /* Return the name of BUFFER, as a string. BUFFER defaults to the current buffer. Return nil if BUFFER has been killed. */) @@ -880,7 +880,7 @@ Return nil if BUFFER has been killed. */) return BVAR (XBUFFER (buffer), name); } -DEFUE ("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. No argument or nil as argument means use the current buffer. */) (register Lisp_Object buffer) @@ -915,7 +915,7 @@ BUFFER defaults to the current buffer. */) return base_buffer; } -DEFUE ("buffer-local-value", Fbuffer_local_value, +DEFUN ("buffer-local-value", Fbuffer_local_value, Sbuffer_local_value, 2, 2, 0, doc: /* Return the value of VARIABLE in BUFFER. If VARIABLE does not have a buffer-local binding in BUFFER, the value @@ -1056,7 +1056,7 @@ No argument or nil as argument means use current buffer as BUFFER. */) return result; } -DEFUE ("buffer-modified-p", Fbuffer_modified_p, Sbuffer_modified_p, +DEFUN ("buffer-modified-p", Fbuffer_modified_p, Sbuffer_modified_p, 0, 1, 0, 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. */) @@ -1074,7 +1074,7 @@ No argument or nil as argument means use current buffer as BUFFER. */) return BUF_SAVE_MODIFF (buf) < BUF_MODIFF (buf) ? Qt : Qnil; } -DEFUE ("set-buffer-modified-p", Fset_buffer_modified_p, Sset_buffer_modified_p, +DEFUN ("set-buffer-modified-p", Fset_buffer_modified_p, Sset_buffer_modified_p, 1, 1, 0, doc: /* Mark current buffer as modified or unmodified according to FLAG. A non-nil FLAG means mark the buffer modified. */) @@ -1266,7 +1266,7 @@ This does not change the name of the visited file (if any). */) return BVAR (current_buffer, name); } -DEFUE ("other-buffer", Fother_buffer, Sother_buffer, 0, 3, 0, +DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 3, 0, doc: /* Return most recently selected buffer other than BUFFER. Buffers not visible in windows are preferred to visible buffers, unless optional second argument VISIBLE-OK is non-nil. @@ -1340,7 +1340,7 @@ If BUFFER is omitted or nil, some interesting buffer is returned. */) return buf; } -DEFUE ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo, +DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo, 0, 1, "", doc: /* Start keeping undo information for buffer BUFFER. No argument or nil as argument means do this for the current buffer. */) @@ -1369,7 +1369,7 @@ Hook to be run (by `run-hooks', which see) when a buffer is killed.\n\ The buffer being killed will be current while the hook is running.\n\ See `kill-buffer'." */ -DEFUE ("kill-buffer", Fkill_buffer, Skill_buffer, 0, 1, "bKill buffer: ", +DEFUN ("kill-buffer", Fkill_buffer, Skill_buffer, 0, 1, "bKill buffer: ", doc: /* Kill buffer BUFFER-OR-NAME. The argument may be a buffer or the name of an existing buffer. Argument nil or omitted means kill the current buffer. Return t if the @@ -1788,7 +1788,7 @@ messing with the window-buffer correspondences. */) return switch_to_buffer_1 (buffer_or_name, norecord); } -DEFUE ("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. */) (void) { @@ -1898,7 +1898,7 @@ set_buffer_temp (struct buffer *b) fetch_buffer_markers (b); } -DEFUE ("set-buffer", Fset_buffer, Sset_buffer, 1, 1, 0, +DEFUN ("set-buffer", Fset_buffer, Sset_buffer, 1, 1, 0, doc: /* Make buffer BUFFER-OR-NAME current for editing operations. BUFFER-OR-NAME may be a buffer or the name of an existing buffer. See also `save-excursion' when you want to make a buffer current @@ -1927,7 +1927,7 @@ set_buffer_if_live (Lisp_Object buffer) return Qnil; } -DEFUE ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only, +DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only, Sbarf_if_buffer_read_only, 0, 0, 0, doc: /* Signal a `buffer-read-only' error if the current buffer is read-only. */) (void) @@ -2000,7 +2000,7 @@ its frame, iconify that frame. */) return Qnil; } -DEFUE ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, "*", +DEFUN ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, "*", doc: /* Delete the entire contents of the current buffer. Any narrowing restriction in effect (see `narrow-to-region') is removed, so the buffer is truly empty after this. */) @@ -2211,7 +2211,7 @@ DEFUN ("buffer-swap-text", Fbuffer_swap_text, Sbuffer_swap_text, return Qnil; } -DEFUE ("set-buffer-multibyte", Fset_buffer_multibyte, Sset_buffer_multibyte, +DEFUN ("set-buffer-multibyte", Fset_buffer_multibyte, Sset_buffer_multibyte, 1, 1, 0, doc: /* Set the multibyte flag of the current buffer to FLAG. If FLAG is t, this makes the buffer a multibyte buffer. @@ -2500,7 +2500,7 @@ current buffer is cleared. */) return flag; } -DEFUE ("kill-all-local-variables", Fkill_all_local_variables, +DEFUN ("kill-all-local-variables", Fkill_all_local_variables, Skill_all_local_variables, 0, 0, 0, doc: /* Switch to Fundamental mode by killing current buffer's local variables. Most local variable bindings are eliminated so that the default values @@ -3899,7 +3899,7 @@ DEFUN ("delete-overlay", Fdelete_overlay, Sdelete_overlay, 1, 1, 0, /* Overlay dissection functions. */ -DEFUE ("overlay-start", Foverlay_start, Soverlay_start, 1, 1, 0, +DEFUN ("overlay-start", Foverlay_start, Soverlay_start, 1, 1, 0, doc: /* Return the position at which OVERLAY starts. */) (Lisp_Object overlay) { @@ -3908,7 +3908,7 @@ DEFUE ("overlay-start", Foverlay_start, Soverlay_start, 1, 1, 0, return (Fmarker_position (OVERLAY_START (overlay))); } -DEFUE ("overlay-end", Foverlay_end, Soverlay_end, 1, 1, 0, +DEFUN ("overlay-end", Foverlay_end, Soverlay_end, 1, 1, 0, doc: /* Return the position at which OVERLAY ends. */) (Lisp_Object overlay) { @@ -3998,7 +3998,7 @@ end of the buffer. */) return result; } -DEFUE ("next-overlay-change", Fnext_overlay_change, Snext_overlay_change, +DEFUN ("next-overlay-change", Fnext_overlay_change, Snext_overlay_change, 1, 1, 0, doc: /* Return the next position after POS where an overlay starts or ends. If there are no overlay boundaries from POS to (point-max), @@ -4039,7 +4039,7 @@ the value is (point-max). */) return make_number (endpos); } -DEFUE ("previous-overlay-change", Fprevious_overlay_change, +DEFUN ("previous-overlay-change", Fprevious_overlay_change, Sprevious_overlay_change, 1, 1, 0, doc: /* Return the previous position before POS where an overlay starts or ends. If there are no overlay boundaries from (point-min) to POS, @@ -4108,7 +4108,7 @@ for positions far away from POS). */) return Qnil; } -DEFUE ("overlay-get", Foverlay_get, Soverlay_get, 2, 2, 0, +DEFUN ("overlay-get", Foverlay_get, Soverlay_get, 2, 2, 0, doc: /* Get the property of overlay OVERLAY with property name PROP. */) (Lisp_Object overlay, Lisp_Object prop) { |