comparison src/buffer.c @ 75784:ea846c2df7e0

Reflow docstrings.
author Juanma Barranquero <lekktu@gmail.com>
date Sun, 11 Feb 2007 02:16:37 +0000
parents 3d45362f1d38
children 89c077825908 07774e5c3ff5 52a7f3f50b89
comparison
equal deleted inserted replaced
75783:c4351f84ca81 75784:ea846c2df7e0
417 417
418 /* Put this in the alist of all live buffers. */ 418 /* Put this in the alist of all live buffers. */
419 XSETBUFFER (buf, b); 419 XSETBUFFER (buf, b);
420 Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil)); 420 Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil));
421 421
422 /* An error in calling the function here (should someone redfine it) 422 /* An error in calling the function here (should someone redefine it)
423 can lead to infinite regress until you run out of stack. rms 423 can lead to infinite regress until you run out of stack. rms
424 says that's not worth protecting against. */ 424 says that's not worth protecting against. */
425 if (!NILP (Ffboundp (Qucs_set_table_for_input))) 425 if (!NILP (Ffboundp (Qucs_set_table_for_input)))
426 /* buf is on buffer-alist, so no gcpro. */ 426 /* buf is on buffer-alist, so no gcpro. */
427 call1 (Qucs_set_table_for_input, buf); 427 call1 (Qucs_set_table_for_input, buf);
789 1, 2, 0, 789 1, 2, 0,
790 doc: /* Return a string that is the name of no existing buffer based on NAME. 790 doc: /* Return a string that is the name of no existing buffer based on NAME.
791 If there is no live buffer named NAME, then return NAME. 791 If there is no live buffer named NAME, then return NAME.
792 Otherwise modify name by appending `<NUMBER>', incrementing NUMBER 792 Otherwise modify name by appending `<NUMBER>', incrementing NUMBER
793 \(starting at 2) until an unused name is found, and then return that name. 793 \(starting at 2) until an unused name is found, and then return that name.
794 Optional second argument IGNORE specifies a name that is okay to use 794 Optional second argument IGNORE specifies a name that is okay to use (if
795 \(if it is in the sequence to be tried) 795 it is in the sequence to be tried) even if a buffer with that name exists. */)
796 even if a buffer with that name exists. */)
797 (name, ignore) 796 (name, ignore)
798 register Lisp_Object name, ignore; 797 register Lisp_Object name, ignore;
799 { 798 {
800 register Lisp_Object gentemp, tem; 799 register Lisp_Object gentemp, tem;
801 int count; 800 int count;
1130 } 1129 }
1131 1130
1132 DEFUN ("buffer-modified-tick", Fbuffer_modified_tick, Sbuffer_modified_tick, 1131 DEFUN ("buffer-modified-tick", Fbuffer_modified_tick, Sbuffer_modified_tick,
1133 0, 1, 0, 1132 0, 1, 0,
1134 doc: /* Return BUFFER's tick counter, incremented for each change in text. 1133 doc: /* Return BUFFER's tick counter, incremented for each change in text.
1135 Each buffer has a tick counter which is incremented each time the text in 1134 Each buffer has a tick counter which is incremented each time the
1136 that buffer is changed. It wraps around occasionally. 1135 text in that buffer is changed. It wraps around occasionally.
1137 No argument or nil as argument means use current buffer as BUFFER. */) 1136 No argument or nil as argument means use current buffer as BUFFER. */)
1138 (buffer) 1137 (buffer)
1139 register Lisp_Object buffer; 1138 register Lisp_Object buffer;
1140 { 1139 {
1141 register struct buffer *buf; 1140 register struct buffer *buf;