]> code.delx.au - gnu-emacs/blob - lispref/text.texi
Replace @sc{foo} with @acronym{FOO}.
[gnu-emacs] / lispref / text.texi
1 @c -*-texinfo-*-
2 @c This is part of the GNU Emacs Lisp Reference Manual.
3 @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001
4 @c Free Software Foundation, Inc.
5 @c See the file elisp.texi for copying conditions.
6 @setfilename ../info/text
7 @node Text, Non-ASCII Characters, Markers, Top
8 @chapter Text
9 @cindex text
10
11 This chapter describes the functions that deal with the text in a
12 buffer. Most examine, insert, or delete text in the current buffer,
13 often operating at point or on text adjacent to point. Many are
14 interactive. All the functions that change the text provide for undoing
15 the changes (@pxref{Undo}).
16
17 Many text-related functions operate on a region of text defined by two
18 buffer positions passed in arguments named @var{start} and @var{end}.
19 These arguments should be either markers (@pxref{Markers}) or numeric
20 character positions (@pxref{Positions}). The order of these arguments
21 does not matter; it is all right for @var{start} to be the end of the
22 region and @var{end} the beginning. For example, @code{(delete-region 1
23 10)} and @code{(delete-region 10 1)} are equivalent. An
24 @code{args-out-of-range} error is signaled if either @var{start} or
25 @var{end} is outside the accessible portion of the buffer. In an
26 interactive call, point and the mark are used for these arguments.
27
28 @cindex buffer contents
29 Throughout this chapter, ``text'' refers to the characters in the
30 buffer, together with their properties (when relevant). Keep in mind
31 that point is always between two characters, and the cursor appears on
32 the character after point.
33
34 @menu
35 * Near Point:: Examining text in the vicinity of point.
36 * Buffer Contents:: Examining text in a general fashion.
37 * Comparing Text:: Comparing substrings of buffers.
38 * Insertion:: Adding new text to a buffer.
39 * Commands for Insertion:: User-level commands to insert text.
40 * Deletion:: Removing text from a buffer.
41 * User-Level Deletion:: User-level commands to delete text.
42 * The Kill Ring:: Where removed text sometimes is saved for later use.
43 * Undo:: Undoing changes to the text of a buffer.
44 * Maintaining Undo:: How to enable and disable undo information.
45 How to control how much information is kept.
46 * Filling:: Functions for explicit filling.
47 * Margins:: How to specify margins for filling commands.
48 * Adaptive Fill:: Adaptive Fill mode chooses a fill prefix from context.
49 * Auto Filling:: How auto-fill mode is implemented to break lines.
50 * Sorting:: Functions for sorting parts of the buffer.
51 * Columns:: Computing horizontal positions, and using them.
52 * Indentation:: Functions to insert or adjust indentation.
53 * Case Changes:: Case conversion of parts of the buffer.
54 * Text Properties:: Assigning Lisp property lists to text characters.
55 * Substitution:: Replacing a given character wherever it appears.
56 * Transposition:: Swapping two portions of a buffer.
57 * Registers:: How registers are implemented. Accessing the text or
58 position stored in a register.
59 * Base 64:: Conversion to or from base 64 encoding.
60 * MD5 Checksum:: Compute the MD5 ``message digest''/``checksum''.
61 * Atomic Changes:: Installing several buffer changs ``atomically''.
62 * Change Hooks:: Supplying functions to be run when text is changed.
63 @end menu
64
65 @node Near Point
66 @section Examining Text Near Point
67
68 Many functions are provided to look at the characters around point.
69 Several simple functions are described here. See also @code{looking-at}
70 in @ref{Regexp Search}.
71
72 @defun char-after &optional position
73 This function returns the character in the current buffer at (i.e.,
74 immediately after) position @var{position}. If @var{position} is out of
75 range for this purpose, either before the beginning of the buffer, or at
76 or beyond the end, then the value is @code{nil}. The default for
77 @var{position} is point.
78
79 In the following example, assume that the first character in the
80 buffer is @samp{@@}:
81
82 @example
83 @group
84 (char-to-string (char-after 1))
85 @result{} "@@"
86 @end group
87 @end example
88 @end defun
89
90 @defun char-before &optional position
91 This function returns the character in the current buffer immediately
92 before position @var{position}. If @var{position} is out of range for
93 this purpose, either at or before the beginning of the buffer, or beyond
94 the end, then the value is @code{nil}. The default for
95 @var{position} is point.
96 @end defun
97
98 @defun following-char
99 This function returns the character following point in the current
100 buffer. This is similar to @code{(char-after (point))}. However, if
101 point is at the end of the buffer, then @code{following-char} returns 0.
102
103 Remember that point is always between characters, and the terminal
104 cursor normally appears over the character following point. Therefore,
105 the character returned by @code{following-char} is the character the
106 cursor is over.
107
108 In this example, point is between the @samp{a} and the @samp{c}.
109
110 @example
111 @group
112 ---------- Buffer: foo ----------
113 Gentlemen may cry ``Pea@point{}ce! Peace!,''
114 but there is no peace.
115 ---------- Buffer: foo ----------
116 @end group
117
118 @group
119 (char-to-string (preceding-char))
120 @result{} "a"
121 (char-to-string (following-char))
122 @result{} "c"
123 @end group
124 @end example
125 @end defun
126
127 @defun preceding-char
128 This function returns the character preceding point in the current
129 buffer. See above, under @code{following-char}, for an example. If
130 point is at the beginning of the buffer, @code{preceding-char} returns
131 0.
132 @end defun
133
134 @defun bobp
135 This function returns @code{t} if point is at the beginning of the
136 buffer. If narrowing is in effect, this means the beginning of the
137 accessible portion of the text. See also @code{point-min} in
138 @ref{Point}.
139 @end defun
140
141 @defun eobp
142 This function returns @code{t} if point is at the end of the buffer.
143 If narrowing is in effect, this means the end of accessible portion of
144 the text. See also @code{point-max} in @xref{Point}.
145 @end defun
146
147 @defun bolp
148 This function returns @code{t} if point is at the beginning of a line.
149 @xref{Text Lines}. The beginning of the buffer (or of its accessible
150 portion) always counts as the beginning of a line.
151 @end defun
152
153 @defun eolp
154 This function returns @code{t} if point is at the end of a line. The
155 end of the buffer (or of its accessible portion) is always considered
156 the end of a line.
157 @end defun
158
159 @node Buffer Contents
160 @section Examining Buffer Contents
161
162 This section describes two functions that allow a Lisp program to
163 convert any portion of the text in the buffer into a string.
164
165 @defun buffer-substring start end
166 This function returns a string containing a copy of the text of the
167 region defined by positions @var{start} and @var{end} in the current
168 buffer. If the arguments are not positions in the accessible portion of
169 the buffer, @code{buffer-substring} signals an @code{args-out-of-range}
170 error.
171
172 It is not necessary for @var{start} to be less than @var{end}; the
173 arguments can be given in either order. But most often the smaller
174 argument is written first.
175
176 If the text being copied has any text properties, these are copied into
177 the string along with the characters they belong to. @xref{Text
178 Properties}. However, overlays (@pxref{Overlays}) in the buffer and
179 their properties are ignored, not copied.
180
181 @example
182 @group
183 ---------- Buffer: foo ----------
184 This is the contents of buffer foo
185
186 ---------- Buffer: foo ----------
187 @end group
188
189 @group
190 (buffer-substring 1 10)
191 @result{} "This is t"
192 @end group
193 @group
194 (buffer-substring (point-max) 10)
195 @result{} "he contents of buffer foo
196 "
197 @end group
198 @end example
199 @end defun
200
201 @defun buffer-substring-no-properties start end
202 This is like @code{buffer-substring}, except that it does not copy text
203 properties, just the characters themselves. @xref{Text Properties}.
204 @end defun
205
206 @defun buffer-string
207 This function returns the contents of the entire accessible portion of
208 the current buffer as a string. It is equivalent to
209
210 @example
211 (buffer-substring (point-min) (point-max))
212 @end example
213
214 @example
215 @group
216 ---------- Buffer: foo ----------
217 This is the contents of buffer foo
218
219 ---------- Buffer: foo ----------
220
221 (buffer-string)
222 @result{} "This is the contents of buffer foo
223 "
224 @end group
225 @end example
226 @end defun
227
228 @tindex current-word
229 @defun current-word &optional strict really-word
230 This function returns the symbol (or word) at or near point, as a string.
231 The return value includes no text properties.
232
233 The optional argument @var{really-word} is non-@code{nil}, it finds a
234 word; otherwise, it finds a symbol (which includes word characters and
235 both symbol constituent characters).
236
237 If the optional argument @var{strict} is non-@code{nil}, then point
238 must be in or next to the symbol or word---if no symbol or word is
239 there, the function returns @code{nil}. Otherwise, a nearby symbol or
240 word on the same line is acceptable.
241 @end defun
242
243 @defun thing-at-point thing
244 Return the @var{thing} around or next to point, as a string.
245
246 The argument @var{thing} is a symbol which specifies a kind of syntactic
247 entity. Possibilities include @code{symbol}, @code{list}, @code{sexp},
248 @code{defun}, @code{filename}, @code{url}, @code{word}, @code{sentence},
249 @code{whitespace}, @code{line}, @code{page}, and others.
250
251 @example
252 ---------- Buffer: foo ----------
253 Gentlemen may cry ``Pea@point{}ce! Peace!,''
254 but there is no peace.
255 ---------- Buffer: foo ----------
256
257 (thing-at-point 'word)
258 @result{} "Peace"
259 (thing-at-point 'line)
260 @result{} "Gentlemen may cry ``Peace! Peace!,''\n"
261 (thing-at-point 'whitespace)
262 @result{} nil
263 @end example
264 @end defun
265
266 @node Comparing Text
267 @section Comparing Text
268 @cindex comparing buffer text
269
270 This function lets you compare portions of the text in a buffer, without
271 copying them into strings first.
272
273 @defun compare-buffer-substrings buffer1 start1 end1 buffer2 start2 end2
274 This function lets you compare two substrings of the same buffer or two
275 different buffers. The first three arguments specify one substring,
276 giving a buffer and two positions within the buffer. The last three
277 arguments specify the other substring in the same way. You can use
278 @code{nil} for @var{buffer1}, @var{buffer2}, or both to stand for the
279 current buffer.
280
281 The value is negative if the first substring is less, positive if the
282 first is greater, and zero if they are equal. The absolute value of
283 the result is one plus the index of the first differing characters
284 within the substrings.
285
286 This function ignores case when comparing characters
287 if @code{case-fold-search} is non-@code{nil}. It always ignores
288 text properties.
289
290 Suppose the current buffer contains the text @samp{foobarbar
291 haha!rara!}; then in this example the two substrings are @samp{rbar }
292 and @samp{rara!}. The value is 2 because the first substring is greater
293 at the second character.
294
295 @example
296 (compare-buffer-substrings nil 6 11 nil 16 21)
297 @result{} 2
298 @end example
299 @end defun
300
301 @node Insertion
302 @section Inserting Text
303 @cindex insertion of text
304 @cindex text insertion
305
306 @cindex insertion before point
307 @cindex before point, insertion
308 @dfn{Insertion} means adding new text to a buffer. The inserted text
309 goes at point---between the character before point and the character
310 after point. Some insertion functions leave point before the inserted
311 text, while other functions leave it after. We call the former
312 insertion @dfn{after point} and the latter insertion @dfn{before point}.
313
314 Insertion relocates markers that point at positions after the
315 insertion point, so that they stay with the surrounding text
316 (@pxref{Markers}). When a marker points at the place of insertion,
317 insertion may or may not relocate the marker, depending on the marker's
318 insertion type (@pxref{Marker Insertion Types}). Certain special
319 functions such as @code{insert-before-markers} relocate all such markers
320 to point after the inserted text, regardless of the markers' insertion
321 type.
322
323 Insertion functions signal an error if the current buffer is
324 read-only or if they insert within read-only text.
325
326 These functions copy text characters from strings and buffers along
327 with their properties. The inserted characters have exactly the same
328 properties as the characters they were copied from. By contrast,
329 characters specified as separate arguments, not part of a string or
330 buffer, inherit their text properties from the neighboring text.
331
332 The insertion functions convert text from unibyte to multibyte in
333 order to insert in a multibyte buffer, and vice versa---if the text
334 comes from a string or from a buffer. However, they do not convert
335 unibyte character codes 128 through 255 to multibyte characters, not
336 even if the current buffer is a multibyte buffer. @xref{Converting
337 Representations}.
338
339 @defun insert &rest args
340 This function inserts the strings and/or characters @var{args} into the
341 current buffer, at point, moving point forward. In other words, it
342 inserts the text before point. An error is signaled unless all
343 @var{args} are either strings or characters. The value is @code{nil}.
344 @end defun
345
346 @defun insert-before-markers &rest args
347 This function inserts the strings and/or characters @var{args} into the
348 current buffer, at point, moving point forward. An error is signaled
349 unless all @var{args} are either strings or characters. The value is
350 @code{nil}.
351
352 This function is unlike the other insertion functions in that it
353 relocates markers initially pointing at the insertion point, to point
354 after the inserted text. If an overlay begins the insertion point, the
355 inserted text falls outside the overlay; if a nonempty overlay ends at
356 the insertion point, the inserted text falls inside that overlay.
357 @end defun
358
359 @defun insert-char character count &optional inherit
360 This function inserts @var{count} instances of @var{character} into the
361 current buffer before point. The argument @var{count} should be a
362 number (@code{nil} means 1), and @var{character} must be a character.
363 The value is @code{nil}.
364
365 This function does not convert unibyte character codes 128 through 255
366 to multibyte characters, not even if the current buffer is a multibyte
367 buffer. @xref{Converting Representations}.
368
369 If @var{inherit} is non-@code{nil}, then the inserted characters inherit
370 sticky text properties from the two characters before and after the
371 insertion point. @xref{Sticky Properties}.
372 @end defun
373
374 @defun insert-buffer-substring from-buffer-or-name &optional start end
375 This function inserts a portion of buffer @var{from-buffer-or-name}
376 (which must already exist) into the current buffer before point. The
377 text inserted is the region from @var{start} and @var{end}. (These
378 arguments default to the beginning and end of the accessible portion of
379 that buffer.) This function returns @code{nil}.
380
381 In this example, the form is executed with buffer @samp{bar} as the
382 current buffer. We assume that buffer @samp{bar} is initially empty.
383
384 @example
385 @group
386 ---------- Buffer: foo ----------
387 We hold these truths to be self-evident, that all
388 ---------- Buffer: foo ----------
389 @end group
390
391 @group
392 (insert-buffer-substring "foo" 1 20)
393 @result{} nil
394
395 ---------- Buffer: bar ----------
396 We hold these truth@point{}
397 ---------- Buffer: bar ----------
398 @end group
399 @end example
400 @end defun
401
402 @defun insert-buffer-substring-no-properties from-buffer-or-name &optional start end
403 This is like @code{insert-buffer-substring} except that it does not
404 copy any text properties.
405 @end defun
406
407 @xref{Sticky Properties}, for other insertion functions that inherit
408 text properties from the nearby text in addition to inserting it.
409 Whitespace inserted by indentation functions also inherits text
410 properties.
411
412 @node Commands for Insertion
413 @section User-Level Insertion Commands
414
415 This section describes higher-level commands for inserting text,
416 commands intended primarily for the user but useful also in Lisp
417 programs.
418
419 @deffn Command insert-buffer from-buffer-or-name
420 This command inserts the entire contents of @var{from-buffer-or-name}
421 (which must exist) into the current buffer after point. It leaves
422 the mark after the inserted text. The value is @code{nil}.
423 @end deffn
424
425 @deffn Command self-insert-command count
426 @cindex character insertion
427 @cindex self-insertion
428 This command inserts the last character typed; it does so @var{count}
429 times, before point, and returns @code{nil}. Most printing characters
430 are bound to this command. In routine use, @code{self-insert-command}
431 is the most frequently called function in Emacs, but programs rarely use
432 it except to install it on a keymap.
433
434 In an interactive call, @var{count} is the numeric prefix argument.
435
436 This command calls @code{auto-fill-function} whenever that is
437 non-@code{nil} and the character inserted is in the table
438 @code{auto-fill-chars} (@pxref{Auto Filling}).
439
440 @c Cross refs reworded to prevent overfull hbox. --rjc 15mar92
441 This command performs abbrev expansion if Abbrev mode is enabled and
442 the inserted character does not have word-constituent
443 syntax. (@xref{Abbrevs}, and @ref{Syntax Class Table}.)
444
445 This is also responsible for calling @code{blink-paren-function} when
446 the inserted character has close parenthesis syntax (@pxref{Blinking}).
447
448 Do not try substituting your own definition of
449 @code{self-insert-command} for the standard one. The editor command
450 loop handles this function specially.
451 @end deffn
452
453 @deffn Command newline &optional number-of-newlines
454 This command inserts newlines into the current buffer before point.
455 If @var{number-of-newlines} is supplied, that many newline characters
456 are inserted.
457
458 @cindex newline and Auto Fill mode
459 This function calls @code{auto-fill-function} if the current column
460 number is greater than the value of @code{fill-column} and
461 @var{number-of-newlines} is @code{nil}. Typically what
462 @code{auto-fill-function} does is insert a newline; thus, the overall
463 result in this case is to insert two newlines at different places: one
464 at point, and another earlier in the line. @code{newline} does not
465 auto-fill if @var{number-of-newlines} is non-@code{nil}.
466
467 This command indents to the left margin if that is not zero.
468 @xref{Margins}.
469
470 The value returned is @code{nil}. In an interactive call, @var{count}
471 is the numeric prefix argument.
472 @end deffn
473
474 @deffn Command split-line
475 This command splits the current line, moving the portion of the line
476 after point down vertically so that it is on the next line directly
477 below where it was before. Whitespace is inserted as needed at the
478 beginning of the lower line, using the @code{indent-to} function.
479 @code{split-line} returns the position of point.
480
481 Programs hardly ever use this function.
482 @end deffn
483
484 @defvar overwrite-mode
485 This variable controls whether overwrite mode is in effect. The value
486 should be @code{overwrite-mode-textual}, @code{overwrite-mode-binary},
487 or @code{nil}. @code{overwrite-mode-textual} specifies textual
488 overwrite mode (treats newlines and tabs specially), and
489 @code{overwrite-mode-binary} specifies binary overwrite mode (treats
490 newlines and tabs like any other characters).
491 @end defvar
492
493 @node Deletion
494 @section Deleting Text
495
496 @cindex deletion vs killing
497 Deletion means removing part of the text in a buffer, without saving
498 it in the kill ring (@pxref{The Kill Ring}). Deleted text can't be
499 yanked, but can be reinserted using the undo mechanism (@pxref{Undo}).
500 Some deletion functions do save text in the kill ring in some special
501 cases.
502
503 All of the deletion functions operate on the current buffer, and all
504 return a value of @code{nil}.
505
506 @deffn Command erase-buffer
507 This function deletes the entire text of the current buffer, leaving it
508 empty. If the buffer is read-only, it signals a @code{buffer-read-only}
509 error; if some of the text in it is read-only, it signals a
510 @code{text-read-only} error. Otherwise, it deletes the text without
511 asking for any confirmation. It returns @code{nil}.
512
513 Normally, deleting a large amount of text from a buffer inhibits further
514 auto-saving of that buffer ``because it has shrunk''. However,
515 @code{erase-buffer} does not do this, the idea being that the future
516 text is not really related to the former text, and its size should not
517 be compared with that of the former text.
518 @end deffn
519
520 @deffn Command delete-region start end
521 This command deletes the text between positions @var{start} and
522 @var{end} in the current buffer, and returns @code{nil}. If point was
523 inside the deleted region, its value afterward is @var{start}.
524 Otherwise, point relocates with the surrounding text, as markers do.
525 @end deffn
526
527 @defun delete-and-extract-region start end
528 @tindex delete-and-extract-region
529 This function deletes the text between positions @var{start} and
530 @var{end} in the current buffer, and returns a string containing the
531 text just deleted.
532
533 If point was inside the deleted region, its value afterward is
534 @var{start}. Otherwise, point relocates with the surrounding text, as
535 markers do.
536 @end defun
537
538 @deffn Command delete-char count &optional killp
539 This command deletes @var{count} characters directly after point, or
540 before point if @var{count} is negative. If @var{killp} is
541 non-@code{nil}, then it saves the deleted characters in the kill ring.
542
543 In an interactive call, @var{count} is the numeric prefix argument, and
544 @var{killp} is the unprocessed prefix argument. Therefore, if a prefix
545 argument is supplied, the text is saved in the kill ring. If no prefix
546 argument is supplied, then one character is deleted, but not saved in
547 the kill ring.
548
549 The value returned is always @code{nil}.
550 @end deffn
551
552 @deffn Command delete-backward-char count &optional killp
553 @cindex delete previous char
554 This command deletes @var{count} characters directly before point, or
555 after point if @var{count} is negative. If @var{killp} is
556 non-@code{nil}, then it saves the deleted characters in the kill ring.
557
558 In an interactive call, @var{count} is the numeric prefix argument, and
559 @var{killp} is the unprocessed prefix argument. Therefore, if a prefix
560 argument is supplied, the text is saved in the kill ring. If no prefix
561 argument is supplied, then one character is deleted, but not saved in
562 the kill ring.
563
564 The value returned is always @code{nil}.
565 @end deffn
566
567 @deffn Command backward-delete-char-untabify count &optional killp
568 @cindex tab deletion
569 This command deletes @var{count} characters backward, changing tabs
570 into spaces. When the next character to be deleted is a tab, it is
571 first replaced with the proper number of spaces to preserve alignment
572 and then one of those spaces is deleted instead of the tab. If
573 @var{killp} is non-@code{nil}, then the command saves the deleted
574 characters in the kill ring.
575
576 Conversion of tabs to spaces happens only if @var{count} is positive.
577 If it is negative, exactly @minus{}@var{count} characters after point
578 are deleted.
579
580 In an interactive call, @var{count} is the numeric prefix argument, and
581 @var{killp} is the unprocessed prefix argument. Therefore, if a prefix
582 argument is supplied, the text is saved in the kill ring. If no prefix
583 argument is supplied, then one character is deleted, but not saved in
584 the kill ring.
585
586 The value returned is always @code{nil}.
587 @end deffn
588
589 @defopt backward-delete-char-untabify-method
590 This option specifies how @code{backward-delete-char-untabify} should
591 deal with whitespace. Possible values include @code{untabify}, the
592 default, meaning convert a tab to many spaces and delete one;
593 @code{hungry}, meaning delete all the whitespace characters before point
594 with one command, and @code{nil}, meaning do nothing special for
595 whitespace characters.
596 @end defopt
597
598 @node User-Level Deletion
599 @section User-Level Deletion Commands
600
601 This section describes higher-level commands for deleting text,
602 commands intended primarily for the user but useful also in Lisp
603 programs.
604
605 @deffn Command delete-horizontal-space
606 @cindex deleting whitespace
607 This function deletes all spaces and tabs around point. It returns
608 @code{nil}.
609
610 In the following examples, we call @code{delete-horizontal-space} four
611 times, once on each line, with point between the second and third
612 characters on the line each time.
613
614 @example
615 @group
616 ---------- Buffer: foo ----------
617 I @point{}thought
618 I @point{} thought
619 We@point{} thought
620 Yo@point{}u thought
621 ---------- Buffer: foo ----------
622 @end group
623
624 @group
625 (delete-horizontal-space) ; @r{Four times.}
626 @result{} nil
627
628 ---------- Buffer: foo ----------
629 Ithought
630 Ithought
631 Wethought
632 You thought
633 ---------- Buffer: foo ----------
634 @end group
635 @end example
636 @end deffn
637
638 @deffn Command delete-indentation &optional join-following-p
639 This function joins the line point is on to the previous line, deleting
640 any whitespace at the join and in some cases replacing it with one
641 space. If @var{join-following-p} is non-@code{nil},
642 @code{delete-indentation} joins this line to the following line
643 instead. The function returns @code{nil}.
644
645 If there is a fill prefix, and the second of the lines being joined
646 starts with the prefix, then @code{delete-indentation} deletes the
647 fill prefix before joining the lines. @xref{Margins}.
648
649 In the example below, point is located on the line starting
650 @samp{events}, and it makes no difference if there are trailing spaces
651 in the preceding line.
652
653 @smallexample
654 @group
655 ---------- Buffer: foo ----------
656 When in the course of human
657 @point{} events, it becomes necessary
658 ---------- Buffer: foo ----------
659 @end group
660
661 (delete-indentation)
662 @result{} nil
663
664 @group
665 ---------- Buffer: foo ----------
666 When in the course of human@point{} events, it becomes necessary
667 ---------- Buffer: foo ----------
668 @end group
669 @end smallexample
670
671 After the lines are joined, the function @code{fixup-whitespace} is
672 responsible for deciding whether to leave a space at the junction.
673 @end deffn
674
675 @defun fixup-whitespace
676 This function replaces all the whitespace surrounding point with either
677 one space or no space, according to the context. It returns @code{nil}.
678
679 At the beginning or end of a line, the appropriate amount of space is
680 none. Before a character with close parenthesis syntax, or after a
681 character with open parenthesis or expression-prefix syntax, no space is
682 also appropriate. Otherwise, one space is appropriate. @xref{Syntax
683 Class Table}.
684
685 In the example below, @code{fixup-whitespace} is called the first time
686 with point before the word @samp{spaces} in the first line. For the
687 second invocation, point is directly after the @samp{(}.
688
689 @smallexample
690 @group
691 ---------- Buffer: foo ----------
692 This has too many @point{}spaces
693 This has too many spaces at the start of (@point{} this list)
694 ---------- Buffer: foo ----------
695 @end group
696
697 @group
698 (fixup-whitespace)
699 @result{} nil
700 (fixup-whitespace)
701 @result{} nil
702 @end group
703
704 @group
705 ---------- Buffer: foo ----------
706 This has too many spaces
707 This has too many spaces at the start of (this list)
708 ---------- Buffer: foo ----------
709 @end group
710 @end smallexample
711 @end defun
712
713 @deffn Command just-one-space
714 @comment !!SourceFile simple.el
715 This command replaces any spaces and tabs around point with a single
716 space. It returns @code{nil}.
717 @end deffn
718
719 @deffn Command delete-blank-lines
720 This function deletes blank lines surrounding point. If point is on a
721 blank line with one or more blank lines before or after it, then all but
722 one of them are deleted. If point is on an isolated blank line, then it
723 is deleted. If point is on a nonblank line, the command deletes all
724 blank lines following it.
725
726 A blank line is defined as a line containing only tabs and spaces.
727
728 @code{delete-blank-lines} returns @code{nil}.
729 @end deffn
730
731 @node The Kill Ring
732 @section The Kill Ring
733 @cindex kill ring
734
735 @dfn{Kill functions} delete text like the deletion functions, but save
736 it so that the user can reinsert it by @dfn{yanking}. Most of these
737 functions have @samp{kill-} in their name. By contrast, the functions
738 whose names start with @samp{delete-} normally do not save text for
739 yanking (though they can still be undone); these are ``deletion''
740 functions.
741
742 Most of the kill commands are primarily for interactive use, and are
743 not described here. What we do describe are the functions provided for
744 use in writing such commands. You can use these functions to write
745 commands for killing text. When you need to delete text for internal
746 purposes within a Lisp function, you should normally use deletion
747 functions, so as not to disturb the kill ring contents.
748 @xref{Deletion}.
749
750 Killed text is saved for later yanking in the @dfn{kill ring}. This
751 is a list that holds a number of recent kills, not just the last text
752 kill. We call this a ``ring'' because yanking treats it as having
753 elements in a cyclic order. The list is kept in the variable
754 @code{kill-ring}, and can be operated on with the usual functions for
755 lists; there are also specialized functions, described in this section,
756 that treat it as a ring.
757
758 Some people think this use of the word ``kill'' is unfortunate, since
759 it refers to operations that specifically @emph{do not} destroy the
760 entities ``killed''. This is in sharp contrast to ordinary life, in
761 which death is permanent and ``killed'' entities do not come back to
762 life. Therefore, other metaphors have been proposed. For example, the
763 term ``cut ring'' makes sense to people who, in pre-computer days, used
764 scissors and paste to cut up and rearrange manuscripts. However, it
765 would be difficult to change the terminology now.
766
767 @menu
768 * Kill Ring Concepts:: What text looks like in the kill ring.
769 * Kill Functions:: Functions that kill text.
770 * Yanking:: How yanking is done.
771 * Yank Commands:: Commands that access the kill ring.
772 * Low-Level Kill Ring:: Functions and variables for kill ring access.
773 * Internals of Kill Ring:: Variables that hold kill-ring data.
774 @end menu
775
776 @node Kill Ring Concepts
777 @comment node-name, next, previous, up
778 @subsection Kill Ring Concepts
779
780 The kill ring records killed text as strings in a list, most recent
781 first. A short kill ring, for example, might look like this:
782
783 @example
784 ("some text" "a different piece of text" "even older text")
785 @end example
786
787 @noindent
788 When the list reaches @code{kill-ring-max} entries in length, adding a
789 new entry automatically deletes the last entry.
790
791 When kill commands are interwoven with other commands, each kill
792 command makes a new entry in the kill ring. Multiple kill commands in
793 succession build up a single kill-ring entry, which would be yanked as a
794 unit; the second and subsequent consecutive kill commands add text to
795 the entry made by the first one.
796
797 For yanking, one entry in the kill ring is designated the ``front'' of
798 the ring. Some yank commands ``rotate'' the ring by designating a
799 different element as the ``front.'' But this virtual rotation doesn't
800 change the list itself---the most recent entry always comes first in the
801 list.
802
803 @node Kill Functions
804 @comment node-name, next, previous, up
805 @subsection Functions for Killing
806
807 @code{kill-region} is the usual subroutine for killing text. Any
808 command that calls this function is a ``kill command'' (and should
809 probably have @samp{kill} in its name). @code{kill-region} puts the
810 newly killed text in a new element at the beginning of the kill ring or
811 adds it to the most recent element. It determines automatically (using
812 @code{last-command}) whether the previous command was a kill command,
813 and if so appends the killed text to the most recent entry.
814
815 @deffn Command kill-region start end &optional yank-handler
816 This function kills the text in the region defined by @var{start} and
817 @var{end}. The text is deleted but saved in the kill ring, along with
818 its text properties. The value is always @code{nil}.
819
820 In an interactive call, @var{start} and @var{end} are point and
821 the mark.
822
823 @c Emacs 19 feature
824 If the buffer or text is read-only, @code{kill-region} modifies the kill
825 ring just the same, then signals an error without modifying the buffer.
826 This is convenient because it lets the user use a series of kill
827 commands to copy text from a read-only buffer into the kill ring.
828
829 If @var{yank-handler} is non-@code{nil}, this puts that value onto
830 the string of killed text, as a @code{yank-handler} property.
831 @xref{Yanking}.
832 @end deffn
833
834 @defopt kill-read-only-ok
835 If this option is non-@code{nil}, @code{kill-region} does not signal an
836 error if the buffer or text is read-only. Instead, it simply returns,
837 updating the kill ring but not changing the buffer.
838 @end defopt
839
840 @deffn Command copy-region-as-kill start end
841 This command saves the region defined by @var{start} and @var{end} on
842 the kill ring (including text properties), but does not delete the text
843 from the buffer. It returns @code{nil}. It also indicates the extent
844 of the text copied by moving the cursor momentarily, or by displaying a
845 message in the echo area.
846
847 The command does not set @code{this-command} to @code{kill-region}, so a
848 subsequent kill command does not append to the same kill ring entry.
849
850 Don't call @code{copy-region-as-kill} in Lisp programs unless you aim to
851 support Emacs 18. For newer Emacs versions, it is better to use
852 @code{kill-new} or @code{kill-append} instead. @xref{Low-Level Kill
853 Ring}.
854 @end deffn
855
856 @node Yanking
857 @subsection Yanking
858
859 Yanking means inserting text from the kill ring, but it does
860 not insert the text blindly. Yank commands and some other commands
861 use @code{insert-for-yank} to perform special processing on the
862 text that they copy into the buffer.
863
864 @defun insert-for-yank string
865 This function normally works like @code{insert} except that it doesn't
866 insert the text properties in the @code{yank-excluded-properties}
867 list. However, if the first character of @var{string} has a
868 non-@code{nil}@code{yank-handler} text property, that property
869 can do various special processing on the text being inserted.
870 @end defun
871
872 @defun insert-buffer-substring-as-yank buf &optional start end
873 This function resembles @code{insert-buffer-substring} except that it
874 doesn't insert the text properties in the
875 @code{yank-excluded-properties} list.
876 @end defun
877
878 You can put a @code{yank-handler} text property on the text to
879 control how it will be inserted if it is yanked. The
880 @code{insert-for-yank} function looks for a @code{yank-handler}
881 property on the first character in its @var{string} argument. The
882 property value must be a list of one to four elements, with the
883 following format (where elements after the first may be omitted):
884
885 @example
886 (@var{function} @var{param} @var{noexclude} @var{undo})
887 @end example
888
889 Here is what the elements do:
890
891 @table @var
892 @item function
893 When @var{function} is present and non-nil, it is called instead of
894 @code{insert} to insert the string. @var{function} takes one
895 argument---the string to insert.
896
897 @item param
898 If @var{param} is present and non-@code{nil}, it replaces @var{string}
899 as the object passed to @var{function} (or @code{insert}); for
900 example, if @var{function} is @code{yank-rectangle}, @var{param}
901 should be a list of strings to insert as a rectangle.
902
903 @item noexclude
904 If @var{noexclude} is present and non-@code{nil}, the normal removal of the
905 yank-excluded-properties is not performed; instead @var{function} is
906 responsible for removing those properties. This may be necessary
907 if @var{function} adjusts point before or after inserting the object.
908
909 @item undo
910 If @var{undo} is present and non-nil, it is a function that will be
911 called by @code{yank-pop} to undo the insertion of the current object.
912 It is called with two arguments, the start and end of the current
913 region. @var{function} can set @code{yank-undo-function} to override
914 the @var{undo} value.
915 @end table
916
917 @node Yank Commands
918 @comment node-name, next, previous, up
919 @subsection Functions for Yanking
920
921 @dfn{Yanking} means reinserting an entry of previously killed text
922 from the kill ring. The text properties are copied too.
923
924 @deffn Command yank &optional arg
925 @cindex inserting killed text
926 This command inserts before point the text in the first entry in the
927 kill ring. It positions the mark at the beginning of that text, and
928 point at the end.
929
930 If @var{arg} is a list (which occurs interactively when the user
931 types @kbd{C-u} with no digits), then @code{yank} inserts the text as
932 described above, but puts point before the yanked text and puts the mark
933 after it.
934
935 If @var{arg} is a number, then @code{yank} inserts the @var{arg}th most
936 recently killed text---the @var{arg}th element of the kill ring list.
937
938 @code{yank} does not alter the contents of the kill ring or rotate it.
939 It returns @code{nil}.
940 @end deffn
941
942 @deffn Command yank-pop arg
943 This command replaces the just-yanked entry from the kill ring with a
944 different entry from the kill ring.
945
946 This is allowed only immediately after a @code{yank} or another
947 @code{yank-pop}. At such a time, the region contains text that was just
948 inserted by yanking. @code{yank-pop} deletes that text and inserts in
949 its place a different piece of killed text. It does not add the deleted
950 text to the kill ring, since it is already in the kill ring somewhere.
951
952 If @var{arg} is @code{nil}, then the replacement text is the previous
953 element of the kill ring. If @var{arg} is numeric, the replacement is
954 the @var{arg}th previous kill. If @var{arg} is negative, a more recent
955 kill is the replacement.
956
957 The sequence of kills in the kill ring wraps around, so that after the
958 oldest one comes the newest one, and before the newest one goes the
959 oldest.
960
961 The return value is always @code{nil}.
962 @end deffn
963
964 @defvar yank-undo-function
965 If this variable is non-@code{nil}, the function @code{yank-pop} uses
966 its value instead of @code{delete-region} to delete the text
967 inserted by the previous @code{yank} or
968 @code{yank-pop} command.
969
970 The function @code{insert-for-yank} automatically sets this variable
971 according to the @var{undo} element of the @code{yank-handler}
972 text property, if there is one.
973 @end defvar
974
975 @node Low-Level Kill Ring
976 @subsection Low-Level Kill Ring
977
978 These functions and variables provide access to the kill ring at a
979 lower level, but still convenient for use in Lisp programs, because they
980 take care of interaction with window system selections
981 (@pxref{Window System Selections}).
982
983 @defun current-kill n &optional do-not-move
984 The function @code{current-kill} rotates the yanking pointer, which
985 designates the ``front'' of the kill ring, by @var{n} places (from newer
986 kills to older ones), and returns the text at that place in the ring.
987
988 If the optional second argument @var{do-not-move} is non-@code{nil},
989 then @code{current-kill} doesn't alter the yanking pointer; it just
990 returns the @var{n}th kill, counting from the current yanking pointer.
991
992 If @var{n} is zero, indicating a request for the latest kill,
993 @code{current-kill} calls the value of
994 @code{interprogram-paste-function} (documented below) before consulting
995 the kill ring.
996 @end defun
997
998 @defun kill-new string &optional yank-handler
999 This function puts the text @var{string} into the kill ring as a new
1000 entry at the front of the ring. It discards the oldest entry if
1001 appropriate. It also invokes the value of
1002 @code{interprogram-cut-function} (see below).
1003
1004 If @var{yank-handler} is non-@code{nil}, this puts that value onto
1005 the string of killed text, as a @code{yank-handler} property.
1006 @xref{Yanking}.
1007 @end defun
1008
1009 @defun kill-append string before-p &optional yank-handler
1010 This function appends the text @var{string} to the first entry in the
1011 kill ring. Normally @var{string} goes at the end of the entry, but if
1012 @var{before-p} is non-@code{nil}, it goes at the beginning. This
1013 function also invokes the value of @code{interprogram-cut-function} (see
1014 below). This handles @var{yank-handler} just like @code{kill-new}.
1015 @end defun
1016
1017 @defvar interprogram-paste-function
1018 This variable provides a way of transferring killed text from other
1019 programs, when you are using a window system. Its value should be
1020 @code{nil} or a function of no arguments.
1021
1022 If the value is a function, @code{current-kill} calls it to get the
1023 ``most recent kill''. If the function returns a non-@code{nil} value,
1024 then that value is used as the ``most recent kill''. If it returns
1025 @code{nil}, then the first element of @code{kill-ring} is used.
1026
1027 The normal use of this hook is to get the window system's primary
1028 selection as the most recent kill, even if the selection belongs to
1029 another application. @xref{Window System Selections}.
1030 @end defvar
1031
1032 @defvar interprogram-cut-function
1033 This variable provides a way of communicating killed text to other
1034 programs, when you are using a window system. Its value should be
1035 @code{nil} or a function of one argument.
1036
1037 If the value is a function, @code{kill-new} and @code{kill-append} call
1038 it with the new first element of the kill ring as an argument.
1039
1040 The normal use of this hook is to set the window system's primary
1041 selection from the newly killed text. @xref{Window System Selections}.
1042 @end defvar
1043
1044 @node Internals of Kill Ring
1045 @comment node-name, next, previous, up
1046 @subsection Internals of the Kill Ring
1047
1048 The variable @code{kill-ring} holds the kill ring contents, in the
1049 form of a list of strings. The most recent kill is always at the front
1050 of the list.
1051
1052 The @code{kill-ring-yank-pointer} variable points to a link in the
1053 kill ring list, whose @sc{car} is the text to yank next. We say it
1054 identifies the ``front'' of the ring. Moving
1055 @code{kill-ring-yank-pointer} to a different link is called
1056 @dfn{rotating the kill ring}. We call the kill ring a ``ring'' because
1057 the functions that move the yank pointer wrap around from the end of the
1058 list to the beginning, or vice-versa. Rotation of the kill ring is
1059 virtual; it does not change the value of @code{kill-ring}.
1060
1061 Both @code{kill-ring} and @code{kill-ring-yank-pointer} are Lisp
1062 variables whose values are normally lists. The word ``pointer'' in the
1063 name of the @code{kill-ring-yank-pointer} indicates that the variable's
1064 purpose is to identify one element of the list for use by the next yank
1065 command.
1066
1067 The value of @code{kill-ring-yank-pointer} is always @code{eq} to one
1068 of the links in the kill ring list. The element it identifies is the
1069 @sc{car} of that link. Kill commands, which change the kill ring, also
1070 set this variable to the value of @code{kill-ring}. The effect is to
1071 rotate the ring so that the newly killed text is at the front.
1072
1073 Here is a diagram that shows the variable @code{kill-ring-yank-pointer}
1074 pointing to the second entry in the kill ring @code{("some text" "a
1075 different piece of text" "yet older text")}.
1076
1077 @example
1078 @group
1079 kill-ring ---- kill-ring-yank-pointer
1080 | |
1081 | v
1082 | --- --- --- --- --- ---
1083 --> | | |------> | | |--> | | |--> nil
1084 --- --- --- --- --- ---
1085 | | |
1086 | | |
1087 | | -->"yet older text"
1088 | |
1089 | --> "a different piece of text"
1090 |
1091 --> "some text"
1092 @end group
1093 @end example
1094
1095 @noindent
1096 This state of affairs might occur after @kbd{C-y} (@code{yank})
1097 immediately followed by @kbd{M-y} (@code{yank-pop}).
1098
1099 @defvar kill-ring
1100 This variable holds the list of killed text sequences, most recently
1101 killed first.
1102 @end defvar
1103
1104 @defvar kill-ring-yank-pointer
1105 This variable's value indicates which element of the kill ring is at the
1106 ``front'' of the ring for yanking. More precisely, the value is a tail
1107 of the value of @code{kill-ring}, and its @sc{car} is the kill string
1108 that @kbd{C-y} should yank.
1109 @end defvar
1110
1111 @defopt kill-ring-max
1112 The value of this variable is the maximum length to which the kill
1113 ring can grow, before elements are thrown away at the end. The default
1114 value for @code{kill-ring-max} is 30.
1115 @end defopt
1116
1117 @node Undo
1118 @comment node-name, next, previous, up
1119 @section Undo
1120 @cindex redo
1121
1122 Most buffers have an @dfn{undo list}, which records all changes made
1123 to the buffer's text so that they can be undone. (The buffers that
1124 don't have one are usually special-purpose buffers for which Emacs
1125 assumes that undoing is not useful.) All the primitives that modify the
1126 text in the buffer automatically add elements to the front of the undo
1127 list, which is in the variable @code{buffer-undo-list}.
1128
1129 @defvar buffer-undo-list
1130 This variable's value is the undo list of the current buffer.
1131 A value of @code{t} disables the recording of undo information.
1132 @end defvar
1133
1134 Here are the kinds of elements an undo list can have:
1135
1136 @table @code
1137 @item @var{position}
1138 This kind of element records a previous value of point; undoing this
1139 element moves point to @var{position}. Ordinary cursor motion does not
1140 make any sort of undo record, but deletion operations use these entries
1141 to record where point was before the command.
1142
1143 @item (@var{beg} . @var{end})
1144 This kind of element indicates how to delete text that was inserted.
1145 Upon insertion, the text occupied the range @var{beg}--@var{end} in the
1146 buffer.
1147
1148 @item (@var{text} . @var{position})
1149 This kind of element indicates how to reinsert text that was deleted.
1150 The deleted text itself is the string @var{text}. The place to
1151 reinsert it is @code{(abs @var{position})}.
1152
1153 @item (t @var{high} . @var{low})
1154 This kind of element indicates that an unmodified buffer became
1155 modified. The elements @var{high} and @var{low} are two integers, each
1156 recording 16 bits of the visited file's modification time as of when it
1157 was previously visited or saved. @code{primitive-undo} uses those
1158 values to determine whether to mark the buffer as unmodified once again;
1159 it does so only if the file's modification time matches those numbers.
1160
1161 @item (nil @var{property} @var{value} @var{beg} . @var{end})
1162 This kind of element records a change in a text property.
1163 Here's how you might undo the change:
1164
1165 @example
1166 (put-text-property @var{beg} @var{end} @var{property} @var{value})
1167 @end example
1168
1169 @item (@var{marker} . @var{adjustment})
1170 This kind of element records the fact that the marker @var{marker} was
1171 relocated due to deletion of surrounding text, and that it moved
1172 @var{adjustment} character positions. Undoing this element moves
1173 @var{marker} @minus{} @var{adjustment} characters.
1174
1175 @item nil
1176 This element is a boundary. The elements between two boundaries are
1177 called a @dfn{change group}; normally, each change group corresponds to
1178 one keyboard command, and undo commands normally undo an entire group as
1179 a unit.
1180 @end table
1181
1182 @defun undo-boundary
1183 This function places a boundary element in the undo list. The undo
1184 command stops at such a boundary, and successive undo commands undo
1185 to earlier and earlier boundaries. This function returns @code{nil}.
1186
1187 The editor command loop automatically creates an undo boundary before
1188 each key sequence is executed. Thus, each undo normally undoes the
1189 effects of one command. Self-inserting input characters are an
1190 exception. The command loop makes a boundary for the first such
1191 character; the next 19 consecutive self-inserting input characters do
1192 not make boundaries, and then the 20th does, and so on as long as
1193 self-inserting characters continue.
1194
1195 All buffer modifications add a boundary whenever the previous undoable
1196 change was made in some other buffer. This is to ensure that
1197 each command makes a boundary in each buffer where it makes changes.
1198
1199 Calling this function explicitly is useful for splitting the effects of
1200 a command into more than one unit. For example, @code{query-replace}
1201 calls @code{undo-boundary} after each replacement, so that the user can
1202 undo individual replacements one by one.
1203 @end defun
1204
1205 @defun primitive-undo count list
1206 This is the basic function for undoing elements of an undo list.
1207 It undoes the first @var{count} elements of @var{list}, returning
1208 the rest of @var{list}. You could write this function in Lisp,
1209 but it is convenient to have it in C.
1210
1211 @code{primitive-undo} adds elements to the buffer's undo list when it
1212 changes the buffer. Undo commands avoid confusion by saving the undo
1213 list value at the beginning of a sequence of undo operations. Then the
1214 undo operations use and update the saved value. The new elements added
1215 by undoing are not part of this saved value, so they don't interfere with
1216 continuing to undo.
1217 @end defun
1218
1219 @node Maintaining Undo
1220 @section Maintaining Undo Lists
1221
1222 This section describes how to enable and disable undo information for
1223 a given buffer. It also explains how the undo list is truncated
1224 automatically so it doesn't get too big.
1225
1226 Recording of undo information in a newly created buffer is normally
1227 enabled to start with; but if the buffer name starts with a space, the
1228 undo recording is initially disabled. You can explicitly enable or
1229 disable undo recording with the following two functions, or by setting
1230 @code{buffer-undo-list} yourself.
1231
1232 @deffn Command buffer-enable-undo &optional buffer-or-name
1233 This command enables recording undo information for buffer
1234 @var{buffer-or-name}, so that subsequent changes can be undone. If no
1235 argument is supplied, then the current buffer is used. This function
1236 does nothing if undo recording is already enabled in the buffer. It
1237 returns @code{nil}.
1238
1239 In an interactive call, @var{buffer-or-name} is the current buffer.
1240 You cannot specify any other buffer.
1241 @end deffn
1242
1243 @deffn Command buffer-disable-undo &optional buffer
1244 @deffnx Command buffer-flush-undo &optional buffer
1245 @cindex disable undo
1246 This function discards the undo list of @var{buffer}, and disables
1247 further recording of undo information. As a result, it is no longer
1248 possible to undo either previous changes or any subsequent changes. If
1249 the undo list of @var{buffer} is already disabled, this function
1250 has no effect.
1251
1252 This function returns @code{nil}.
1253
1254 The name @code{buffer-flush-undo} is not considered obsolete, but the
1255 preferred name is @code{buffer-disable-undo}.
1256 @end deffn
1257
1258 As editing continues, undo lists get longer and longer. To prevent
1259 them from using up all available memory space, garbage collection trims
1260 them back to size limits you can set. (For this purpose, the ``size''
1261 of an undo list measures the cons cells that make up the list, plus the
1262 strings of deleted text.) Two variables control the range of acceptable
1263 sizes: @code{undo-limit} and @code{undo-strong-limit}.
1264
1265 @defvar undo-limit
1266 This is the soft limit for the acceptable size of an undo list. The
1267 change group at which this size is exceeded is the last one kept.
1268 @end defvar
1269
1270 @defvar undo-strong-limit
1271 This is the upper limit for the acceptable size of an undo list. The
1272 change group at which this size is exceeded is discarded itself (along
1273 with all older change groups). There is one exception: the very latest
1274 change group is never discarded no matter how big it is.
1275 @end defvar
1276
1277 @node Filling
1278 @comment node-name, next, previous, up
1279 @section Filling
1280 @cindex filling, explicit
1281
1282 @dfn{Filling} means adjusting the lengths of lines (by moving the line
1283 breaks) so that they are nearly (but no greater than) a specified
1284 maximum width. Additionally, lines can be @dfn{justified}, which means
1285 inserting spaces to make the left and/or right margins line up
1286 precisely. The width is controlled by the variable @code{fill-column}.
1287 For ease of reading, lines should be no longer than 70 or so columns.
1288
1289 You can use Auto Fill mode (@pxref{Auto Filling}) to fill text
1290 automatically as you insert it, but changes to existing text may leave
1291 it improperly filled. Then you must fill the text explicitly.
1292
1293 Most of the commands in this section return values that are not
1294 meaningful. All the functions that do filling take note of the current
1295 left margin, current right margin, and current justification style
1296 (@pxref{Margins}). If the current justification style is
1297 @code{none}, the filling functions don't actually do anything.
1298
1299 Several of the filling functions have an argument @var{justify}.
1300 If it is non-@code{nil}, that requests some kind of justification. It
1301 can be @code{left}, @code{right}, @code{full}, or @code{center}, to
1302 request a specific style of justification. If it is @code{t}, that
1303 means to use the current justification style for this part of the text
1304 (see @code{current-justification}, below). Any other value is treated
1305 as @code{full}.
1306
1307 When you call the filling functions interactively, using a prefix
1308 argument implies the value @code{full} for @var{justify}.
1309
1310 @deffn Command fill-paragraph justify
1311 @cindex filling a paragraph
1312 This command fills the paragraph at or after point. If
1313 @var{justify} is non-@code{nil}, each line is justified as well.
1314 It uses the ordinary paragraph motion commands to find paragraph
1315 boundaries. @xref{Paragraphs,,, emacs, The GNU Emacs Manual}.
1316 @end deffn
1317
1318 @deffn Command fill-region start end &optional justify nosqueeze to-eop
1319 This command fills each of the paragraphs in the region from @var{start}
1320 to @var{end}. It justifies as well if @var{justify} is
1321 non-@code{nil}.
1322
1323 If @var{nosqueeze} is non-@code{nil}, that means to leave whitespace
1324 other than line breaks untouched. If @var{to-eop} is non-@code{nil},
1325 that means to keep filling to the end of the paragraph---or the next hard
1326 newline, if @code{use-hard-newlines} is enabled (see below).
1327
1328 The variable @code{paragraph-separate} controls how to distinguish
1329 paragraphs. @xref{Standard Regexps}.
1330 @end deffn
1331
1332 @deffn Command fill-individual-paragraphs start end &optional justify citation-regexp
1333 This command fills each paragraph in the region according to its
1334 individual fill prefix. Thus, if the lines of a paragraph were indented
1335 with spaces, the filled paragraph will remain indented in the same
1336 fashion.
1337
1338 The first two arguments, @var{start} and @var{end}, are the beginning
1339 and end of the region to be filled. The third and fourth arguments,
1340 @var{justify} and @var{citation-regexp}, are optional. If
1341 @var{justify} is non-@code{nil}, the paragraphs are justified as
1342 well as filled. If @var{citation-regexp} is non-@code{nil}, it means the
1343 function is operating on a mail message and therefore should not fill
1344 the header lines. If @var{citation-regexp} is a string, it is used as
1345 a regular expression; if it matches the beginning of a line, that line
1346 is treated as a citation marker.
1347
1348 Ordinarily, @code{fill-individual-paragraphs} regards each change in
1349 indentation as starting a new paragraph. If
1350 @code{fill-individual-varying-indent} is non-@code{nil}, then only
1351 separator lines separate paragraphs. That mode can handle indented
1352 paragraphs with additional indentation on the first line.
1353 @end deffn
1354
1355 @defopt fill-individual-varying-indent
1356 This variable alters the action of @code{fill-individual-paragraphs} as
1357 described above.
1358 @end defopt
1359
1360 @deffn Command fill-region-as-paragraph start end &optional justify nosqueeze squeeze-after
1361 This command considers a region of text as a single paragraph and fills
1362 it. If the region was made up of many paragraphs, the blank lines
1363 between paragraphs are removed. This function justifies as well as
1364 filling when @var{justify} is non-@code{nil}.
1365
1366 In an interactive call, any prefix argument requests justification.
1367
1368 If @var{nosqueeze} is non-@code{nil}, that means to leave whitespace
1369 other than line breaks untouched. If @var{squeeze-after} is
1370 non-@code{nil}, it specifies a position in the region, and means don't
1371 canonicalize spaces before that position.
1372
1373 In Adaptive Fill mode, this command calls @code{fill-context-prefix} to
1374 choose a fill prefix by default. @xref{Adaptive Fill}.
1375 @end deffn
1376
1377 @deffn Command justify-current-line &optional how eop nosqueeze
1378 This command inserts spaces between the words of the current line so
1379 that the line ends exactly at @code{fill-column}. It returns
1380 @code{nil}.
1381
1382 The argument @var{how}, if non-@code{nil} specifies explicitly the style
1383 of justification. It can be @code{left}, @code{right}, @code{full},
1384 @code{center}, or @code{none}. If it is @code{t}, that means to do
1385 follow specified justification style (see @code{current-justification},
1386 below). @code{nil} means to do full justification.
1387
1388 If @var{eop} is non-@code{nil}, that means do left-justification if
1389 @code{current-justification} specifies full justification. This is used
1390 for the last line of a paragraph; even if the paragraph as a whole is
1391 fully justified, the last line should not be.
1392
1393 If @var{nosqueeze} is non-@code{nil}, that means do not change interior
1394 whitespace.
1395 @end deffn
1396
1397 @defopt default-justification
1398 This variable's value specifies the style of justification to use for
1399 text that doesn't specify a style with a text property. The possible
1400 values are @code{left}, @code{right}, @code{full}, @code{center}, or
1401 @code{none}. The default value is @code{left}.
1402 @end defopt
1403
1404 @defun current-justification
1405 This function returns the proper justification style to use for filling
1406 the text around point.
1407 @end defun
1408
1409 @defopt sentence-end-double-space
1410 If this variable is non-@code{nil}, a period followed by just one space
1411 does not count as the end of a sentence, and the filling functions
1412 avoid breaking the line at such a place.
1413 @end defopt
1414
1415 @defvar fill-paragraph-function
1416 This variable provides a way for major modes to override the filling of
1417 paragraphs. If the value is non-@code{nil}, @code{fill-paragraph} calls
1418 this function to do the work. If the function returns a non-@code{nil}
1419 value, @code{fill-paragraph} assumes the job is done, and immediately
1420 returns that value.
1421
1422 The usual use of this feature is to fill comments in programming
1423 language modes. If the function needs to fill a paragraph in the usual
1424 way, it can do so as follows:
1425
1426 @example
1427 (let ((fill-paragraph-function nil))
1428 (fill-paragraph arg))
1429 @end example
1430 @end defvar
1431
1432 @defvar use-hard-newlines
1433 If this variable is non-@code{nil}, the filling functions do not delete
1434 newlines that have the @code{hard} text property. These ``hard
1435 newlines'' act as paragraph separators.
1436 @end defvar
1437
1438 @node Margins
1439 @section Margins for Filling
1440
1441 @defopt fill-prefix
1442 This buffer-local variable specifies a string of text that appears at
1443 the beginning
1444 of normal text lines and should be disregarded when filling them. Any
1445 line that fails to start with the fill prefix is considered the start of
1446 a paragraph; so is any line that starts with the fill prefix followed by
1447 additional whitespace. Lines that start with the fill prefix but no
1448 additional whitespace are ordinary text lines that can be filled
1449 together. The resulting filled lines also start with the fill prefix.
1450
1451 The fill prefix follows the left margin whitespace, if any.
1452 @end defopt
1453
1454 @defopt fill-column
1455 This buffer-local variable specifies the maximum width of filled lines.
1456 Its value should be an integer, which is a number of columns. All the
1457 filling, justification, and centering commands are affected by this
1458 variable, including Auto Fill mode (@pxref{Auto Filling}).
1459
1460 As a practical matter, if you are writing text for other people to
1461 read, you should set @code{fill-column} to no more than 70. Otherwise
1462 the line will be too long for people to read comfortably, and this can
1463 make the text seem clumsy.
1464 @end defopt
1465
1466 @defvar default-fill-column
1467 The value of this variable is the default value for @code{fill-column} in
1468 buffers that do not override it. This is the same as
1469 @code{(default-value 'fill-column)}.
1470
1471 The default value for @code{default-fill-column} is 70.
1472 @end defvar
1473
1474 @deffn Command set-left-margin from to margin
1475 This sets the @code{left-margin} property on the text from @var{from} to
1476 @var{to} to the value @var{margin}. If Auto Fill mode is enabled, this
1477 command also refills the region to fit the new margin.
1478 @end deffn
1479
1480 @deffn Command set-right-margin from to margin
1481 This sets the @code{right-margin} property on the text from @var{from}
1482 to @var{to} to the value @var{margin}. If Auto Fill mode is enabled,
1483 this command also refills the region to fit the new margin.
1484 @end deffn
1485
1486 @defun current-left-margin
1487 This function returns the proper left margin value to use for filling
1488 the text around point. The value is the sum of the @code{left-margin}
1489 property of the character at the start of the current line (or zero if
1490 none), and the value of the variable @code{left-margin}.
1491 @end defun
1492
1493 @defun current-fill-column
1494 This function returns the proper fill column value to use for filling
1495 the text around point. The value is the value of the @code{fill-column}
1496 variable, minus the value of the @code{right-margin} property of the
1497 character after point.
1498 @end defun
1499
1500 @deffn Command move-to-left-margin &optional n force
1501 This function moves point to the left margin of the current line. The
1502 column moved to is determined by calling the function
1503 @code{current-left-margin}. If the argument @var{n} is non-@code{nil},
1504 @code{move-to-left-margin} moves forward @var{n}@minus{}1 lines first.
1505
1506 If @var{force} is non-@code{nil}, that says to fix the line's
1507 indentation if that doesn't match the left margin value.
1508 @end deffn
1509
1510 @defun delete-to-left-margin &optional from to
1511 This function removes left margin indentation from the text between
1512 @var{from} and @var{to}. The amount of indentation to delete is
1513 determined by calling @code{current-left-margin}. In no case does this
1514 function delete non-whitespace. If @var{from} and @var{to} are omitted,
1515 they default to the whole buffer.
1516 @end defun
1517
1518 @defun indent-to-left-margin
1519 This is the default @code{indent-line-function}, used in Fundamental
1520 mode, Text mode, etc. Its effect is to adjust the indentation at the
1521 beginning of the current line to the value specified by the variable
1522 @code{left-margin}. This may involve either inserting or deleting
1523 whitespace.
1524 @end defun
1525
1526 @defvar left-margin
1527 This variable specifies the base left margin column. In Fundamental
1528 mode, @kbd{C-j} indents to this column. This variable automatically
1529 becomes buffer-local when set in any fashion.
1530 @end defvar
1531
1532 @defvar fill-nobreak-predicate
1533 This variable gives major modes a way to specify not to break a line at
1534 certain places. Its value should be a function. This function is
1535 called during filling, with no arguments and with point located at the
1536 place where a break is being considered. If the function returns
1537 non-@code{nil}, then the line won't be broken there.
1538 @end defvar
1539
1540 @node Adaptive Fill
1541 @section Adaptive Fill Mode
1542 @cindex Adaptive Fill mode
1543
1544 Adaptive Fill mode chooses a fill prefix automatically from the text
1545 in each paragraph being filled.
1546
1547 @defopt adaptive-fill-mode
1548 Adaptive Fill mode is enabled when this variable is non-@code{nil}.
1549 It is @code{t} by default.
1550 @end defopt
1551
1552 @defun fill-context-prefix from to
1553 This function implements the heart of Adaptive Fill mode; it chooses a
1554 fill prefix based on the text between @var{from} and @var{to}. It does
1555 this by looking at the first two lines of the paragraph, based on the
1556 variables described below.
1557 @c The optional argument first-line-regexp is not documented
1558 @c because it exists for internal purposes and might be eliminated
1559 @c in the future.
1560 @end defun
1561
1562 @defopt adaptive-fill-regexp
1563 This variable holds a regular expression to control Adaptive Fill mode.
1564 Adaptive Fill mode matches this regular expression against the text
1565 starting after the left margin whitespace (if any) on a line; the
1566 characters it matches are that line's candidate for the fill prefix.
1567 @end defopt
1568
1569 @defopt adaptive-fill-first-line-regexp
1570 In a one-line paragraph, if the candidate fill prefix matches this
1571 regular expression, or if it matches @code{comment-start-skip}, then it
1572 is used---otherwise, spaces amounting to the same width are used
1573 instead.
1574
1575 However, the fill prefix is never taken from a one-line paragraph
1576 if it would act as a paragraph starter on subsequent lines.
1577 @end defopt
1578
1579 @defopt adaptive-fill-function
1580 You can specify more complex ways of choosing a fill prefix
1581 automatically by setting this variable to a function. The function is
1582 called when @code{adaptive-fill-regexp} does not match, with point after
1583 the left margin of a line, and it should return the appropriate fill
1584 prefix based on that line. If it returns @code{nil}, that means it sees
1585 no fill prefix in that line.
1586 @end defopt
1587
1588 @node Auto Filling
1589 @comment node-name, next, previous, up
1590 @section Auto Filling
1591 @cindex filling, automatic
1592 @cindex Auto Fill mode
1593
1594 Auto Fill mode is a minor mode that fills lines automatically as text
1595 is inserted. This section describes the hook used by Auto Fill mode.
1596 For a description of functions that you can call explicitly to fill and
1597 justify existing text, see @ref{Filling}.
1598
1599 Auto Fill mode also enables the functions that change the margins and
1600 justification style to refill portions of the text. @xref{Margins}.
1601
1602 @defvar auto-fill-function
1603 The value of this variable should be a function (of no arguments) to be
1604 called after self-inserting a character from the table
1605 @code{auto-fill-chars}. It may be @code{nil}, in which case nothing
1606 special is done in that case.
1607
1608 The value of @code{auto-fill-function} is @code{do-auto-fill} when
1609 Auto-Fill mode is enabled. That is a function whose sole purpose is to
1610 implement the usual strategy for breaking a line.
1611
1612 @quotation
1613 In older Emacs versions, this variable was named @code{auto-fill-hook},
1614 but since it is not called with the standard convention for hooks, it
1615 was renamed to @code{auto-fill-function} in version 19.
1616 @end quotation
1617 @end defvar
1618
1619 @defvar normal-auto-fill-function
1620 This variable specifies the function to use for
1621 @code{auto-fill-function}, if and when Auto Fill is turned on. Major
1622 modes can set buffer-local values for this variable to alter how Auto
1623 Fill works.
1624 @end defvar
1625
1626 @defvar auto-fill-chars
1627 A char table of characters which invoke @code{auto-fill-function} when
1628 self-inserted---space and newline in most language environments. They
1629 have an entry @code{t} in the table.
1630 @end defvar
1631
1632 @node Sorting
1633 @section Sorting Text
1634 @cindex sorting text
1635
1636 The sorting functions described in this section all rearrange text in
1637 a buffer. This is in contrast to the function @code{sort}, which
1638 rearranges the order of the elements of a list (@pxref{Rearrangement}).
1639 The values returned by these functions are not meaningful.
1640
1641 @defun sort-subr reverse nextrecfun endrecfun &optional startkeyfun endkeyfun
1642 This function is the general text-sorting routine that subdivides a
1643 buffer into records and then sorts them. Most of the commands in this
1644 section use this function.
1645
1646 To understand how @code{sort-subr} works, consider the whole accessible
1647 portion of the buffer as being divided into disjoint pieces called
1648 @dfn{sort records}. The records may or may not be contiguous, but they
1649 must not overlap. A portion of each sort record (perhaps all of it) is
1650 designated as the sort key. Sorting rearranges the records in order by
1651 their sort keys.
1652
1653 Usually, the records are rearranged in order of ascending sort key.
1654 If the first argument to the @code{sort-subr} function, @var{reverse},
1655 is non-@code{nil}, the sort records are rearranged in order of
1656 descending sort key.
1657
1658 The next four arguments to @code{sort-subr} are functions that are
1659 called to move point across a sort record. They are called many times
1660 from within @code{sort-subr}.
1661
1662 @enumerate
1663 @item
1664 @var{nextrecfun} is called with point at the end of a record. This
1665 function moves point to the start of the next record. The first record
1666 is assumed to start at the position of point when @code{sort-subr} is
1667 called. Therefore, you should usually move point to the beginning of
1668 the buffer before calling @code{sort-subr}.
1669
1670 This function can indicate there are no more sort records by leaving
1671 point at the end of the buffer.
1672
1673 @item
1674 @var{endrecfun} is called with point within a record. It moves point to
1675 the end of the record.
1676
1677 @item
1678 @var{startkeyfun} is called to move point from the start of a record to
1679 the start of the sort key. This argument is optional; if it is omitted,
1680 the whole record is the sort key. If supplied, the function should
1681 either return a non-@code{nil} value to be used as the sort key, or
1682 return @code{nil} to indicate that the sort key is in the buffer
1683 starting at point. In the latter case, @var{endkeyfun} is called to
1684 find the end of the sort key.
1685
1686 @item
1687 @var{endkeyfun} is called to move point from the start of the sort key
1688 to the end of the sort key. This argument is optional. If
1689 @var{startkeyfun} returns @code{nil} and this argument is omitted (or
1690 @code{nil}), then the sort key extends to the end of the record. There
1691 is no need for @var{endkeyfun} if @var{startkeyfun} returns a
1692 non-@code{nil} value.
1693 @end enumerate
1694
1695 As an example of @code{sort-subr}, here is the complete function
1696 definition for @code{sort-lines}:
1697
1698 @example
1699 @group
1700 ;; @r{Note that the first two lines of doc string}
1701 ;; @r{are effectively one line when viewed by a user.}
1702 (defun sort-lines (reverse beg end)
1703 "Sort lines in region alphabetically;\
1704 argument means descending order.
1705 Called from a program, there are three arguments:
1706 @end group
1707 @group
1708 REVERSE (non-nil means reverse order),\
1709 BEG and END (region to sort).
1710 The variable `sort-fold-case' determines\
1711 whether alphabetic case affects
1712 the sort order.
1713 @end group
1714 @group
1715 (interactive "P\nr")
1716 (save-excursion
1717 (save-restriction
1718 (narrow-to-region beg end)
1719 (goto-char (point-min))
1720 (sort-subr reverse 'forward-line 'end-of-line))))
1721 @end group
1722 @end example
1723
1724 Here @code{forward-line} moves point to the start of the next record,
1725 and @code{end-of-line} moves point to the end of record. We do not pass
1726 the arguments @var{startkeyfun} and @var{endkeyfun}, because the entire
1727 record is used as the sort key.
1728
1729 The @code{sort-paragraphs} function is very much the same, except that
1730 its @code{sort-subr} call looks like this:
1731
1732 @example
1733 @group
1734 (sort-subr reverse
1735 (function
1736 (lambda ()
1737 (while (and (not (eobp))
1738 (looking-at paragraph-separate))
1739 (forward-line 1))))
1740 'forward-paragraph)
1741 @end group
1742 @end example
1743
1744 Markers pointing into any sort records are left with no useful
1745 position after @code{sort-subr} returns.
1746 @end defun
1747
1748 @defopt sort-fold-case
1749 If this variable is non-@code{nil}, @code{sort-subr} and the other
1750 buffer sorting functions ignore case when comparing strings.
1751 @end defopt
1752
1753 @deffn Command sort-regexp-fields reverse record-regexp key-regexp start end
1754 This command sorts the region between @var{start} and @var{end}
1755 alphabetically as specified by @var{record-regexp} and @var{key-regexp}.
1756 If @var{reverse} is a negative integer, then sorting is in reverse
1757 order.
1758
1759 Alphabetical sorting means that two sort keys are compared by
1760 comparing the first characters of each, the second characters of each,
1761 and so on. If a mismatch is found, it means that the sort keys are
1762 unequal; the sort key whose character is less at the point of first
1763 mismatch is the lesser sort key. The individual characters are compared
1764 according to their numerical character codes in the Emacs character set.
1765
1766 The value of the @var{record-regexp} argument specifies how to divide
1767 the buffer into sort records. At the end of each record, a search is
1768 done for this regular expression, and the text that matches it is taken
1769 as the next record. For example, the regular expression @samp{^.+$},
1770 which matches lines with at least one character besides a newline, would
1771 make each such line into a sort record. @xref{Regular Expressions}, for
1772 a description of the syntax and meaning of regular expressions.
1773
1774 The value of the @var{key-regexp} argument specifies what part of each
1775 record is the sort key. The @var{key-regexp} could match the whole
1776 record, or only a part. In the latter case, the rest of the record has
1777 no effect on the sorted order of records, but it is carried along when
1778 the record moves to its new position.
1779
1780 The @var{key-regexp} argument can refer to the text matched by a
1781 subexpression of @var{record-regexp}, or it can be a regular expression
1782 on its own.
1783
1784 If @var{key-regexp} is:
1785
1786 @table @asis
1787 @item @samp{\@var{digit}}
1788 then the text matched by the @var{digit}th @samp{\(...\)} parenthesis
1789 grouping in @var{record-regexp} is the sort key.
1790
1791 @item @samp{\&}
1792 then the whole record is the sort key.
1793
1794 @item a regular expression
1795 then @code{sort-regexp-fields} searches for a match for the regular
1796 expression within the record. If such a match is found, it is the sort
1797 key. If there is no match for @var{key-regexp} within a record then
1798 that record is ignored, which means its position in the buffer is not
1799 changed. (The other records may move around it.)
1800 @end table
1801
1802 For example, if you plan to sort all the lines in the region by the
1803 first word on each line starting with the letter @samp{f}, you should
1804 set @var{record-regexp} to @samp{^.*$} and set @var{key-regexp} to
1805 @samp{\<f\w*\>}. The resulting expression looks like this:
1806
1807 @example
1808 @group
1809 (sort-regexp-fields nil "^.*$" "\\<f\\w*\\>"
1810 (region-beginning)
1811 (region-end))
1812 @end group
1813 @end example
1814
1815 If you call @code{sort-regexp-fields} interactively, it prompts for
1816 @var{record-regexp} and @var{key-regexp} in the minibuffer.
1817 @end deffn
1818
1819 @deffn Command sort-lines reverse start end
1820 This command alphabetically sorts lines in the region between
1821 @var{start} and @var{end}. If @var{reverse} is non-@code{nil}, the sort
1822 is in reverse order.
1823 @end deffn
1824
1825 @deffn Command sort-paragraphs reverse start end
1826 This command alphabetically sorts paragraphs in the region between
1827 @var{start} and @var{end}. If @var{reverse} is non-@code{nil}, the sort
1828 is in reverse order.
1829 @end deffn
1830
1831 @deffn Command sort-pages reverse start end
1832 This command alphabetically sorts pages in the region between
1833 @var{start} and @var{end}. If @var{reverse} is non-@code{nil}, the sort
1834 is in reverse order.
1835 @end deffn
1836
1837 @deffn Command sort-fields field start end
1838 This command sorts lines in the region between @var{start} and
1839 @var{end}, comparing them alphabetically by the @var{field}th field
1840 of each line. Fields are separated by whitespace and numbered starting
1841 from 1. If @var{field} is negative, sorting is by the
1842 @w{@minus{}@var{field}th} field from the end of the line. This command
1843 is useful for sorting tables.
1844 @end deffn
1845
1846 @deffn Command sort-numeric-fields field start end
1847 This command sorts lines in the region between @var{start} and
1848 @var{end}, comparing them numerically by the @var{field}th field of each
1849 line. The specified field must contain a number in each line of the
1850 region. Fields are separated by whitespace and numbered starting from
1851 1. If @var{field} is negative, sorting is by the
1852 @w{@minus{}@var{field}th} field from the end of the line. This command
1853 is useful for sorting tables.
1854 @end deffn
1855
1856 @deffn Command sort-columns reverse &optional beg end
1857 This command sorts the lines in the region between @var{beg} and
1858 @var{end}, comparing them alphabetically by a certain range of columns.
1859 The column positions of @var{beg} and @var{end} bound the range of
1860 columns to sort on.
1861
1862 If @var{reverse} is non-@code{nil}, the sort is in reverse order.
1863
1864 One unusual thing about this command is that the entire line
1865 containing position @var{beg}, and the entire line containing position
1866 @var{end}, are included in the region sorted.
1867
1868 Note that @code{sort-columns} uses the @code{sort} utility program,
1869 and so cannot work properly on text containing tab characters. Use
1870 @kbd{M-x untabify} to convert tabs to spaces before sorting.
1871 @end deffn
1872
1873 @node Columns
1874 @comment node-name, next, previous, up
1875 @section Counting Columns
1876 @cindex columns
1877 @cindex counting columns
1878 @cindex horizontal position
1879
1880 The column functions convert between a character position (counting
1881 characters from the beginning of the buffer) and a column position
1882 (counting screen characters from the beginning of a line).
1883
1884 These functions count each character according to the number of
1885 columns it occupies on the screen. This means control characters count
1886 as occupying 2 or 4 columns, depending upon the value of
1887 @code{ctl-arrow}, and tabs count as occupying a number of columns that
1888 depends on the value of @code{tab-width} and on the column where the tab
1889 begins. @xref{Usual Display}.
1890
1891 Column number computations ignore the width of the window and the
1892 amount of horizontal scrolling. Consequently, a column value can be
1893 arbitrarily high. The first (or leftmost) column is numbered 0.
1894
1895 @defun current-column
1896 This function returns the horizontal position of point, measured in
1897 columns, counting from 0 at the left margin. The column position is the
1898 sum of the widths of all the displayed representations of the characters
1899 between the start of the current line and point.
1900
1901 For an example of using @code{current-column}, see the description of
1902 @code{count-lines} in @ref{Text Lines}.
1903 @end defun
1904
1905 @defun move-to-column column &optional force
1906 This function moves point to @var{column} in the current line. The
1907 calculation of @var{column} takes into account the widths of the
1908 displayed representations of the characters between the start of the
1909 line and point.
1910
1911 If column @var{column} is beyond the end of the line, point moves to the
1912 end of the line. If @var{column} is negative, point moves to the
1913 beginning of the line.
1914
1915 If it is impossible to move to column @var{column} because that is in
1916 the middle of a multicolumn character such as a tab, point moves to the
1917 end of that character. However, if @var{force} is non-@code{nil}, and
1918 @var{column} is in the middle of a tab, then @code{move-to-column}
1919 converts the tab into spaces so that it can move precisely to column
1920 @var{column}. Other multicolumn characters can cause anomalies despite
1921 @var{force}, since there is no way to split them.
1922
1923 The argument @var{force} also has an effect if the line isn't long
1924 enough to reach column @var{column}; if it is @code{t}, that means to
1925 add whitespace at the end of the line to reach that column.
1926
1927 If @var{column} is not an integer, an error is signaled.
1928
1929 The return value is the column number actually moved to.
1930 @end defun
1931
1932 @node Indentation
1933 @section Indentation
1934 @cindex indentation
1935
1936 The indentation functions are used to examine, move to, and change
1937 whitespace that is at the beginning of a line. Some of the functions
1938 can also change whitespace elsewhere on a line. Columns and indentation
1939 count from zero at the left margin.
1940
1941 @menu
1942 * Primitive Indent:: Functions used to count and insert indentation.
1943 * Mode-Specific Indent:: Customize indentation for different modes.
1944 * Region Indent:: Indent all the lines in a region.
1945 * Relative Indent:: Indent the current line based on previous lines.
1946 * Indent Tabs:: Adjustable, typewriter-like tab stops.
1947 * Motion by Indent:: Move to first non-blank character.
1948 @end menu
1949
1950 @node Primitive Indent
1951 @subsection Indentation Primitives
1952
1953 This section describes the primitive functions used to count and
1954 insert indentation. The functions in the following sections use these
1955 primitives. @xref{Width}, for related functions.
1956
1957 @defun current-indentation
1958 @comment !!Type Primitive Function
1959 @comment !!SourceFile indent.c
1960 This function returns the indentation of the current line, which is
1961 the horizontal position of the first nonblank character. If the
1962 contents are entirely blank, then this is the horizontal position of the
1963 end of the line.
1964 @end defun
1965
1966 @deffn Command indent-to column &optional minimum
1967 @comment !!Type Primitive Function
1968 @comment !!SourceFile indent.c
1969 This function indents from point with tabs and spaces until @var{column}
1970 is reached. If @var{minimum} is specified and non-@code{nil}, then at
1971 least that many spaces are inserted even if this requires going beyond
1972 @var{column}. Otherwise the function does nothing if point is already
1973 beyond @var{column}. The value is the column at which the inserted
1974 indentation ends.
1975
1976 The inserted whitespace characters inherit text properties from the
1977 surrounding text (usually, from the preceding text only). @xref{Sticky
1978 Properties}.
1979 @end deffn
1980
1981 @defopt indent-tabs-mode
1982 @comment !!SourceFile indent.c
1983 If this variable is non-@code{nil}, indentation functions can insert
1984 tabs as well as spaces. Otherwise, they insert only spaces. Setting
1985 this variable automatically makes it buffer-local in the current buffer.
1986 @end defopt
1987
1988 @node Mode-Specific Indent
1989 @subsection Indentation Controlled by Major Mode
1990
1991 An important function of each major mode is to customize the @key{TAB}
1992 key to indent properly for the language being edited. This section
1993 describes the mechanism of the @key{TAB} key and how to control it.
1994 The functions in this section return unpredictable values.
1995
1996 @defvar indent-line-function
1997 This variable's value is the function to be used by @key{TAB} (and
1998 various commands) to indent the current line. The command
1999 @code{indent-according-to-mode} does no more than call this function.
2000
2001 In Lisp mode, the value is the symbol @code{lisp-indent-line}; in C
2002 mode, @code{c-indent-line}; in Fortran mode, @code{fortran-indent-line}.
2003 In Fundamental mode, Text mode, and many other modes with no standard
2004 for indentation, the value is @code{indent-to-left-margin} (which is the
2005 default value).
2006 @end defvar
2007
2008 @deffn Command indent-according-to-mode
2009 This command calls the function in @code{indent-line-function} to
2010 indent the current line in a way appropriate for the current major mode.
2011 @end deffn
2012
2013 @deffn Command indent-for-tab-command
2014 This command calls the function in @code{indent-line-function} to indent
2015 the current line; however, if that function is
2016 @code{indent-to-left-margin}, @code{insert-tab} is called instead. (That
2017 is a trivial command that inserts a tab character.)
2018 @end deffn
2019
2020 @deffn Command newline-and-indent
2021 @comment !!SourceFile simple.el
2022 This function inserts a newline, then indents the new line (the one
2023 following the newline just inserted) according to the major mode.
2024
2025 It does indentation by calling the current @code{indent-line-function}.
2026 In programming language modes, this is the same thing @key{TAB} does,
2027 but in some text modes, where @key{TAB} inserts a tab,
2028 @code{newline-and-indent} indents to the column specified by
2029 @code{left-margin}.
2030 @end deffn
2031
2032 @deffn Command reindent-then-newline-and-indent
2033 @comment !!SourceFile simple.el
2034 This command reindents the current line, inserts a newline at point,
2035 and then indents the new line (the one following the newline just
2036 inserted).
2037
2038 This command does indentation on both lines according to the current
2039 major mode, by calling the current value of @code{indent-line-function}.
2040 In programming language modes, this is the same thing @key{TAB} does,
2041 but in some text modes, where @key{TAB} inserts a tab,
2042 @code{reindent-then-newline-and-indent} indents to the column specified
2043 by @code{left-margin}.
2044 @end deffn
2045
2046 @node Region Indent
2047 @subsection Indenting an Entire Region
2048
2049 This section describes commands that indent all the lines in the
2050 region. They return unpredictable values.
2051
2052 @deffn Command indent-region start end to-column
2053 This command indents each nonblank line starting between @var{start}
2054 (inclusive) and @var{end} (exclusive). If @var{to-column} is
2055 @code{nil}, @code{indent-region} indents each nonblank line by calling
2056 the current mode's indentation function, the value of
2057 @code{indent-line-function}.
2058
2059 If @var{to-column} is non-@code{nil}, it should be an integer
2060 specifying the number of columns of indentation; then this function
2061 gives each line exactly that much indentation, by either adding or
2062 deleting whitespace.
2063
2064 If there is a fill prefix, @code{indent-region} indents each line
2065 by making it start with the fill prefix.
2066 @end deffn
2067
2068 @defvar indent-region-function
2069 The value of this variable is a function that can be used by
2070 @code{indent-region} as a short cut. It should take two arguments, the
2071 start and end of the region. You should design the function so
2072 that it will produce the same results as indenting the lines of the
2073 region one by one, but presumably faster.
2074
2075 If the value is @code{nil}, there is no short cut, and
2076 @code{indent-region} actually works line by line.
2077
2078 A short-cut function is useful in modes such as C mode and Lisp mode,
2079 where the @code{indent-line-function} must scan from the beginning of
2080 the function definition: applying it to each line would be quadratic in
2081 time. The short cut can update the scan information as it moves through
2082 the lines indenting them; this takes linear time. In a mode where
2083 indenting a line individually is fast, there is no need for a short cut.
2084
2085 @code{indent-region} with a non-@code{nil} argument @var{to-column} has
2086 a different meaning and does not use this variable.
2087 @end defvar
2088
2089 @deffn Command indent-rigidly start end count
2090 @comment !!SourceFile indent.el
2091 This command indents all lines starting between @var{start}
2092 (inclusive) and @var{end} (exclusive) sideways by @var{count} columns.
2093 This ``preserves the shape'' of the affected region, moving it as a
2094 rigid unit. Consequently, this command is useful not only for indenting
2095 regions of unindented text, but also for indenting regions of formatted
2096 code.
2097
2098 For example, if @var{count} is 3, this command adds 3 columns of
2099 indentation to each of the lines beginning in the region specified.
2100
2101 In Mail mode, @kbd{C-c C-y} (@code{mail-yank-original}) uses
2102 @code{indent-rigidly} to indent the text copied from the message being
2103 replied to.
2104 @end deffn
2105
2106 @defun indent-code-rigidly start end columns &optional nochange-regexp
2107 This is like @code{indent-rigidly}, except that it doesn't alter lines
2108 that start within strings or comments.
2109
2110 In addition, it doesn't alter a line if @var{nochange-regexp} matches at
2111 the beginning of the line (if @var{nochange-regexp} is non-@code{nil}).
2112 @end defun
2113
2114 @node Relative Indent
2115 @subsection Indentation Relative to Previous Lines
2116
2117 This section describes two commands that indent the current line
2118 based on the contents of previous lines.
2119
2120 @deffn Command indent-relative &optional unindented-ok
2121 This command inserts whitespace at point, extending to the same
2122 column as the next @dfn{indent point} of the previous nonblank line. An
2123 indent point is a non-whitespace character following whitespace. The
2124 next indent point is the first one at a column greater than the current
2125 column of point. For example, if point is underneath and to the left of
2126 the first non-blank character of a line of text, it moves to that column
2127 by inserting whitespace.
2128
2129 If the previous nonblank line has no next indent point (i.e., none at a
2130 great enough column position), @code{indent-relative} either does
2131 nothing (if @var{unindented-ok} is non-@code{nil}) or calls
2132 @code{tab-to-tab-stop}. Thus, if point is underneath and to the right
2133 of the last column of a short line of text, this command ordinarily
2134 moves point to the next tab stop by inserting whitespace.
2135
2136 The return value of @code{indent-relative} is unpredictable.
2137
2138 In the following example, point is at the beginning of the second
2139 line:
2140
2141 @example
2142 @group
2143 This line is indented twelve spaces.
2144 @point{}The quick brown fox jumped.
2145 @end group
2146 @end example
2147
2148 @noindent
2149 Evaluation of the expression @code{(indent-relative nil)} produces the
2150 following:
2151
2152 @example
2153 @group
2154 This line is indented twelve spaces.
2155 @point{}The quick brown fox jumped.
2156 @end group
2157 @end example
2158
2159 In this next example, point is between the @samp{m} and @samp{p} of
2160 @samp{jumped}:
2161
2162 @example
2163 @group
2164 This line is indented twelve spaces.
2165 The quick brown fox jum@point{}ped.
2166 @end group
2167 @end example
2168
2169 @noindent
2170 Evaluation of the expression @code{(indent-relative nil)} produces the
2171 following:
2172
2173 @example
2174 @group
2175 This line is indented twelve spaces.
2176 The quick brown fox jum @point{}ped.
2177 @end group
2178 @end example
2179 @end deffn
2180
2181 @deffn Command indent-relative-maybe
2182 @comment !!SourceFile indent.el
2183 This command indents the current line like the previous nonblank line,
2184 by calling @code{indent-relative} with @code{t} as the
2185 @var{unindented-ok} argument. The return value is unpredictable.
2186
2187 If the previous nonblank line has no indent points beyond the current
2188 column, this command does nothing.
2189 @end deffn
2190
2191 @node Indent Tabs
2192 @comment node-name, next, previous, up
2193 @subsection Adjustable ``Tab Stops''
2194 @cindex tabs stops for indentation
2195
2196 This section explains the mechanism for user-specified ``tab stops''
2197 and the mechanisms that use and set them. The name ``tab stops'' is
2198 used because the feature is similar to that of the tab stops on a
2199 typewriter. The feature works by inserting an appropriate number of
2200 spaces and tab characters to reach the next tab stop column; it does not
2201 affect the display of tab characters in the buffer (@pxref{Usual
2202 Display}). Note that the @key{TAB} character as input uses this tab
2203 stop feature only in a few major modes, such as Text mode.
2204
2205 @deffn Command tab-to-tab-stop
2206 This command inserts spaces or tabs before point, up to the next tab
2207 stop column defined by @code{tab-stop-list}. It searches the list for
2208 an element greater than the current column number, and uses that element
2209 as the column to indent to. It does nothing if no such element is
2210 found.
2211 @end deffn
2212
2213 @defopt tab-stop-list
2214 This variable is the list of tab stop columns used by
2215 @code{tab-to-tab-stops}. The elements should be integers in increasing
2216 order. The tab stop columns need not be evenly spaced.
2217
2218 Use @kbd{M-x edit-tab-stops} to edit the location of tab stops
2219 interactively.
2220 @end defopt
2221
2222 @node Motion by Indent
2223 @subsection Indentation-Based Motion Commands
2224
2225 These commands, primarily for interactive use, act based on the
2226 indentation in the text.
2227
2228 @deffn Command back-to-indentation
2229 @comment !!SourceFile simple.el
2230 This command moves point to the first non-whitespace character in the
2231 current line (which is the line in which point is located). It returns
2232 @code{nil}.
2233 @end deffn
2234
2235 @deffn Command backward-to-indentation &optional arg
2236 @comment !!SourceFile simple.el
2237 This command moves point backward @var{arg} lines and then to the
2238 first nonblank character on that line. It returns @code{nil}.
2239 If @var{arg} is omitted or @code{nil}, it defaults to 1.
2240 @end deffn
2241
2242 @deffn Command forward-to-indentation &optional arg
2243 @comment !!SourceFile simple.el
2244 This command moves point forward @var{arg} lines and then to the first
2245 nonblank character on that line. It returns @code{nil}.
2246 If @var{arg} is omitted or @code{nil}, it defaults to 1.
2247 @end deffn
2248
2249 @node Case Changes
2250 @comment node-name, next, previous, up
2251 @section Case Changes
2252 @cindex case conversion in buffers
2253
2254 The case change commands described here work on text in the current
2255 buffer. @xref{Case Conversion}, for case conversion functions that work
2256 on strings and characters. @xref{Case Tables}, for how to customize
2257 which characters are upper or lower case and how to convert them.
2258
2259 @deffn Command capitalize-region start end
2260 This function capitalizes all words in the region defined by
2261 @var{start} and @var{end}. To capitalize means to convert each word's
2262 first character to upper case and convert the rest of each word to lower
2263 case. The function returns @code{nil}.
2264
2265 If one end of the region is in the middle of a word, the part of the
2266 word within the region is treated as an entire word.
2267
2268 When @code{capitalize-region} is called interactively, @var{start} and
2269 @var{end} are point and the mark, with the smallest first.
2270
2271 @example
2272 @group
2273 ---------- Buffer: foo ----------
2274 This is the contents of the 5th foo.
2275 ---------- Buffer: foo ----------
2276 @end group
2277
2278 @group
2279 (capitalize-region 1 44)
2280 @result{} nil
2281
2282 ---------- Buffer: foo ----------
2283 This Is The Contents Of The 5th Foo.
2284 ---------- Buffer: foo ----------
2285 @end group
2286 @end example
2287 @end deffn
2288
2289 @deffn Command downcase-region start end
2290 This function converts all of the letters in the region defined by
2291 @var{start} and @var{end} to lower case. The function returns
2292 @code{nil}.
2293
2294 When @code{downcase-region} is called interactively, @var{start} and
2295 @var{end} are point and the mark, with the smallest first.
2296 @end deffn
2297
2298 @deffn Command upcase-region start end
2299 This function converts all of the letters in the region defined by
2300 @var{start} and @var{end} to upper case. The function returns
2301 @code{nil}.
2302
2303 When @code{upcase-region} is called interactively, @var{start} and
2304 @var{end} are point and the mark, with the smallest first.
2305 @end deffn
2306
2307 @deffn Command capitalize-word count
2308 This function capitalizes @var{count} words after point, moving point
2309 over as it does. To capitalize means to convert each word's first
2310 character to upper case and convert the rest of each word to lower case.
2311 If @var{count} is negative, the function capitalizes the
2312 @minus{}@var{count} previous words but does not move point. The value
2313 is @code{nil}.
2314
2315 If point is in the middle of a word, the part of the word before point
2316 is ignored when moving forward. The rest is treated as an entire word.
2317
2318 When @code{capitalize-word} is called interactively, @var{count} is
2319 set to the numeric prefix argument.
2320 @end deffn
2321
2322 @deffn Command downcase-word count
2323 This function converts the @var{count} words after point to all lower
2324 case, moving point over as it does. If @var{count} is negative, it
2325 converts the @minus{}@var{count} previous words but does not move point.
2326 The value is @code{nil}.
2327
2328 When @code{downcase-word} is called interactively, @var{count} is set
2329 to the numeric prefix argument.
2330 @end deffn
2331
2332 @deffn Command upcase-word count
2333 This function converts the @var{count} words after point to all upper
2334 case, moving point over as it does. If @var{count} is negative, it
2335 converts the @minus{}@var{count} previous words but does not move point.
2336 The value is @code{nil}.
2337
2338 When @code{upcase-word} is called interactively, @var{count} is set to
2339 the numeric prefix argument.
2340 @end deffn
2341
2342 @node Text Properties
2343 @section Text Properties
2344 @cindex text properties
2345 @cindex attributes of text
2346 @cindex properties of text
2347
2348 Each character position in a buffer or a string can have a @dfn{text
2349 property list}, much like the property list of a symbol (@pxref{Property
2350 Lists}). The properties belong to a particular character at a
2351 particular place, such as, the letter @samp{T} at the beginning of this
2352 sentence or the first @samp{o} in @samp{foo}---if the same character
2353 occurs in two different places, the two occurrences generally have
2354 different properties.
2355
2356 Each property has a name and a value. Both of these can be any Lisp
2357 object, but the name is normally a symbol. The usual way to access the
2358 property list is to specify a name and ask what value corresponds to it.
2359
2360 If a character has a @code{category} property, we call it the
2361 @dfn{category} of the character. It should be a symbol. The properties
2362 of the symbol serve as defaults for the properties of the character.
2363
2364 Copying text between strings and buffers preserves the properties
2365 along with the characters; this includes such diverse functions as
2366 @code{substring}, @code{insert}, and @code{buffer-substring}.
2367
2368 @menu
2369 * Examining Properties:: Looking at the properties of one character.
2370 * Changing Properties:: Setting the properties of a range of text.
2371 * Property Search:: Searching for where a property changes value.
2372 * Special Properties:: Particular properties with special meanings.
2373 * Format Properties:: Properties for representing formatting of text.
2374 * Sticky Properties:: How inserted text gets properties from
2375 neighboring text.
2376 * Saving Properties:: Saving text properties in files, and reading
2377 them back.
2378 * Lazy Properties:: Computing text properties in a lazy fashion
2379 only when text is examined.
2380 * Clickable Text:: Using text properties to make regions of text
2381 do something when you click on them.
2382 * Fields:: The @code{field} property defines
2383 fields within the buffer.
2384 * Not Intervals:: Why text properties do not use
2385 Lisp-visible text intervals.
2386 @end menu
2387
2388 @node Examining Properties
2389 @subsection Examining Text Properties
2390
2391 The simplest way to examine text properties is to ask for the value of
2392 a particular property of a particular character. For that, use
2393 @code{get-text-property}. Use @code{text-properties-at} to get the
2394 entire property list of a character. @xref{Property Search}, for
2395 functions to examine the properties of a number of characters at once.
2396
2397 These functions handle both strings and buffers. Keep in mind that
2398 positions in a string start from 0, whereas positions in a buffer start
2399 from 1.
2400
2401 @defun get-text-property pos prop &optional object
2402 This function returns the value of the @var{prop} property of the
2403 character after position @var{pos} in @var{object} (a buffer or
2404 string). The argument @var{object} is optional and defaults to the
2405 current buffer.
2406
2407 If there is no @var{prop} property strictly speaking, but the character
2408 has a category that is a symbol, then @code{get-text-property} returns
2409 the @var{prop} property of that symbol.
2410 @end defun
2411
2412 @defun get-char-property pos prop &optional object
2413 This function is like @code{get-text-property}, except that it checks
2414 overlays first and then text properties. @xref{Overlays}.
2415
2416 The argument @var{object} may be a string, a buffer, or a window. If it
2417 is a window, then the buffer displayed in that window is used for text
2418 properties and overlays, but only the overlays active for that window
2419 are considered. If @var{object} is a buffer, then all overlays in that
2420 buffer are considered, as well as text properties. If @var{object} is a
2421 string, only text properties are considered, since strings never have
2422 overlays.
2423 @end defun
2424
2425 @defvar char-property-alias-alist
2426 This variable holds an alist which maps property names to a list of
2427 alternative property names. If a character does not specify a direct
2428 value for a property, the alternative property names are consulted in
2429 order; the first non-@code{nil} value is used. This variable takes
2430 precedence over @code{default-text-properties}, and @code{category}
2431 properties take precedence over this variable.
2432 @end defvar
2433
2434 @defun text-properties-at position &optional object
2435 This function returns the entire property list of the character at
2436 @var{position} in the string or buffer @var{object}. If @var{object} is
2437 @code{nil}, it defaults to the current buffer.
2438 @end defun
2439
2440 @defvar default-text-properties
2441 This variable holds a property list giving default values for text
2442 properties. Whenever a character does not specify a value for a
2443 property, neither directly, through a category symbol, or through
2444 @code{char-property-alias-alist}, the value stored in this list is
2445 used instead. Here is an example:
2446
2447 @example
2448 (setq default-text-properties '(foo 69)
2449 char-property-alias-alist nil)
2450 ;; @r{Make sure character 1 has no properties of its own.}
2451 (set-text-properties 1 2 nil)
2452 ;; @r{What we get, when we ask, is the default value.}
2453 (get-text-property 1 'foo)
2454 @result{} 69
2455 @end example
2456 @end defvar
2457
2458 @node Changing Properties
2459 @subsection Changing Text Properties
2460
2461 The primitives for changing properties apply to a specified range of
2462 text in a buffer or string. The function @code{set-text-properties}
2463 (see end of section) sets the entire property list of the text in that
2464 range; more often, it is useful to add, change, or delete just certain
2465 properties specified by name.
2466
2467 Since text properties are considered part of the contents of the
2468 buffer (or string), and can affect how a buffer looks on the screen,
2469 any change in buffer text properties marks the buffer as modified.
2470 Buffer text property changes are undoable also (@pxref{Undo}).
2471 Positions in a string start from 0, whereas positions in a buffer
2472 start from 1.
2473
2474 @defun put-text-property start end prop value &optional object
2475 This function sets the @var{prop} property to @var{value} for the text
2476 between @var{start} and @var{end} in the string or buffer @var{object}.
2477 If @var{object} is @code{nil}, it defaults to the current buffer.
2478 @end defun
2479
2480 @defun add-text-properties start end props &optional object
2481 This function adds or overrides text properties for the text between
2482 @var{start} and @var{end} in the string or buffer @var{object}. If
2483 @var{object} is @code{nil}, it defaults to the current buffer.
2484
2485 The argument @var{props} specifies which properties to add. It should
2486 have the form of a property list (@pxref{Property Lists}): a list whose
2487 elements include the property names followed alternately by the
2488 corresponding values.
2489
2490 The return value is @code{t} if the function actually changed some
2491 property's value; @code{nil} otherwise (if @var{props} is @code{nil} or
2492 its values agree with those in the text).
2493
2494 For example, here is how to set the @code{comment} and @code{face}
2495 properties of a range of text:
2496
2497 @example
2498 (add-text-properties @var{start} @var{end}
2499 '(comment t face highlight))
2500 @end example
2501 @end defun
2502
2503 @defun remove-text-properties start end props &optional object
2504 This function deletes specified text properties from the text between
2505 @var{start} and @var{end} in the string or buffer @var{object}. If
2506 @var{object} is @code{nil}, it defaults to the current buffer.
2507
2508 The argument @var{props} specifies which properties to delete. It
2509 should have the form of a property list (@pxref{Property Lists}): a list
2510 whose elements are property names alternating with corresponding values.
2511 But only the names matter---the values that accompany them are ignored.
2512 For example, here's how to remove the @code{face} property.
2513
2514 @example
2515 (remove-text-properties @var{start} @var{end} '(face nil))
2516 @end example
2517
2518 The return value is @code{t} if the function actually changed some
2519 property's value; @code{nil} otherwise (if @var{props} is @code{nil} or
2520 if no character in the specified text had any of those properties).
2521
2522 To remove all text properties from certain text, use
2523 @code{set-text-properties} and specify @code{nil} for the new property
2524 list.
2525 @end defun
2526
2527 @defun remove-list-of-text-properties start end list-of-properties &optional object
2528 Like @code{remove-list-properties} except that
2529 @var{list-of-properties} is a list property names only, not an
2530 alternating list of property values.
2531 @end defun
2532
2533 @defun set-text-properties start end props &optional object
2534 This function completely replaces the text property list for the text
2535 between @var{start} and @var{end} in the string or buffer @var{object}.
2536 If @var{object} is @code{nil}, it defaults to the current buffer.
2537
2538 The argument @var{props} is the new property list. It should be a list
2539 whose elements are property names alternating with corresponding values.
2540
2541 After @code{set-text-properties} returns, all the characters in the
2542 specified range have identical properties.
2543
2544 If @var{props} is @code{nil}, the effect is to get rid of all properties
2545 from the specified range of text. Here's an example:
2546
2547 @example
2548 (set-text-properties @var{start} @var{end} nil)
2549 @end example
2550 @end defun
2551
2552 The easiest way to make a string with text properties
2553 is with @code{propertize}:
2554
2555 @defun propertize string &rest properties
2556 @tindex propertize
2557 This function returns a copy of @var{string} which has the text
2558 properties @var{properties}. These properties apply to all the
2559 characters in the string that is returned. Here is an example that
2560 constructs a string with a @code{face} property and a @code{mouse-face}
2561 property:
2562
2563 @smallexample
2564 (propertize "foo" 'face 'italic
2565 'mouse-face 'bold-italic)
2566 @result{} #("foo" 0 3 (mouse-face bold-italic face italic))
2567 @end smallexample
2568
2569 To put different properties on various parts of a string, you can
2570 construct each part with @code{propertize} and then combine them with
2571 @code{concat}:
2572
2573 @smallexample
2574 (concat
2575 (propertize "foo" 'face 'italic
2576 'mouse-face 'bold-italic)
2577 " and "
2578 (propertize "bar" 'face 'italic
2579 'mouse-face 'bold-italic))
2580 @result{} #("foo and bar"
2581 0 3 (face italic mouse-face bold-italic)
2582 3 8 nil
2583 8 11 (face italic mouse-face bold-italic))
2584 @end smallexample
2585 @end defun
2586
2587 See also the function @code{buffer-substring-no-properties}
2588 (@pxref{Buffer Contents}) which copies text from the buffer
2589 but does not copy its properties.
2590
2591 @node Property Search
2592 @subsection Text Property Search Functions
2593
2594 In typical use of text properties, most of the time several or many
2595 consecutive characters have the same value for a property. Rather than
2596 writing your programs to examine characters one by one, it is much
2597 faster to process chunks of text that have the same property value.
2598
2599 Here are functions you can use to do this. They use @code{eq} for
2600 comparing property values. In all cases, @var{object} defaults to the
2601 current buffer.
2602
2603 For high performance, it's very important to use the @var{limit}
2604 argument to these functions, especially the ones that search for a
2605 single property---otherwise, they may spend a long time scanning to the
2606 end of the buffer, if the property you are interested in does not change.
2607
2608 These functions do not move point; instead, they return a position (or
2609 @code{nil}). Remember that a position is always between two characters;
2610 the position returned by these functions is between two characters with
2611 different properties.
2612
2613 @defun next-property-change pos &optional object limit
2614 The function scans the text forward from position @var{pos} in the
2615 string or buffer @var{object} till it finds a change in some text
2616 property, then returns the position of the change. In other words, it
2617 returns the position of the first character beyond @var{pos} whose
2618 properties are not identical to those of the character just after
2619 @var{pos}.
2620
2621 If @var{limit} is non-@code{nil}, then the scan ends at position
2622 @var{limit}. If there is no property change before that point,
2623 @code{next-property-change} returns @var{limit}.
2624
2625 The value is @code{nil} if the properties remain unchanged all the way
2626 to the end of @var{object} and @var{limit} is @code{nil}. If the value
2627 is non-@code{nil}, it is a position greater than or equal to @var{pos}.
2628 The value equals @var{pos} only when @var{limit} equals @var{pos}.
2629
2630 Here is an example of how to scan the buffer by chunks of text within
2631 which all properties are constant:
2632
2633 @smallexample
2634 (while (not (eobp))
2635 (let ((plist (text-properties-at (point)))
2636 (next-change
2637 (or (next-property-change (point) (current-buffer))
2638 (point-max))))
2639 @r{Process text from point to @var{next-change}@dots{}}
2640 (goto-char next-change)))
2641 @end smallexample
2642 @end defun
2643
2644 @defun next-single-property-change pos prop &optional object limit
2645 The function scans the text forward from position @var{pos} in the
2646 string or buffer @var{object} till it finds a change in the @var{prop}
2647 property, then returns the position of the change. In other words, it
2648 returns the position of the first character beyond @var{pos} whose
2649 @var{prop} property differs from that of the character just after
2650 @var{pos}.
2651
2652 If @var{limit} is non-@code{nil}, then the scan ends at position
2653 @var{limit}. If there is no property change before that point,
2654 @code{next-single-property-change} returns @var{limit}.
2655
2656 The value is @code{nil} if the property remains unchanged all the way to
2657 the end of @var{object} and @var{limit} is @code{nil}. If the value is
2658 non-@code{nil}, it is a position greater than or equal to @var{pos}; it
2659 equals @var{pos} only if @var{limit} equals @var{pos}.
2660 @end defun
2661
2662 @defun previous-property-change pos &optional object limit
2663 This is like @code{next-property-change}, but scans back from @var{pos}
2664 instead of forward. If the value is non-@code{nil}, it is a position
2665 less than or equal to @var{pos}; it equals @var{pos} only if @var{limit}
2666 equals @var{pos}.
2667 @end defun
2668
2669 @defun previous-single-property-change pos prop &optional object limit
2670 This is like @code{next-single-property-change}, but scans back from
2671 @var{pos} instead of forward. If the value is non-@code{nil}, it is a
2672 position less than or equal to @var{pos}; it equals @var{pos} only if
2673 @var{limit} equals @var{pos}.
2674 @end defun
2675
2676 @defun next-char-property-change pos &optional limit
2677 This is like @code{next-property-change} except that it considers
2678 overlay properties as well as text properties, and if no change is
2679 found before the end of the buffer, it returns the maximum buffer
2680 position rather than @code{nil} (in this sense, it resembles the
2681 corresponding overlay function @code{next-overlay-change}, rather than
2682 @code{next-property-change}). There is no @var{object} operand
2683 because this function operates only on the current buffer. It returns
2684 the next address at which either kind of property changes.
2685 @end defun
2686
2687 @defun previous-char-property-change pos &optional limit
2688 This is like @code{next-char-property-change}, but scans back from
2689 @var{pos} instead of forward, and returns the minimum buffer
2690 position if no change is found.
2691 @end defun
2692
2693 @defun next-single-char-property-change pos prop &optional object limit
2694 @tindex next-single-char-property-change
2695 This is like @code{next-single-property-change} except that it
2696 considers overlay properties as well as text properties, and if no
2697 change is found before the end of the @var{object}, it returns the
2698 maximum valid position in @var{object} rather than @code{nil}. Unlike
2699 @code{next-char-property-change}, this function @emph{does} have an
2700 @var{object} operand; if @var{object} is not a buffer, only
2701 text-properties are considered.
2702 @end defun
2703
2704 @defun previous-single-char-property-change pos prop &optional object limit
2705 @tindex previous-single-char-property-change
2706 This is like @code{next-single-char-property-change}, but scans back
2707 from @var{pos} instead of forward, and returns the minimum valid
2708 position in @var{object} if no change is found.
2709 @end defun
2710
2711 @defun text-property-any start end prop value &optional object
2712 This function returns non-@code{nil} if at least one character between
2713 @var{start} and @var{end} has a property @var{prop} whose value is
2714 @var{value}. More precisely, it returns the position of the first such
2715 character. Otherwise, it returns @code{nil}.
2716
2717 The optional fifth argument, @var{object}, specifies the string or
2718 buffer to scan. Positions are relative to @var{object}. The default
2719 for @var{object} is the current buffer.
2720 @end defun
2721
2722 @defun text-property-not-all start end prop value &optional object
2723 This function returns non-@code{nil} if at least one character between
2724 @var{start} and @var{end} does not have a property @var{prop} with value
2725 @var{value}. More precisely, it returns the position of the first such
2726 character. Otherwise, it returns @code{nil}.
2727
2728 The optional fifth argument, @var{object}, specifies the string or
2729 buffer to scan. Positions are relative to @var{object}. The default
2730 for @var{object} is the current buffer.
2731 @end defun
2732
2733 @node Special Properties
2734 @subsection Properties with Special Meanings
2735
2736 Here is a table of text property names that have special built-in
2737 meanings. The following sections list a few additional special property
2738 names that control filling and property inheritance. All other names
2739 have no standard meaning, and you can use them as you like.
2740
2741 @table @code
2742 @cindex category of text character
2743 @kindex category @r{(text property)}
2744 @item category
2745 If a character has a @code{category} property, we call it the
2746 @dfn{category} of the character. It should be a symbol. The properties
2747 of the symbol serve as defaults for the properties of the character.
2748
2749 @item face
2750 @cindex face codes of text
2751 @kindex face @r{(text property)}
2752 You can use the property @code{face} to control the font and color of
2753 text. @xref{Faces}, for more information.
2754
2755 In the simplest case, the value is a face name. It can also be a list;
2756 then each element can be any of these possibilities;
2757
2758 @itemize @bullet
2759 @item
2760 A face name (a symbol or string).
2761
2762 @item
2763 Starting in Emacs 21, a property list of face attributes. This has the
2764 form (@var{keyword} @var{value} @dots{}), where each @var{keyword} is a
2765 face attribute name and @var{value} is a meaningful value for that
2766 attribute. With this feature, you do not need to create a face each
2767 time you want to specify a particular attribute for certain text.
2768 @xref{Face Attributes}.
2769
2770 @item
2771 A cons cell of the form @code{(foreground-color . @var{color-name})} or
2772 @code{(background-color . @var{color-name})}. These elements specify
2773 just the foreground color or just the background color.
2774
2775 @code{(foreground-color . @var{color-name})} is equivalent to
2776 @code{(:foreground @var{color-name})}, and likewise for the background.
2777 @end itemize
2778
2779 You can use Font Lock Mode (@pxref{Font Lock Mode}), to dynamically
2780 update @code{face} properties based on the contents of the text.
2781
2782 @item font-lock-face
2783 @kindex font-lock-face @r{(text property)}
2784 The @code{font-lock-face} property is the same in all respects as the
2785 @code{face} property, but its state of activation is controlled by
2786 @code{font-lock-mode}. This can be advantageous for special buffers
2787 which are not intended to be user-editable, or for static areas of
2788 text which are always fontified in the same way.
2789 @xref{Precalculated Fontification}.
2790
2791 Strictly speaking, @code{font-lock-face} is not a built-in text
2792 property; rather, it is implemented in Font Lock mode using
2793 @code{char-property-alias-alist}. @xref{Examining Properties}.
2794
2795 This property is new in Emacs 21.4.
2796
2797 @item mouse-face
2798 @kindex mouse-face @r{(text property)}
2799 The property @code{mouse-face} is used instead of @code{face} when the
2800 mouse is on or near the character. For this purpose, ``near'' means
2801 that all text between the character and where the mouse is have the same
2802 @code{mouse-face} property value.
2803
2804 @item fontified
2805 @kindex fontified @r{(text property)}
2806 This property, if non-@code{nil}, says that text in the buffer has
2807 had faces assigned automatically by a feature such as Font-Lock mode.
2808 @xref{Auto Faces}.
2809
2810 @item display
2811 @kindex display @r{(text property)}
2812 This property activates various features that change the
2813 way text is displayed. For example, it can make text appear taller
2814 or shorter, higher or lower, wider or narrow, or replaced with an image.
2815 @xref{Display Property}.
2816
2817 @item help-echo
2818 @kindex help-echo @r{(text property)}
2819 @cindex tooltip
2820 @anchor{Text help-echo}
2821 If text has a string as its @code{help-echo} property, then when you
2822 move the mouse onto that text, Emacs displays that string in the echo
2823 area, or in the tooltip window (@pxref{Tooltips,,, emacs, The GNU Emacs
2824 Manual}).
2825
2826 If the value of the @code{help-echo} property is a function, that
2827 function is called with three arguments, @var{window}, @var{object} and
2828 @var{position} and should return a help string or @var{nil} for
2829 none. The first argument, @var{window} is the window in which
2830 the help was found. The second, @var{object}, is the buffer, overlay or
2831 string which had the @code{help-echo} property. The @var{position}
2832 argument is as follows:
2833
2834 @itemize @bullet{}
2835 @item
2836 If @var{object} is a buffer, @var{pos} is the position in the buffer
2837 where the @code{help-echo} text property was found.
2838 @item
2839 If @var{object} is an overlay, that overlay has a @code{help-echo}
2840 property, and @var{pos} is the position in the overlay's buffer under
2841 the mouse.
2842 @item
2843 If @var{object} is a string (an overlay string or a string displayed
2844 with the @code{display} property), @var{pos} is the position in that
2845 string under the mouse.
2846 @end itemize
2847
2848 If the value of the @code{help-echo} property is neither a function nor
2849 a string, it is evaluated to obtain a help string.
2850
2851 You can alter the way help text is displayed by setting the variable
2852 @code{show-help-function} (@pxref{Help display}).
2853
2854 This feature is used in the mode line and for other active text.
2855
2856 @item keymap
2857 @cindex keymap of character
2858 @kindex keymap @r{(text property)}
2859 The @code{keymap} property specifies an additional keymap for
2860 commands. The property's value for the character before point applies
2861 if it is non-@code{nil} and rear-sticky, and the property's value for
2862 the character after point applies if it is non-@code{nil} and
2863 front-sticky. When the value applies, it is used for key lookup
2864 before the buffer's local map. (For mouse clicks, the position of the
2865 click is used instead of the position of point.) If the property
2866 value is a symbol, the symbol's function definition is used as the
2867 keymap. @xref{Active Keymaps}.
2868
2869 @item local-map
2870 @kindex local-map @r{(text property)}
2871 This property works like @code{keymap} except that it specifies a
2872 keymap to use @emph{instead of} the buffer's local map. For most
2873 purposes (perhaps all purposes), the @code{keymap} is superior.
2874
2875 @item syntax-table
2876 The @code{syntax-table} property overrides what the syntax table says
2877 about this particular character. @xref{Syntax Properties}.
2878
2879 @item read-only
2880 @cindex read-only character
2881 @kindex read-only @r{(text property)}
2882 If a character has the property @code{read-only}, then modifying that
2883 character is not allowed. Any command that would do so gets an error,
2884 @code{text-read-only}.
2885
2886 Insertion next to a read-only character is an error if inserting
2887 ordinary text there would inherit the @code{read-only} property due to
2888 stickiness. Thus, you can control permission to insert next to
2889 read-only text by controlling the stickiness. @xref{Sticky Properties}.
2890
2891 Since changing properties counts as modifying the buffer, it is not
2892 possible to remove a @code{read-only} property unless you know the
2893 special trick: bind @code{inhibit-read-only} to a non-@code{nil} value
2894 and then remove the property. @xref{Read Only Buffers}.
2895
2896 @item invisible
2897 @kindex invisible @r{(text property)}
2898 A non-@code{nil} @code{invisible} property can make a character invisible
2899 on the screen. @xref{Invisible Text}, for details.
2900
2901 @item intangible
2902 @kindex intangible @r{(text property)}
2903 If a group of consecutive characters have equal and non-@code{nil}
2904 @code{intangible} properties, then you cannot place point between them.
2905 If you try to move point forward into the group, point actually moves to
2906 the end of the group. If you try to move point backward into the group,
2907 point actually moves to the start of the group.
2908
2909 When the variable @code{inhibit-point-motion-hooks} is non-@code{nil},
2910 the @code{intangible} property is ignored.
2911
2912 @item field
2913 @kindex field @r{(text property)}
2914 Consecutive characters with the same @code{field} property constitute a
2915 @dfn{field}. Some motion functions including @code{forward-word} and
2916 @code{beginning-of-line} stop moving at a field boundary.
2917 @xref{Fields}.
2918
2919 @item modification-hooks
2920 @cindex change hooks for a character
2921 @cindex hooks for changing a character
2922 @kindex modification-hooks @r{(text property)}
2923 If a character has the property @code{modification-hooks}, then its
2924 value should be a list of functions; modifying that character calls all
2925 of those functions. Each function receives two arguments: the beginning
2926 and end of the part of the buffer being modified. Note that if a
2927 particular modification hook function appears on several characters
2928 being modified by a single primitive, you can't predict how many times
2929 the function will be called.
2930
2931 @item insert-in-front-hooks
2932 @itemx insert-behind-hooks
2933 @kindex insert-in-front-hooks @r{(text property)}
2934 @kindex insert-behind-hooks @r{(text property)}
2935 The operation of inserting text in a buffer also calls the functions
2936 listed in the @code{insert-in-front-hooks} property of the following
2937 character and in the @code{insert-behind-hooks} property of the
2938 preceding character. These functions receive two arguments, the
2939 beginning and end of the inserted text. The functions are called
2940 @emph{after} the actual insertion takes place.
2941
2942 See also @ref{Change Hooks}, for other hooks that are called
2943 when you change text in a buffer.
2944
2945 @item point-entered
2946 @itemx point-left
2947 @cindex hooks for motion of point
2948 @kindex point-entered @r{(text property)}
2949 @kindex point-left @r{(text property)}
2950 The special properties @code{point-entered} and @code{point-left}
2951 record hook functions that report motion of point. Each time point
2952 moves, Emacs compares these two property values:
2953
2954 @itemize @bullet
2955 @item
2956 the @code{point-left} property of the character after the old location,
2957 and
2958 @item
2959 the @code{point-entered} property of the character after the new
2960 location.
2961 @end itemize
2962
2963 @noindent
2964 If these two values differ, each of them is called (if not @code{nil})
2965 with two arguments: the old value of point, and the new one.
2966
2967 The same comparison is made for the characters before the old and new
2968 locations. The result may be to execute two @code{point-left} functions
2969 (which may be the same function) and/or two @code{point-entered}
2970 functions (which may be the same function). In any case, all the
2971 @code{point-left} functions are called first, followed by all the
2972 @code{point-entered} functions.
2973
2974 It is possible using @code{char-after} to examine characters at various
2975 positions without moving point to those positions. Only an actual
2976 change in the value of point runs these hook functions.
2977 @end table
2978
2979 @defvar inhibit-point-motion-hooks
2980 When this variable is non-@code{nil}, @code{point-left} and
2981 @code{point-entered} hooks are not run, and the @code{intangible}
2982 property has no effect. Do not set this variable globally; bind it with
2983 @code{let}.
2984 @end defvar
2985
2986 @defvar show-help-function
2987 @tindex show-help-function
2988 @anchor{Help display} If this variable is non-@code{nil}, it specifies a
2989 function called to display help strings. These may be @code{help-echo}
2990 properties, menu help strings (@pxref{Simple Menu Items},
2991 @pxref{Extended Menu Items}), or tool bar help strings (@pxref{Tool
2992 Bar}). The specified function is called with one argument, the help
2993 string to display. Tooltip mode (@pxref{Tooltips,,, emacs, The GNU Emacs
2994 Manual}) provides an example.
2995 @end defvar
2996
2997 @node Format Properties
2998 @subsection Formatted Text Properties
2999
3000 These text properties affect the behavior of the fill commands. They
3001 are used for representing formatted text. @xref{Filling}, and
3002 @ref{Margins}.
3003
3004 @table @code
3005 @item hard
3006 If a newline character has this property, it is a ``hard'' newline.
3007 The fill commands do not alter hard newlines and do not move words
3008 across them. However, this property takes effect only if the variable
3009 @code{use-hard-newlines} is non-@code{nil}.
3010
3011 @item right-margin
3012 This property specifies an extra right margin for filling this part of the
3013 text.
3014
3015 @item left-margin
3016 This property specifies an extra left margin for filling this part of the
3017 text.
3018
3019 @item justification
3020 This property specifies the style of justification for filling this part
3021 of the text.
3022 @end table
3023
3024 @node Sticky Properties
3025 @subsection Stickiness of Text Properties
3026 @cindex sticky text properties
3027 @cindex inheritance of text properties
3028
3029 Self-inserting characters normally take on the same properties as the
3030 preceding character. This is called @dfn{inheritance} of properties.
3031
3032 In a Lisp program, you can do insertion with inheritance or without,
3033 depending on your choice of insertion primitive. The ordinary text
3034 insertion functions such as @code{insert} do not inherit any properties.
3035 They insert text with precisely the properties of the string being
3036 inserted, and no others. This is correct for programs that copy text
3037 from one context to another---for example, into or out of the kill ring.
3038 To insert with inheritance, use the special primitives described in this
3039 section. Self-inserting characters inherit properties because they work
3040 using these primitives.
3041
3042 When you do insertion with inheritance, @emph{which} properties are
3043 inherited, and from where, depends on which properties are @dfn{sticky}.
3044 Insertion after a character inherits those of its properties that are
3045 @dfn{rear-sticky}. Insertion before a character inherits those of its
3046 properties that are @dfn{front-sticky}. When both sides offer different
3047 sticky values for the same property, the previous character's value
3048 takes precedence.
3049
3050 By default, a text property is rear-sticky but not front-sticky; thus,
3051 the default is to inherit all the properties of the preceding character,
3052 and nothing from the following character.
3053
3054 You can control the stickiness of various text properties with two
3055 specific text properties, @code{front-sticky} and @code{rear-nonsticky},
3056 and with the variable @code{text-property-default-nonsticky}. You can
3057 use the variable to specify a different default for a given property.
3058 You can use those two text properties to make any specific properties
3059 sticky or nonsticky in any particular part of the text.
3060
3061 If a character's @code{front-sticky} property is @code{t}, then all
3062 its properties are front-sticky. If the @code{front-sticky} property is
3063 a list, then the sticky properties of the character are those whose
3064 names are in the list. For example, if a character has a
3065 @code{front-sticky} property whose value is @code{(face read-only)},
3066 then insertion before the character can inherit its @code{face} property
3067 and its @code{read-only} property, but no others.
3068
3069 The @code{rear-nonsticky} property works the opposite way. Most
3070 properties are rear-sticky by default, so the @code{rear-nonsticky}
3071 property says which properties are @emph{not} rear-sticky. If a
3072 character's @code{rear-nonsticky} property is @code{t}, then none of its
3073 properties are rear-sticky. If the @code{rear-nonsticky} property is a
3074 list, properties are rear-sticky @emph{unless} their names are in the
3075 list.
3076
3077 @defvar text-property-default-nonsticky
3078 @tindex text-property-default-nonsticky
3079 This variable holds an alist which defines the default rear-stickiness
3080 of various text properties. Each element has the form
3081 @code{(@var{property} . @var{nonstickiness})}, and it defines the
3082 stickiness of a particular text property, @var{property}.
3083
3084 If @var{nonstickiness} is non-@code{nil}, this means that the property
3085 @var{property} is rear-nonsticky by default. Since all properties are
3086 front-nonsticky by default, this makes @var{property} nonsticky in both
3087 directions by default.
3088
3089 The text properties @code{front-sticky} and @code{rear-nonsticky}, when
3090 used, take precedence over the default @var{nonstickiness} specified in
3091 @code{text-property-default-nonsticky}.
3092 @end defvar
3093
3094 Here are the functions that insert text with inheritance of properties:
3095
3096 @defun insert-and-inherit &rest strings
3097 Insert the strings @var{strings}, just like the function @code{insert},
3098 but inherit any sticky properties from the adjoining text.
3099 @end defun
3100
3101 @defun insert-before-markers-and-inherit &rest strings
3102 Insert the strings @var{strings}, just like the function
3103 @code{insert-before-markers}, but inherit any sticky properties from the
3104 adjoining text.
3105 @end defun
3106
3107 @xref{Insertion}, for the ordinary insertion functions which do not
3108 inherit.
3109
3110 @node Saving Properties
3111 @subsection Saving Text Properties in Files
3112 @cindex text properties in files
3113 @cindex saving text properties
3114
3115 You can save text properties in files (along with the text itself),
3116 and restore the same text properties when visiting or inserting the
3117 files, using these two hooks:
3118
3119 @defvar write-region-annotate-functions
3120 This variable's value is a list of functions for @code{write-region} to
3121 run to encode text properties in some fashion as annotations to the text
3122 being written in the file. @xref{Writing to Files}.
3123
3124 Each function in the list is called with two arguments: the start and
3125 end of the region to be written. These functions should not alter the
3126 contents of the buffer. Instead, they should return lists indicating
3127 annotations to write in the file in addition to the text in the
3128 buffer.
3129
3130 Each function should return a list of elements of the form
3131 @code{(@var{position} . @var{string})}, where @var{position} is an
3132 integer specifying the relative position within the text to be written,
3133 and @var{string} is the annotation to add there.
3134
3135 Each list returned by one of these functions must be already sorted in
3136 increasing order by @var{position}. If there is more than one function,
3137 @code{write-region} merges the lists destructively into one sorted list.
3138
3139 When @code{write-region} actually writes the text from the buffer to the
3140 file, it intermixes the specified annotations at the corresponding
3141 positions. All this takes place without modifying the buffer.
3142 @end defvar
3143
3144 @defvar after-insert-file-functions
3145 This variable holds a list of functions for @code{insert-file-contents}
3146 to call after inserting a file's contents. These functions should scan
3147 the inserted text for annotations, and convert them to the text
3148 properties they stand for.
3149
3150 Each function receives one argument, the length of the inserted text;
3151 point indicates the start of that text. The function should scan that
3152 text for annotations, delete them, and create the text properties that
3153 the annotations specify. The function should return the updated length
3154 of the inserted text, as it stands after those changes. The value
3155 returned by one function becomes the argument to the next function.
3156
3157 These functions should always return with point at the beginning of
3158 the inserted text.
3159
3160 The intended use of @code{after-insert-file-functions} is for converting
3161 some sort of textual annotations into actual text properties. But other
3162 uses may be possible.
3163 @end defvar
3164
3165 We invite users to write Lisp programs to store and retrieve text
3166 properties in files, using these hooks, and thus to experiment with
3167 various data formats and find good ones. Eventually we hope users
3168 will produce good, general extensions we can install in Emacs.
3169
3170 We suggest not trying to handle arbitrary Lisp objects as text property
3171 names or values---because a program that general is probably difficult
3172 to write, and slow. Instead, choose a set of possible data types that
3173 are reasonably flexible, and not too hard to encode.
3174
3175 @xref{Format Conversion}, for a related feature.
3176
3177 @c ??? In next edition, merge this info Format Conversion.
3178
3179 @node Lazy Properties
3180 @subsection Lazy Computation of Text Properties
3181
3182 Instead of computing text properties for all the text in the buffer,
3183 you can arrange to compute the text properties for parts of the text
3184 when and if something depends on them.
3185
3186 The primitive that extracts text from the buffer along with its
3187 properties is @code{buffer-substring}. Before examining the properties,
3188 this function runs the abnormal hook @code{buffer-access-fontify-functions}.
3189
3190 @defvar buffer-access-fontify-functions
3191 This variable holds a list of functions for computing text properties.
3192 Before @code{buffer-substring} copies the text and text properties for a
3193 portion of the buffer, it calls all the functions in this list. Each of
3194 the functions receives two arguments that specify the range of the
3195 buffer being accessed. (The buffer itself is always the current
3196 buffer.)
3197 @end defvar
3198
3199 The function @code{buffer-substring-no-properties} does not call these
3200 functions, since it ignores text properties anyway.
3201
3202 In order to prevent the hook functions from being called more than
3203 once for the same part of the buffer, you can use the variable
3204 @code{buffer-access-fontified-property}.
3205
3206 @defvar buffer-access-fontified-property
3207 If this value's variable is non-@code{nil}, it is a symbol which is used
3208 as a text property name. A non-@code{nil} value for that text property
3209 means, ``the other text properties for this character have already been
3210 computed.''
3211
3212 If all the characters in the range specified for @code{buffer-substring}
3213 have a non-@code{nil} value for this property, @code{buffer-substring}
3214 does not call the @code{buffer-access-fontify-functions} functions. It
3215 assumes these characters already have the right text properties, and
3216 just copies the properties they already have.
3217
3218 The normal way to use this feature is that the
3219 @code{buffer-access-fontify-functions} functions add this property, as
3220 well as others, to the characters they operate on. That way, they avoid
3221 being called over and over for the same text.
3222 @end defvar
3223
3224 @node Clickable Text
3225 @subsection Defining Clickable Text
3226 @cindex clickable text
3227
3228 There are two ways to set up @dfn{clickable text} in a buffer.
3229 There are typically two parts of this: to make the text highlight
3230 when the mouse is over it, and to make a mouse button do something
3231 when you click it on that part of the text.
3232
3233 Highlighting is done with the @code{mouse-face} text property.
3234 Here is an example of how Dired does it:
3235
3236 @smallexample
3237 (condition-case nil
3238 (if (dired-move-to-filename)
3239 (put-text-property (point)
3240 (save-excursion
3241 (dired-move-to-end-of-filename)
3242 (point))
3243 'mouse-face 'highlight))
3244 (error nil))
3245 @end smallexample
3246
3247 @noindent
3248 The first two arguments to @code{put-text-property} specify the
3249 beginning and end of the text.
3250
3251 The usual way to make the mouse do something when you click it
3252 on this text is to define @code{mouse-2} in the major mode's
3253 keymap. The job of checking whether the click was on clickable text
3254 is done by the command definition. Here is how Dired does it:
3255
3256 @smallexample
3257 (defun dired-mouse-find-file-other-window (event)
3258 "In dired, visit the file or directory name you click on."
3259 (interactive "e")
3260 (let (file)
3261 (save-excursion
3262 (set-buffer (window-buffer (posn-window (event-end event))))
3263 (save-excursion
3264 (goto-char (posn-point (event-end event)))
3265 (setq file (dired-get-filename))))
3266 (select-window (posn-window (event-end event)))
3267 (find-file-other-window (file-name-sans-versions file t))))
3268 @end smallexample
3269
3270 @noindent
3271 The reason for the outer @code{save-excursion} construct is to avoid
3272 changing the current buffer; the reason for the inner one is to avoid
3273 permanently altering point in the buffer you click on. In this case,
3274 Dired uses the function @code{dired-get-filename} to determine which
3275 file to visit, based on the position found in the event.
3276
3277 Instead of defining a mouse command for the major mode, you can define
3278 a key binding for the clickable text itself, using the @code{keymap}
3279 text property:
3280
3281 @example
3282 (let ((map (make-sparse-keymap)))
3283 (define-key map [mouse-2] 'operate-this-button)
3284 (put-text-property (point)
3285 (save-excursion
3286 (dired-move-to-end-of-filename)
3287 (point))
3288 'keymap map))
3289 @end example
3290
3291 @noindent
3292 This method makes it possible to define different commands for various
3293 clickable pieces of text. Also, the major mode definition (or the
3294 global definition) remains available for the rest of the text in the
3295 buffer.
3296
3297 @node Fields
3298 @subsection Defining and Using Fields
3299 @cindex fields
3300
3301 A field is a range of consecutive characters in the buffer that are
3302 identified by having the same value (comparing with @code{eq}) of the
3303 @code{field} property (either a text-property or an overlay property).
3304 This section describes special functions that are available for
3305 operating on fields.
3306
3307 You specify a field with a buffer position, @var{pos}. We think of
3308 each field as containing a range of buffer positions, so the position
3309 you specify stands for the field containing that position.
3310
3311 When the characters before and after @var{pos} are part of the same
3312 field, there is no doubt which field contains @var{pos}: the one those
3313 characters both belong to. When @var{pos} is at a boundary between
3314 fields, which field it belongs to depends on the stickiness of the
3315 @code{field} properties of the two surrounding characters (@pxref{Sticky
3316 Properties}). The field whose property would be inherited by text
3317 inserted at @var{pos} is the field that contains @var{pos}.
3318
3319 There is an anomalous case where newly inserted text at @var{pos}
3320 would not inherit the @code{field} property from either side. This
3321 happens if the previous character's @code{field} property is not
3322 rear-sticky, and the following character's @code{field} property is not
3323 front-sticky. In this case, @var{pos} belongs to neither the preceding
3324 field nor the following field; the field functions treat it as belonging
3325 to an empty field whose beginning and end are both at @var{pos}.
3326
3327 In all of these functions, if @var{pos} is omitted or @code{nil}, the
3328 value of point is used by default.
3329
3330 @defun field-beginning &optional pos escape-from-edge limit
3331 @tindex field-beginning
3332 This function returns the beginning of the field specified by @var{pos}.
3333
3334 If @var{pos} is at the beginning of its field, and
3335 @var{escape-from-edge} is non-@code{nil}, then the return value is
3336 always the beginning of the preceding field that @emph{ends} at @var{pos},
3337 regardless of the stickiness of the @code{field} properties around
3338 @var{pos}.
3339
3340 If @var{limit} is non-@code{nil}, it is a buffer position; if the
3341 beginning of the field is before @var{limit}, then @var{limit} will be
3342 returned instead.
3343 @end defun
3344
3345 @defun field-end &optional pos escape-from-edge limit
3346 @tindex field-end
3347 This function returns the end of the field specified by @var{pos}.
3348
3349 If @var{pos} is at the end of its field, and @var{escape-from-edge} is
3350 non-@code{nil}, then the return value is always the end of the following
3351 field that @emph{begins} at @var{pos}, regardless of the stickiness of
3352 the @code{field} properties around @var{pos}.
3353
3354 If @var{limit} is non-@code{nil}, it is a buffer position; if the end
3355 of the field is after @var{limit}, then @var{limit} will be returned
3356 instead.
3357 @end defun
3358
3359 @defun field-string &optional pos
3360 @tindex field-string
3361 This function returns the contents of the field specified by @var{pos},
3362 as a string.
3363 @end defun
3364
3365 @defun field-string-no-properties &optional pos
3366 @tindex field-string-no-properties
3367 This function returns the contents of the field specified by @var{pos},
3368 as a string, discarding text properties.
3369 @end defun
3370
3371 @defun delete-field &optional pos
3372 @tindex delete-field
3373 This function deletes the text of the field specified by @var{pos}.
3374 @end defun
3375
3376 @defun constrain-to-field new-pos old-pos &optional escape-from-edge only-in-line inhibit-capture-property
3377 @tindex constrain-to-field
3378 This function ``constrains'' @var{new-pos} to the field that
3379 @var{old-pos} belongs to---in other words, it returns the position
3380 closest to @var{new-pos} that is in the same field as @var{old-pos}.
3381
3382 If @var{new-pos} is @code{nil}, then @code{constrain-to-field} uses
3383 the value of point instead, and moves point to the resulting position.
3384
3385 If @var{old-pos} is at the boundary of two fields, then the acceptable
3386 positions for @var{new-pos} depend on the value of the optional argument
3387 @var{escape-from-edge}. If @var{escape-from-edge} is @code{nil}, then
3388 @var{new-pos} is constrained to the field that has the same @code{field}
3389 property (either a text-property or an overlay property) that new
3390 characters inserted at @var{old-pos} would get. (This depends on the
3391 stickiness of the @code{field} property for the characters before and
3392 after @var{old-pos}.) If @var{escape-from-edge} is non-@code{nil},
3393 @var{new-pos} is constrained to the union of the two adjacent fields.
3394 Additionally, if two fields are separated by another field with the
3395 special value @code{boundary}, then any point within this special field
3396 is also considered to be ``on the boundary.''
3397
3398 If the optional argument @var{only-in-line} is non-@code{nil}, and
3399 constraining @var{new-pos} in the usual way would move it to a different
3400 line, @var{new-pos} is returned unconstrained. This used in commands
3401 that move by line, such as @code{next-line} and
3402 @code{beginning-of-line}, so that they respect field boundaries only in
3403 the case where they can still move to the right line.
3404
3405 If the optional argument @var{inhibit-capture-property} is
3406 non-@code{nil}, and @var{old-pos} has a non-@code{nil} property of that
3407 name, then any field boundaries are ignored.
3408
3409 You can cause @code{constrain-to-field} to ignore all field boundaries
3410 (and so never constrain anything) by binding the variable
3411 @code{inhibit-field-text-motion} to a non-@code{nil} value.
3412 @end defun
3413
3414 @node Not Intervals
3415 @subsection Why Text Properties are not Intervals
3416 @cindex intervals
3417
3418 Some editors that support adding attributes to text in the buffer do
3419 so by letting the user specify ``intervals'' within the text, and adding
3420 the properties to the intervals. Those editors permit the user or the
3421 programmer to determine where individual intervals start and end. We
3422 deliberately provided a different sort of interface in Emacs Lisp to
3423 avoid certain paradoxical behavior associated with text modification.
3424
3425 If the actual subdivision into intervals is meaningful, that means you
3426 can distinguish between a buffer that is just one interval with a
3427 certain property, and a buffer containing the same text subdivided into
3428 two intervals, both of which have that property.
3429
3430 Suppose you take the buffer with just one interval and kill part of
3431 the text. The text remaining in the buffer is one interval, and the
3432 copy in the kill ring (and the undo list) becomes a separate interval.
3433 Then if you yank back the killed text, you get two intervals with the
3434 same properties. Thus, editing does not preserve the distinction
3435 between one interval and two.
3436
3437 Suppose we ``fix'' this problem by coalescing the two intervals when
3438 the text is inserted. That works fine if the buffer originally was a
3439 single interval. But suppose instead that we have two adjacent
3440 intervals with the same properties, and we kill the text of one interval
3441 and yank it back. The same interval-coalescence feature that rescues
3442 the other case causes trouble in this one: after yanking, we have just
3443 one interval. One again, editing does not preserve the distinction
3444 between one interval and two.
3445
3446 Insertion of text at the border between intervals also raises
3447 questions that have no satisfactory answer.
3448
3449 However, it is easy to arrange for editing to behave consistently for
3450 questions of the form, ``What are the properties of this character?''
3451 So we have decided these are the only questions that make sense; we have
3452 not implemented asking questions about where intervals start or end.
3453
3454 In practice, you can usually use the text property search functions in
3455 place of explicit interval boundaries. You can think of them as finding
3456 the boundaries of intervals, assuming that intervals are always
3457 coalesced whenever possible. @xref{Property Search}.
3458
3459 Emacs also provides explicit intervals as a presentation feature; see
3460 @ref{Overlays}.
3461
3462 @node Substitution
3463 @section Substituting for a Character Code
3464
3465 The following functions replace characters within a specified region
3466 based on their character codes.
3467
3468 @defun subst-char-in-region start end old-char new-char &optional noundo
3469 @cindex replace characters
3470 This function replaces all occurrences of the character @var{old-char}
3471 with the character @var{new-char} in the region of the current buffer
3472 defined by @var{start} and @var{end}.
3473
3474 @cindex undo avoidance
3475 If @var{noundo} is non-@code{nil}, then @code{subst-char-in-region} does
3476 not record the change for undo and does not mark the buffer as modified.
3477 This was useful for controlling the old selective display feature
3478 (@pxref{Selective Display}).
3479
3480 @code{subst-char-in-region} does not move point and returns
3481 @code{nil}.
3482
3483 @example
3484 @group
3485 ---------- Buffer: foo ----------
3486 This is the contents of the buffer before.
3487 ---------- Buffer: foo ----------
3488 @end group
3489
3490 @group
3491 (subst-char-in-region 1 20 ?i ?X)
3492 @result{} nil
3493
3494 ---------- Buffer: foo ----------
3495 ThXs Xs the contents of the buffer before.
3496 ---------- Buffer: foo ----------
3497 @end group
3498 @end example
3499 @end defun
3500
3501 @defun translate-region start end table
3502 This function applies a translation table to the characters in the
3503 buffer between positions @var{start} and @var{end}.
3504
3505 The translation table @var{table} is a string; @code{(aref @var{table}
3506 @var{ochar})} gives the translated character corresponding to
3507 @var{ochar}. If the length of @var{table} is less than 256, any
3508 characters with codes larger than the length of @var{table} are not
3509 altered by the translation.
3510
3511 The return value of @code{translate-region} is the number of
3512 characters that were actually changed by the translation. This does
3513 not count characters that were mapped into themselves in the
3514 translation table.
3515 @end defun
3516
3517 @node Registers
3518 @section Registers
3519 @cindex registers
3520
3521 A register is a sort of variable used in Emacs editing that can hold a
3522 variety of different kinds of values. Each register is named by a
3523 single character. All @acronym{ASCII} characters and their meta variants
3524 (but with the exception of @kbd{C-g}) can be used to name registers.
3525 Thus, there are 255 possible registers. A register is designated in
3526 Emacs Lisp by the character that is its name.
3527
3528 @defvar register-alist
3529 This variable is an alist of elements of the form @code{(@var{name} .
3530 @var{contents})}. Normally, there is one element for each Emacs
3531 register that has been used.
3532
3533 The object @var{name} is a character (an integer) identifying the
3534 register.
3535 @end defvar
3536
3537 The @var{contents} of a register can have several possible types:
3538
3539 @table @asis
3540 @item a number
3541 A number stands for itself. If @code{insert-register} finds a number
3542 in the register, it converts the number to decimal.
3543
3544 @item a marker
3545 A marker represents a buffer position to jump to.
3546
3547 @item a string
3548 A string is text saved in the register.
3549
3550 @item a rectangle
3551 A rectangle is represented by a list of strings.
3552
3553 @item @code{(@var{window-configuration} @var{position})}
3554 This represents a window configuration to restore in one frame, and a
3555 position to jump to in the current buffer.
3556
3557 @item @code{(@var{frame-configuration} @var{position})}
3558 This represents a frame configuration to restore, and a position
3559 to jump to in the current buffer.
3560
3561 @item (file @var{filename})
3562 This represents a file to visit; jumping to this value visits file
3563 @var{filename}.
3564
3565 @item (file-query @var{filename} @var{position})
3566 This represents a file to visit and a position in it; jumping to this
3567 value visits file @var{filename} and goes to buffer position
3568 @var{position}. Restoring this type of position asks the user for
3569 confirmation first.
3570 @end table
3571
3572 The functions in this section return unpredictable values unless
3573 otherwise stated.
3574
3575 @defun get-register reg
3576 This function returns the contents of the register
3577 @var{reg}, or @code{nil} if it has no contents.
3578 @end defun
3579
3580 @defun set-register reg value
3581 This function sets the contents of register @var{reg} to @var{value}.
3582 A register can be set to any value, but the other register functions
3583 expect only certain data types. The return value is @var{value}.
3584 @end defun
3585
3586 @deffn Command view-register reg
3587 This command displays what is contained in register @var{reg}.
3588 @end deffn
3589
3590 @ignore
3591 @deffn Command point-to-register reg
3592 This command stores both the current location of point and the current
3593 buffer in register @var{reg} as a marker.
3594 @end deffn
3595
3596 @deffn Command jump-to-register reg
3597 @deffnx Command register-to-point reg
3598 @comment !!SourceFile register.el
3599 This command restores the status recorded in register @var{reg}.
3600
3601 If @var{reg} contains a marker, it moves point to the position stored in
3602 the marker. Since both the buffer and the location within the buffer
3603 are stored by the @code{point-to-register} function, this command can
3604 switch you to another buffer.
3605
3606 If @var{reg} contains a window configuration or a frame configuration.
3607 @code{jump-to-register} restores that configuration.
3608 @end deffn
3609 @end ignore
3610
3611 @deffn Command insert-register reg &optional beforep
3612 This command inserts contents of register @var{reg} into the current
3613 buffer.
3614
3615 Normally, this command puts point before the inserted text, and the
3616 mark after it. However, if the optional second argument @var{beforep}
3617 is non-@code{nil}, it puts the mark before and point after.
3618 You can pass a non-@code{nil} second argument @var{beforep} to this
3619 function interactively by supplying any prefix argument.
3620
3621 If the register contains a rectangle, then the rectangle is inserted
3622 with its upper left corner at point. This means that text is inserted
3623 in the current line and underneath it on successive lines.
3624
3625 If the register contains something other than saved text (a string) or
3626 a rectangle (a list), currently useless things happen. This may be
3627 changed in the future.
3628 @end deffn
3629
3630 @ignore
3631 @deffn Command copy-to-register reg start end &optional delete-flag
3632 This command copies the region from @var{start} to @var{end} into
3633 register @var{reg}. If @var{delete-flag} is non-@code{nil}, it deletes
3634 the region from the buffer after copying it into the register.
3635 @end deffn
3636
3637 @deffn Command prepend-to-register reg start end &optional delete-flag
3638 This command prepends the region from @var{start} to @var{end} into
3639 register @var{reg}. If @var{delete-flag} is non-@code{nil}, it deletes
3640 the region from the buffer after copying it to the register.
3641 @end deffn
3642
3643 @deffn Command append-to-register reg start end &optional delete-flag
3644 This command appends the region from @var{start} to @var{end} to the
3645 text already in register @var{reg}. If @var{delete-flag} is
3646 non-@code{nil}, it deletes the region from the buffer after copying it
3647 to the register.
3648 @end deffn
3649
3650 @deffn Command copy-rectangle-to-register reg start end &optional delete-flag
3651 This command copies a rectangular region from @var{start} to @var{end}
3652 into register @var{reg}. If @var{delete-flag} is non-@code{nil}, it
3653 deletes the region from the buffer after copying it to the register.
3654 @end deffn
3655
3656 @deffn Command window-configuration-to-register reg
3657 This function stores the window configuration of the selected frame in
3658 register @var{reg}.
3659 @end deffn
3660
3661 @deffn Command frame-configuration-to-register reg
3662 This function stores the current frame configuration in register
3663 @var{reg}.
3664 @end deffn
3665 @end ignore
3666
3667 @node Transposition
3668 @section Transposition of Text
3669
3670 This subroutine is used by the transposition commands.
3671
3672 @defun transpose-regions start1 end1 start2 end2 &optional leave-markers
3673 This function exchanges two nonoverlapping portions of the buffer.
3674 Arguments @var{start1} and @var{end1} specify the bounds of one portion
3675 and arguments @var{start2} and @var{end2} specify the bounds of the
3676 other portion.
3677
3678 Normally, @code{transpose-regions} relocates markers with the transposed
3679 text; a marker previously positioned within one of the two transposed
3680 portions moves along with that portion, thus remaining between the same
3681 two characters in their new position. However, if @var{leave-markers}
3682 is non-@code{nil}, @code{transpose-regions} does not do this---it leaves
3683 all markers unrelocated.
3684 @end defun
3685
3686 @node Base 64
3687 @section Base 64 Encoding
3688 @cindex base 64 encoding
3689
3690 Base 64 code is used in email to encode a sequence of 8-bit bytes as
3691 a longer sequence of @acronym{ASCII} graphic characters. It is defined in
3692 Internet RFC@footnote{
3693 An RFC, an acronym for @dfn{Request for Comments}, is a numbered
3694 Internet informational document describing a standard. RFCs are
3695 usually written by technical experts acting on their own initiative,
3696 and are traditionally written in a pragmatic, experience-driven
3697 manner.
3698 }2045. This section describes the functions for
3699 converting to and from this code.
3700
3701 @defun base64-encode-region beg end &optional no-line-break
3702 @tindex base64-encode-region
3703 This function converts the region from @var{beg} to @var{end} into base
3704 64 code. It returns the length of the encoded text. An error is
3705 signaled if a character in the region is multibyte, i.e.@: in a
3706 multibyte buffer the region must contain only characters from the
3707 charsets @code{ascii}, @code{eight-bit-control} and
3708 @code{eight-bit-graphic}.
3709
3710 Normally, this function inserts newline characters into the encoded
3711 text, to avoid overlong lines. However, if the optional argument
3712 @var{no-line-break} is non-@code{nil}, these newlines are not added, so
3713 the output is just one long line.
3714 @end defun
3715
3716 @defun base64-encode-string string &optional no-line-break
3717 @tindex base64-encode-string
3718 This function converts the string @var{string} into base 64 code. It
3719 returns a string containing the encoded text. As for
3720 @code{base64-encode-region}, an error is signaled if a character in the
3721 string is multibyte.
3722
3723 Normally, this function inserts newline characters into the encoded
3724 text, to avoid overlong lines. However, if the optional argument
3725 @var{no-line-break} is non-@code{nil}, these newlines are not added, so
3726 the result string is just one long line.
3727 @end defun
3728
3729 @defun base64-decode-region beg end
3730 @tindex base64-decode-region
3731 This function converts the region from @var{beg} to @var{end} from base
3732 64 code into the corresponding decoded text. It returns the length of
3733 the decoded text.
3734
3735 The decoding functions ignore newline characters in the encoded text.
3736 @end defun
3737
3738 @defun base64-decode-string string
3739 @tindex base64-decode-string
3740 This function converts the string @var{string} from base 64 code into
3741 the corresponding decoded text. It returns a unibyte string containing the
3742 decoded text.
3743
3744 The decoding functions ignore newline characters in the encoded text.
3745 @end defun
3746
3747 @node MD5 Checksum
3748 @section MD5 Checksum
3749 @cindex MD5 checksum
3750 @cindex message digest computation
3751
3752 MD5 cryptographic checksums, or @dfn{message digests}, are 128-bit
3753 ``fingerprints'' of a document or program. They are used to verify
3754 that you have an exact and unaltered copy of the data. The algorithm
3755 to calculate the MD5 message digest is defined in Internet
3756 RFC@footnote{
3757 For an explanation of what is an RFC, see the footnote in @ref{Base
3758 64}.
3759 }1321. This section describes the Emacs facilities for computing
3760 message digests.
3761
3762 @defun md5 object &optional start end coding-system noerror
3763 This function returns the MD5 message digest of @var{object}, which
3764 should be a buffer or a string.
3765
3766 The two optional arguments @var{start} and @var{end} are character
3767 positions specifying the portion of @var{object} to compute the
3768 message digest for. If they are @code{nil} or omitted, the digest is
3769 computed for the whole of @var{object}.
3770
3771 The function @code{md5} does not compute the message digest directly
3772 from the internal Emacs representation of the text (@pxref{Text
3773 Representations}). Instead, it encodes the text using a coding
3774 system, and computes the message digest from the encoded text. The
3775 optional fourth argument @var{coding-system} specifies which coding
3776 system to use for encoding the text. It should be the same coding
3777 system that you used to read the text, or that you used or will use
3778 when saving or sending the text. @xref{Coding Systems}, for more
3779 information about coding systems.
3780
3781 If @var{coding-system} is @code{nil} or omitted, the default depends
3782 on @var{object}. If @var{object} is a buffer, the default for
3783 @var{coding-system} is whatever coding system would be chosen by
3784 default for writing this text into a file. If @var{object} is a
3785 string, the user's most preferred coding system (@pxref{Recognize
3786 Coding, prefer-coding-system, the description of
3787 @code{prefer-coding-system}, emacs, GNU Emacs Manual}) is used.
3788
3789 Normally, @code{md5} signals an error if the text can't be encoded
3790 using the specified or chosen coding system. However, if
3791 @var{noerror} is non-@code{nil}, it silently uses @code{raw-text}
3792 coding instead.
3793 @end defun
3794
3795 @node Atomic Changes
3796 @section Atomic Change Groups
3797 @cindex atomic changes
3798
3799 In data base terminology, an @dfn{atomic} change is an indivisible
3800 change---it can succeed entirely or it can fail entirely, but it
3801 cannot partly succeed. A Lisp program can make a series of changes to
3802 one or several buffers as an @dfn{atomic change group}, meaning that
3803 either the entire series of changes will be installed in their buffers
3804 or, in case of an error, none of them will be.
3805
3806 To do this for one buffer, the one already current, simply write a
3807 call to @code{atomic-change-group} around the code that makes the
3808 changes, like this:
3809
3810 @example
3811 (atomic-change-group
3812 (insert foo)
3813 (delete-region x y))
3814 @end example
3815
3816 @noindent
3817 If an error (or other nonlocal exit) occurs inside the body of
3818 @code{atomic-change-group}, it unmakes all the changes in that buffer
3819 that were during the execution of the body. This kind of change group
3820 has no effect on any other buffers--any such changes remain.
3821
3822 If you need something more sophisticated, such as to make changes in
3823 various buffers constitute one atomic group, you must directly call
3824 lower-level functions that @code{atomic-change-group} uses.
3825
3826 @defun prepare-change-group &optional buffer
3827 This function sets up a change group for buffer @var{buffer}, which
3828 defaults to the current buffer. It returns a ``handle'' that
3829 represents the change group. You must use this handle to activate the
3830 change group and subsequently to finish it.
3831 @end defun
3832
3833 To use the change group, you must @dfn{activate} it. You must do
3834 this before making any changes in the text of @var{buffer}.
3835
3836 @defun activate-change-group handle
3837 This function activates the change group that @var{handle} designates.
3838 @end defun
3839
3840 After you activate the change group, any changes you make in that
3841 buffer become part of it. Once you have made all the desired changes
3842 in the buffer, you must @dfn{finish} the change group. There are two
3843 ways to do this: you can either accept (and finalize) all the changes,
3844 or cancel them all.
3845
3846 @defun accept-change-group handle
3847 This function accepts all the changes in the change group specified by
3848 @var{handle}, making them final.
3849 @end defun
3850
3851 @defun cancel-change-group handle
3852 This function cancels and undoes all the changes in the change group
3853 specified by @var{handle}.
3854 @end defun
3855
3856 Your code should use @code{unwind-protect} to make sure the group is
3857 always finished. The call to @code{activate-change-group} should be
3858 inside the @code{unwind-protect}, in case the user types @kbd{C-g}
3859 just after it runs. (This is one reason why
3860 @code{prepare-change-group} and @code{activate-change-group} are
3861 separate functions, because normally you would call
3862 @code{prepare-change-group} before the start of that
3863 @code{unwind-protect}.) Once you finish the group, don't use the
3864 handle again---in particular, don't try to finish the same group
3865 twice.
3866
3867 To make a multibuffer change group, call @code{prepare-change-group}
3868 once for each buffer you want to cover, then use @code{nconc} to
3869 combine the returned values, like this:
3870
3871 @example
3872 (nconc (prepare-change-group buffer-1)
3873 (prepare-change-group buffer-2))
3874 @end example
3875
3876 You can then activate the multibuffer change group with a single call
3877 to @code{activate-change-group}, and finish it with a single call to
3878 @code{accept-change-group} or @code{cancel-change-group}.
3879
3880 Nested use of several change groups for the same buffer works as you
3881 would expect. Non-nested use of change groups for the same buffer
3882 will get Emacs confused, so don't let it happen; the first change
3883 group you start for any given buffer should be the last one finished.
3884
3885 @node Change Hooks
3886 @section Change Hooks
3887 @cindex change hooks
3888 @cindex hooks for text changes
3889
3890 These hook variables let you arrange to take notice of all changes in
3891 all buffers (or in a particular buffer, if you make them buffer-local).
3892 See also @ref{Special Properties}, for how to detect changes to specific
3893 parts of the text.
3894
3895 The functions you use in these hooks should save and restore the match
3896 data if they do anything that uses regular expressions; otherwise, they
3897 will interfere in bizarre ways with the editing operations that call
3898 them.
3899
3900 @defvar before-change-functions
3901 This variable holds a list of functions to call before any buffer
3902 modification. Each function gets two arguments, the beginning and end
3903 of the region that is about to change, represented as integers. The
3904 buffer that is about to change is always the current buffer.
3905 @end defvar
3906
3907 @defvar after-change-functions
3908 This variable holds a list of functions to call after any buffer
3909 modification. Each function receives three arguments: the beginning and
3910 end of the region just changed, and the length of the text that existed
3911 before the change. All three arguments are integers. The buffer that's
3912 about to change is always the current buffer.
3913
3914 The length of the old text is the difference between the buffer positions
3915 before and after that text as it was before the change. As for the
3916 changed text, its length is simply the difference between the first two
3917 arguments.
3918 @end defvar
3919
3920 Output of messges into the @samp{*Messages*} buffer does not
3921 call these functions.
3922
3923 @defmac combine-after-change-calls body...
3924 The macro executes @var{body} normally, but arranges to call the
3925 after-change functions just once for a series of several changes---if
3926 that seems safe.
3927
3928 If a program makes several text changes in the same area of the buffer,
3929 using the macro @code{combine-after-change-calls} around that part of
3930 the program can make it run considerably faster when after-change hooks
3931 are in use. When the after-change hooks are ultimately called, the
3932 arguments specify a portion of the buffer including all of the changes
3933 made within the @code{combine-after-change-calls} body.
3934
3935 @strong{Warning:} You must not alter the values of
3936 @code{after-change-functions} within
3937 the body of a @code{combine-after-change-calls} form.
3938
3939 @strong{Warning:} if the changes you combine occur in widely scattered
3940 parts of the buffer, this will still work, but it is not advisable,
3941 because it may lead to inefficient behavior for some change hook
3942 functions.
3943 @end defmac
3944
3945 The two variables above are temporarily bound to @code{nil} during the
3946 time that any of these functions is running. This means that if one of
3947 these functions changes the buffer, that change won't run these
3948 functions. If you do want a hook function to make changes that run
3949 these functions, make it bind these variables back to their usual
3950 values.
3951
3952 One inconvenient result of this protective feature is that you cannot
3953 have a function in @code{after-change-functions} or
3954 @code{before-change-functions} which changes the value of that variable.
3955 But that's not a real limitation. If you want those functions to change
3956 the list of functions to run, simply add one fixed function to the hook,
3957 and code that function to look in another variable for other functions
3958 to call. Here is an example:
3959
3960 @example
3961 (setq my-own-after-change-functions nil)
3962 (defun indirect-after-change-function (beg end len)
3963 (let ((list my-own-after-change-functions))
3964 (while list
3965 (funcall (car list) beg end len)
3966 (setq list (cdr list)))))
3967
3968 @group
3969 (add-hooks 'after-change-functions
3970 'indirect-after-change-function)
3971 @end group
3972 @end example
3973
3974 @defvar first-change-hook
3975 This variable is a normal hook that is run whenever a buffer is changed
3976 that was previously in the unmodified state.
3977 @end defvar
3978
3979 @defvar inhibit-modification-hooks
3980 @tindex inhibit-modification-hooks
3981 If this variable is non-@code{nil}, all of the change hooks are
3982 disabled; none of them run. This affects all the hook variables
3983 described above in this section, as well as the hooks attached to
3984 certain special text properties (@pxref{Special Properties}) and overlay
3985 properties (@pxref{Overlay Properties}).
3986
3987 This variable is available starting in Emacs 21.
3988 @end defvar
3989
3990 @ignore
3991 arch-tag: 3721e738-a1cb-4085-bc1a-6cb8d8e1d32b
3992 @end ignore