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.") |