Lines Matching +defs:undo +defs:in +defs:progress
16 ;; GNU Emacs is distributed in the hope that it will be useful,
56 "Search LIST for a valid buffer to display in FRAME.
57 Return nil when all buffers in LIST are undesirable for display,
58 otherwise return the first suitable buffer in LIST.
60 Buffers not visible in windows are preferred to visible buffers,
63 If BUFFER is non-nil, ignore occurrences of that buffer in LIST."
80 "Return the last non-hidden displayable buffer in the buffer list.
82 Buffers not visible in windows are preferred to visible buffers,
97 "Switch to the next buffer in cyclic order."
107 "Switch to the previous buffer in cyclic order."
133 "*Highlighting of locations in selected source buffers.
134 If a number, highlight the locus in `next-error' face for the given time
135 in seconds, or until the next command is executed.
138 If nil, don't highlight the locus in the source buffer.
148 "*Highlighting of locations in `next-error-no-select'.
149 If number, highlight the locus in `next-error' face for given time in seconds.
151 If nil, don't highlight the locus in the source buffer.
178 "Function to use to find the next error in the current buffer.
185 to navigate in it.")
198 The function EXTRA-TEST-INCLUSIVE, if non-nil, is called in each buffer
200 in question is treated as usable.
202 The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called in each buffer
225 The function EXTRA-TEST-INCLUSIVE, if non-nil, is called in each buffer
227 in question is treated as usable.
229 The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called in each buffer
289 more generally, on any buffer in Compilation mode or with
290 Compilation Minor mode enabled, or any buffer in which
293 \\[next-error] in that buffer when it is the only one displayed
294 in the current frame.
298 until you use it in some other buffer which uses Compilation mode
341 "Move point to the next error in the `next-error' buffer and highlight match.
352 "Move point to the previous error in the `next-error' buffer and highlight match.
365 When turned on, cursor motion in the compilation, grep, occur or diff
390 "Major mode not specialized for anything in particular.
410 ;; Inserting a newline at the end of a line produces better redisplay in
428 (not (get-char-property (point) 'insert-in-front-hooks)))
452 ;; If we get an error in self-insert-command, put point at right place.
471 ;; Indent the line after the newline, except in one case:
596 All whitespace after the last non-whitespace character in a line is deleted.
665 ;; Assume character codes 0240 - 0377 stand for characters in some
751 Don't use this command in Lisp programs!
776 Don't use this command in Lisp programs!
791 ;; If we went to a place in the middle of the buffer,
802 You probably should not use this function in Lisp programs;
816 Normally, move point in the current buffer.
817 With just \\[universal-argument] as argument, move point in the most recently
821 If there's a number in the buffer at point, it is the default for ARG."
825 ;; Look for a default, a number in the buffer at point.
840 (concat " in " (buffer-name buffer))
856 ;; Move to the specified line number in that buffer.
865 "Print number of lines and characters in the region."
922 in octal, decimal and hex.
924 For a non-ASCII multibyte character, also give its encoding in the
927 code is shown in hex. If the character is encoded into more than one
931 in *Help* buffer. See also the command `describe-char'."
1016 "Non-nil means completing a Lisp symbol in the minibuffer.")
1019 "Value for `print-level' while printing value in `eval-expression'.
1026 "Value for `print-length' while printing value in `eval-expression'.
1033 "If non-nil set `debug-on-error' to t in `eval-expression'.
1041 Return a formatted string which is displayed in the echo area
1042 in addition to the value printed by prin1 in functions which
1060 "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area.
1063 insert the result into the current buffer instead of printing it in
1101 COMMAND is a Lisp expression. Let user edit that expression in
1125 The command is placed in the minibuffer as a Lisp form for editing.
1172 (setq minibuffer-history-position nil) ;; Defvar is in C code.
1176 "Text that was in this minibuffer before any history commands.
1178 in this use of the minibuffer.")
1203 `case-fold-search' is non-nil, but an uppercase letter in REGEXP
1275 `case-fold-search' is non-nil, but an uppercase letter in REGEXP
1297 "Puts next element of the minibuffer history in the minibuffer.
1341 "Puts previous element of the minibuffer history in the minibuffer.
1379 (defalias 'advertised-undo 'undo)
1381 (defconst undo-equiv-table (make-hash-table :test 'eq :weakness t)
1382 "Table mapping redo records to the corresponding undo one.
1383 A redo record for undo-in-region maps to t.
1384 A redo record for ordinary undo maps to the following (earlier) undo.")
1386 (defvar undo-in-region nil
1387 "Non-nil if `pending-undo-list' is not just a tail of `buffer-undo-list'.")
1389 (defvar undo-no-redo nil
1390 "If t, `undo' doesn't go through redo entries.")
1392 (defvar pending-undo-list nil
1393 "Within a run of consecutive undo commands, list remaining to be undone.
1396 (defun undo (&optional arg)
1398 Repeat this command to undo more changes.
1401 In Transient Mark mode when the mark is active, only undo changes within
1402 the current region. Similarly, when not in Transient Mark mode, just \\[universal-argument]
1403 as an argument limits undo to changes within the current region."
1405 ;; Make last-command indicate for the next command that this was an undo.
1406 ;; That way, another undo will undo more.
1407 ;; If we get to the end of the undo history and get an error,
1408 ;; another undo command will find the undo history empty
1414 ;; If we get an error in undo-start,
1415 ;; the next command should not be a "consecutive undo".
1416 ;; So set `this-command' to something other than `undo'.
1417 (setq this-command 'undo-start)
1419 (unless (and (eq last-command 'undo)
1420 (or (eq pending-undo-list t)
1422 ;; since the previous command, don't continue the undo seq.
1423 (let ((list buffer-undo-list))
1426 ;; If the last undo record made was made by undo
1427 ;; it shows nothing else happened in between.
1428 (gethash list undo-equiv-table))))
1429 (setq undo-in-region
1431 (if undo-in-region
1432 (undo-start (region-beginning) (region-end))
1433 (undo-start))
1434 ;; get rid of initial undo boundary
1435 (undo-more 1))
1436 ;; If we got this far, the next command should be a consecutive undo.
1437 (setq this-command 'undo)
1439 ;; so, ask the user whether she wants to skip the redo/undo pair.
1440 (let ((equiv (gethash pending-undo-list undo-equiv-table)))
1442 (setq message (if undo-in-region
1443 (if equiv "Redo in region!" "Undo in region!")
1445 (when (and (consp equiv) undo-no-redo)
1447 ;; undo-redo-undo-redo-... so skip to the very last equiv.
1448 (while (let ((next (gethash equiv undo-equiv-table)))
1450 (setq pending-undo-list equiv)))
1451 (undo-more
1455 ;; Record the fact that the just-generated undo records come from an
1456 ;; undo operation--that is, they are redo records.
1459 ;; I don't know how to do that in the undo-in-region case.
1460 (puthash buffer-undo-list
1461 (if undo-in-region t pending-undo-list)
1462 undo-equiv-table)
1463 ;; Don't specify a position in the undo record for the undo command.
1465 (let ((tail buffer-undo-list)
1472 (setq buffer-undo-list (cdr tail)))
1478 (setq buffer-undo-list (cdr tail)))
1483 ;; Record what the current undo list says,
1484 ;; so the next command can tell if the buffer was modified in between.
1491 (defun buffer-disable-undo (&optional buffer)
1492 "Make BUFFER stop keeping undo information.
1496 (setq buffer-undo-list t)))
1498 (defun undo-only (&optional arg)
1500 Repeat this command to undo more changes.
1502 Contrary to `undo', this will not redo a previous undo."
1504 (let ((undo-no-redo t)) (undo arg)))
1506 (defvar undo-in-progress nil
1507 "Non-nil while performing an undo.
1510 (defun undo-more (n)
1511 "Undo back N undo-boundaries beyond what was already undone recently.
1512 Call `undo-start' to get ready to undo recent changes,
1513 then call `undo-more' one or more times to undo them."
1514 (or (listp pending-undo-list)
1515 (error (concat "No further undo information"
1516 (and undo-in-region " for region"))))
1517 (let ((undo-in-progress t))
1518 (setq pending-undo-list (primitive-undo n pending-undo-list))
1519 (if (null pending-undo-list)
1520 (setq pending-undo-list t))))
1523 (defun undo-copy-list (list)
1524 "Make a copy of undo list LIST."
1525 (mapcar 'undo-copy-list-1 list))
1527 (defun undo-copy-list-1 (elt)
1529 (cons (car elt) (undo-copy-list-1 (cdr elt)))
1532 (defun undo-start (&optional beg end)
1533 "Set `pending-undo-list' to the front of the undo list.
1534 The next call to `undo-more' will undo the most recently made change.
1535 If BEG and END are specified, then only undo elements
1536 that apply to text between BEG and END are used; other undo elements
1537 are ignored. If BEG and END are nil, all undo elements are used."
1538 (if (eq buffer-undo-list t)
1539 (error "No undo information in this buffer"))
1540 (setq pending-undo-list
1542 (undo-make-selective-list (min beg end) (max beg end))
1543 buffer-undo-list)))
1545 (defvar undo-adjusted-markers)
1547 (defun undo-make-selective-list (start end)
1548 "Return a list of undo elements for the region START to END.
1549 The elements come from `buffer-undo-list', but we keep only
1553 (let ((undo-list-copy (undo-copy-list buffer-undo-list))
1554 (undo-list (list nil))
1555 undo-adjusted-markers
1557 undo-elt undo-elt temp-undo-list delta)
1558 (while undo-list-copy
1559 (setq undo-elt (car undo-list-copy))
1561 (cond ((and (consp undo-elt) (eq (car undo-elt) t))
1566 (undo-elt-in-region undo-elt start end)))))
1569 (setq end (+ end (cdr (undo-delta undo-elt))))
1570 ;; Don't put two nils together in the list
1571 (if (not (and (eq (car undo-list) nil)
1572 (eq undo-elt nil)))
1573 (setq undo-list (cons undo-elt undo-list))))
1574 (if (undo-elt-crosses-region undo-elt start end)
1575 (setq undo-list-copy nil)
1577 (setq temp-undo-list (cdr undo-list-copy))
1578 (setq delta (undo-delta undo-elt))
1587 ;; types which undo-elt-in-region will return as being in
1591 (while temp-undo-list
1592 (setq undo-elt (car temp-undo-list))
1593 (cond ((integerp undo-elt)
1594 (if (>= undo-elt position)
1595 (setcar temp-undo-list (- undo-elt offset))))
1596 ((atom undo-elt) nil)
1597 ((stringp (car undo-elt))
1599 (let ((text-pos (abs (cdr undo-elt)))
1600 (point-at-end (< (cdr undo-elt) 0 )))
1602 (setcdr undo-elt (* (if point-at-end -1 1)
1604 ((integerp (car undo-elt))
1606 (when (>= (car undo-elt) position)
1607 (setcar undo-elt (- (car undo-elt) offset))
1608 (setcdr undo-elt (- (cdr undo-elt) offset))))
1609 ((null (car undo-elt))
1611 (let ((tail (nthcdr 3 undo-elt)))
1615 (setq temp-undo-list (cdr temp-undo-list))))))))
1616 (setq undo-list-copy (cdr undo-list-copy)))
1617 (nreverse undo-list)))
1619 (defun undo-elt-in-region (undo-elt start end)
1622 (cond ((integerp undo-elt)
1623 (and (>= undo-elt start)
1624 (<= undo-elt end)))
1625 ((eq undo-elt nil)
1627 ((atom undo-elt)
1629 ((stringp (car undo-elt))
1631 (and (>= (abs (cdr undo-elt)) start)
1632 (< (abs (cdr undo-elt)) end)))
1633 ((and (consp undo-elt) (markerp (car undo-elt)))
1636 (let ((alist-elt (assq (car undo-elt) undo-adjusted-markers)))
1638 (setq alist-elt (cons (car undo-elt)
1639 (marker-position (car undo-elt))))
1640 (setq undo-adjusted-markers
1641 (cons alist-elt undo-adjusted-markers)))
1645 ((null (car undo-elt))
1647 (let ((tail (nthcdr 3 undo-elt)))
1650 ((integerp (car undo-elt))
1652 (and (>= (car undo-elt) start)
1653 (<= (cdr undo-elt) end)))))
1655 (defun undo-elt-crosses-region (undo-elt start end)
1659 (cond ((atom undo-elt) nil)
1660 ((null (car undo-elt))
1662 (let ((tail (nthcdr 3 undo-elt)))
1665 ((integerp (car undo-elt))
1667 (and (< (car undo-elt) end)
1668 (> (cdr undo-elt) start)))))
1670 ;; Return the first affected buffer position and the delta for an undo element
1671 ;; delta is defined as the change in subsequent buffer positions if we *did*
1672 ;; the undo.
1673 (defun undo-delta (undo-elt)
1674 (if (consp undo-elt)
1675 (cond ((stringp (car undo-elt))
1677 (cons (abs (cdr undo-elt)) (length (car undo-elt))))
1678 ((integerp (car undo-elt))
1680 (cons (car undo-elt) (- (car undo-elt) (cdr undo-elt))))
1685 (defcustom undo-ask-before-discard nil
1686 "If non-nil ask about discarding undo info for the current command.
1687 Normally, Emacs discards the undo info for the current command if
1688 it exceeds `undo-outer-limit'. But if you set this option
1689 non-nil, it asks in the echo area whether to discard the info.
1691 only do it if you really want to undo the command.
1699 :group 'undo
1702 (defvar undo-extra-outer-limit nil
1703 "If non-nil, an extra level of size that's ok in an undo item.
1704 We don't ask the user about truncating the undo list until the
1707 This variable only matters if `undo-ask-before-discard' is non-nil.")
1708 (make-variable-buffer-local 'undo-extra-outer-limit)
1710 ;; When the first undo batch in an undo list is longer than
1711 ;; undo-outer-limit, this function gets called to warn the user that
1712 ;; the undo info for the current command was discarded. Garbage
1715 (setq undo-outer-limit-function 'undo-outer-limit-truncate)
1716 (defun undo-outer-limit-truncate (size)
1717 (if undo-ask-before-discard
1718 (when (or (null undo-extra-outer-limit)
1719 (> size undo-extra-outer-limit))
1721 ;; This applies, in particular, if the user quits from the question.
1725 (setq undo-extra-outer-limit (+ size 50000))
1727 (yes-or-no-p (format "Buffer `%s' undo info is %d bytes long; discard it? "
1729 (progn (setq buffer-undo-list nil)
1730 (setq undo-extra-outer-limit nil)
1733 (display-warning '(undo discard-info)
1735 (format "Buffer `%s' undo info was %d bytes long.\n"
1737 "The undo info was discarded because it exceeded \
1738 `undo-outer-limit'.
1741 to the buffer. In that case, to prevent similar problems in the
1742 future, set `undo-outer-limit' to a value that is large enough to
1751 \(undo discard-info) to the user option `warning-suppress-types'.\n")
1753 (setq buffer-undo-list nil)
1767 stdout will be intermixed in the output stream.")
1770 "Execute string COMMAND in inferior shell; display output, if any.
1773 If COMMAND ends in ampersand, execute it asynchronously.
1774 The output appears in the buffer `*Async Shell Command*'.
1775 That buffer is in shell mode.
1777 Otherwise, COMMAND is executed synchronously. The output appears in
1779 display in the echo area (which is determined by the variables
1781 there, but it is nonetheless available in buffer `*Shell Command
1785 in the shell command output, use \\[universal-coding-system-argument]
1792 says to put the output in some other buffer.
1795 insert output in current buffer. (This cannot be done asynchronously.)
1799 and you did not specify \"insert it in the current buffer\",
1800 the output can be displayed in the echo area or in its buffer.
1801 If the output is short enough to display in the echo area
1807 in the current buffer\", a message about the error goes at the end
1810 If there is no output, or if output is inserted in the current buffer,
1823 ;; Look for a handler in case default-directory is a remote file name.
1831 ;; Output goes in current buffer.
1872 ;; Output goes in a separate buffer.
1873 ;; Preserve the match data in case called from a program.
1888 (error "Shell command in progress")))
1905 "Display MESSAGE in the echo area if possible, otherwise in a pop-up buffer.
1912 Returns either the string shown in the echo area, or when a pop-up
1916 name of the buffer used to display it in the case where a pop-up buffer
1918 string and it is displayed in the echo area, it is not specified whether
1958 ;; already dispayed in the selected frame.
1973 ;; in the buffer itself.
1983 "Execute string COMMAND in inferior shell with region as input.
1984 Normally display output (if any) in temp buffer `*Shell Command Output*';
1989 in the input and output to the shell command, use \\[universal-coding-system-argument]
1991 is encoded in the same coding system that will be used to save the file,
2001 in the echo area or in a buffer.
2002 If the output is short enough to display in the echo area
2005 it is displayed in the buffer `*Shell Command Output*'. The output
2006 is available in that buffer in both cases.
2011 If there is no output, or if output is inserted in the current buffer,
2015 that says to put the output in some other buffer.
2018 insert output in the current buffer.
2022 the output in place of text from START to END, putting point and mark
2036 ;; and region-end, in case subprocess output
2037 ;; relocates them while we are in the minibuffer.
2042 ;; region-end specially, leaving them in the history.
2077 ;; No prefix argument: put the output in a temp buffer,
2141 ;; Don't kill: there might be useful info in the undo-log.
2170 "Process files synchronously in a separate process.
2175 File names in INFILE and BUFFER are handled normally, but file
2176 names in ARGS should be relative to `default-directory', as they
2267 which is different in effect from any particular numeric argument.
2326 ;; Anything else terminates the argument and is left in the queue to be
2344 in the list, and the return value of each function is passed to
2353 functions in `buffer-substring-filters', and the value from the
2365 `buffer-substring-filters', in case the functions need to know
2399 is put in the kill ring, to make the new kill available to other
2420 should put this string in the kill ring as the latest kill.
2453 "Make STRING the latest kill in the kill ring.
2487 "Append STRING to the end of the latest kill in the kill ring.
2544 This deletes the text from the buffer and saves it in the kill ring.
2552 the text, but put the text in the kill ring anyway. This means that
2561 to make one entry in the kill ring.
2583 ;; in the region, are read-only.
2584 ;; We should beep, in case the user just isn't aware of this.
2585 ;; However, there's no harm in putting
2586 ;; the region's text in the kill ring, anyway.
2635 (if (pos-visible-in-window-p other-end (selected-window))
2672 ;; This is actually used in subr.el but defcustom does not work there.
2684 (defvar yank-undo-function nil
2694 previously-killed text. `yank-pop' deletes that text and inserts in its
2705 `yank-excluded-properties' and `yank-handler' as described in the
2715 (funcall (or yank-undo-function 'delete-region) (point) (mark t))
2716 (funcall (or yank-undo-function 'delete-region) (mark t) (point)))
2717 (setq yank-undo-function nil)
2720 ;; Set the window start back where it was in the yank command,
2740 `yank-excluded-properties' and `yank-handler' as described in the
2766 "Rotate the yanking point in the kill ring.
2799 Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
2828 Case is ignored if `case-fold-search' is non-nil in the current buffer.
2866 the line, but put the line in the kill ring anyway. This means that
2873 ;; before killing. That way, in a read-only buffer, point
2875 ;; The choice has no effect on undo now that undo records
2911 ;; We need to kill in two steps, because the previous command
2912 ;; could have been a kill command, in which case the text
2916 ;; twice to the kill ring in read-only buffers.
3122 is active, and returns an integer or nil in the usual way.
3124 If you are using this in an editing command, you are most likely making
3134 \(That makes a difference only in Transient Mark mode.)
3155 To remember a location for internal use in the Lisp program,
3156 store it in a Lisp variable. Example:
3165 ;; Normally we never clear mark-active except in Transient Mark mode.
3167 ;; we must clear mark-active in any mode.
3196 (error "No mark set in this buffer")
3230 between point and mark; this is the closest equivalent in
3235 global mark ring, if the previous mark was set in another buffer.
3286 If the last global mark pushed was not in the current buffer,
3303 ;; The last global mark pushed was in this same buffer.
3342 (error "No mark set in this buffer"))
3360 Many commands change their behavior when Transient Mark mode is in effect
3364 \\[query-replace], \\[query-replace-regexp], \\[ispell], and \\[undo].
3372 Some commands will do this in order to go to positions outside
3410 If there is no character in the target line exactly under the current column,
3411 the cursor is positioned after the character in that line which spans this
3413 If there is no line in the buffer after this one, behavior depends on the
3422 The goal column is stored in the variable `goal-column', which is nil
3425 If you are thinking of using this in a Lisp program, consider
3447 If there is no character in the target line exactly over the current column,
3448 the cursor is positioned after the character in that line which spans this
3455 The goal column is stored in the variable `goal-column', which is nil
3458 If you are thinking of using this in a Lisp program, consider using
3524 (let ((wend (pos-visible-in-window-p t nil t)))
3531 ;; If cursor is not in the bottom scroll margin, move forward.
3572 ;; But don't vscroll in a keyboard macro.
3654 ;; it just goes in the other direction.
3661 ;; to the same column in line-move-finish, and point
3723 ;; Corner case: suppose we start out in a field boundary in
3727 ;; move us backwards. Test using C-n with point on the "x" in
3749 ;; in the same line, use that as the destination.
3775 ;; behavior in many situations.
3790 This function works only in certain cases,
3808 ;; We have made some progress towards the desired column.
3809 ;; See if we can make any further progress.
3822 \(If there's an image in the line, this disregards newlines
3856 \(If there's an image in the line, this disregards newlines
3879 ;; Now find first visible char in the line
3892 ;; (It is possible that fields never matter in this case.)
3903 Those commands will move to this position in the line moved to
3907 The goal column is stored in the variable `goal-column'."
3942 "Move point to the beginning of the buffer in the other window.
3953 ;; Set point and mark in that window's buffer.
3961 "Move point to the end of the buffer in the other window.
3998 Does not work on a sexp that point is in the middle of
4034 With argument 0, interchanges line point is in with line mark is in."
4104 or (in Transient Mark mode) if the mark is active,
4154 ;; Look for preceding word in same line.
4159 ;; No preceding word in same line.
4160 ;; Look for following word in same line.
4314 "Automatically break line at a previous space, in insertion of text."
4348 (error "selective-display already in use for marked lines"))
4368 Note that in side-by-side windows, truncation is always enabled."
4385 "The string displayed in the mode line when in overwrite mode.")
4387 "The string displayed in the mode line when in binary overwrite mode.")
4392 In overwrite mode, printing characters typed in replace existing text
4395 such characters insert until the tab is filled in.
4396 \\[quoted-insert] still inserts characters in overwrite mode; this
4408 In binary overwrite mode, printing characters typed in replace
4431 in the mode line.
4442 in the mode line."
4449 of the buffer appears in the mode line."
4481 "*Time in seconds to delay after showing a matching paren."
4531 ;; a matching-char info, in which case the two CDRs
4538 ((pos-visible-in-window-p blinkpos)
4550 ;; Show what precedes the open in its line, if anything.
4556 ;; Show what follows the open in its line, if anything.
4589 ;; that happens in the QUIT macro at the C code level.
4607 "Exit the current \"mode\" (in a generalized sense of the word).
4631 "Play sound stored in FILE.
4699 ;; Go to header delimiter line in a mail message, following RFC822 rules
4715 (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
4717 (or (mail continue to subject in-reply-to cc yank-action send-actions)
4724 '("in-reply-to" "cc" "body"))
4757 original text has been inserted in this way.)
4769 "Like \\[compose-mail], but edit the outgoing message in another window."
4778 "Like \\[compose-mail], but edit the outgoing message in another frame."
4791 meant to be customized by users. You should enter VALUE in Lisp syntax,
4799 in the definition is used to check that VALUE is valid.
4878 This is a local variable in the completion list buffer.
4887 "Number of chars at beginning of minibuffer not involved in completion.
4888 This is a local variable in the completion list buffer
4889 but it talks about the buffer in `completion-reference-buffer'.
4891 of the tail end of the buffer's text is involved in completion.")
4906 "Move to the previous item in the completion list."
4911 "Move to the next item in the completion list.
4916 ;; If in a completion, move to the end of it.
4925 ;; If in a completion, move to the start of it.
4939 "Choose the completion that point is in or next to."
4986 These functions are called in order with four arguments:
4987 CHOICE - the string to insert in the buffer,
4988 BUFFER - the buffer in which the choice should be inserted,
4990 BASE-SIZE - the number of characters in BUFFER before
4993 If a function in the list returns non-nil, that function is supposed
4994 to have inserted the CHOICE in the BUFFER, and possibly exited
4997 If all functions in the list return nil, that means to use
4998 the default method of inserting the completion in BUFFER.")
5034 ;; Update point in the window that BUFFER is showing in.
5053 Type \\<completion-list-mode-map>\\[choose-completion] in the completion list\
5076 When this hook is run, the current buffer is the one in which the
5083 ;; Variables and faces used in `completion-setup-function'.
5086 "Non-nil means show help message in *Completions* buffer."
5093 "Face put on the first uncommon character in completions in *Completions* buffer."
5098 "Face put on the common prefix substring in completions in *Completions* buffer.
5105 ;; in order to make the first-differing character highlight work
5108 "Regexp to use in `completion-setup-function' to find the root directory.")
5111 "Common prefix substring to use in `completion-setup-function' to put faces.
5115 in the `*Completions*' buffer, the common prefix substring in completions
5119 ;; This function goes in completion-setup-hook, so that it is called
5125 ;; When reading a file name in the minibuffer,
5126 ;; set default-directory in the minibuffer
5152 ;; Otherwise, in minibuffer, the base size is 0.
5241 LSHIFTBY is the numeric value of this modifier, in keyboard events.
5242 PREFIX is the string that represents this modifier in an event type symbol."
5308 "Normal hook to run in the new buffer at the end of `clone-buffer'.")
5355 has a non-nil `no-clone' property, results in an error.
5359 argument is given, then the command prompts for NEWNAME in the
5362 This runs the normal hook `clone-buffer-hook' in the new buffer
5363 after it has been set up properly in other respects."
5369 (error "Cannot clone a buffer in %s mode" mode-name))
5376 (error "Cannot clone a buffer in %s mode" mode-name))
5408 (condition-case () ;in case var is read-only
5419 ;; Presumably the current buffer is shown in the selected frame, so
5434 or by incrementing the N in an existing suffix.
5444 (error "Cannot indirectly clone a buffer in %s mode" mode-name))
5449 (error "Cannot indirectly clone a buffer in %s mode" mode-name))
5461 "Like `clone-indirect-buffer' but display in another window."
5465 (error "Cannot indirectly clone a buffer in %s mode" mode-name))
5524 `function-key-map', so binding Delete or Backspace in the global or
5528 C-M-Delete, C-Backspace, M-Backspace, and C-M-Backspace are changed in
5529 the global keymap in accordance with the functionality of Delete and
5627 ; ;; Discard undo information for the text insertion itself
5629 ; (when (consp buffer-undo-list)
5630 ; (setq buffer-undo-list (cddr buffer-undo-list)))
5636 ; 'insert-in-front-hooks '(minibuffer-prompt-insertion)))