/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.672 by kfstorm, Tue Dec 14 12:17:43 2004 UTC revision 1.673 by rms, Tue Dec 21 11:37:52 2004 UTC
# Line 1484  is not *inside* the region START...END." Line 1484  is not *inside* the region START...END."
1484              (t              (t
1485               '(0 . 0)))               '(0 . 0)))
1486      '(0 . 0)))      '(0 . 0)))
1487    
1488    ;; When the first undo batch in an undo list is longer than undo-outer-limit,
1489    ;; this function gets called to ask the user what to do.
1490    ;; Garbage collection is inhibited around the call,
1491    ;; so it had better not do a lot of consing.
1492    (setq undo-outer-limit-function 'undo-outer-limit-truncate)
1493    (defun undo-outer-limit-truncate (size)
1494      (if (yes-or-no-p (format "Buffer %s undo info is %d bytes long; discard it? "
1495                               (buffer-name) size))
1496          (progn (setq buffer-undo-list nil) t)
1497        nil))
1498    
1499  (defvar shell-command-history nil  (defvar shell-command-history nil
1500    "History list for some commands that read shell commands.")    "History list for some commands that read shell commands.")

Legend:
Removed from v.1.672  
changed lines
  Added in v.1.673

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26