aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/simple.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 99192d79ec0..bf620c2533d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1697,7 +1697,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.")
1697 ;; but we don't want to ask the question again. 1697 ;; but we don't want to ask the question again.
1698 (setq undo-extra-outer-limit (+ size 50000)) 1698 (setq undo-extra-outer-limit (+ size 50000))
1699 (if (let (use-dialog-box track-mouse executing-kbd-macro ) 1699 (if (let (use-dialog-box track-mouse executing-kbd-macro )
1700 (yes-or-no-p (format "Buffer %s undo info is %d bytes long; discard it? " 1700 (yes-or-no-p (format "Buffer `%s' undo info is %d bytes long; discard it? "
1701 (buffer-name) size))) 1701 (buffer-name) size)))
1702 (progn (setq buffer-undo-list nil) 1702 (progn (setq buffer-undo-list nil)
1703 (setq undo-extra-outer-limit nil) 1703 (setq undo-extra-outer-limit nil)
@@ -1705,7 +1705,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.")
1705 nil)) 1705 nil))
1706 (display-warning '(undo discard-info) 1706 (display-warning '(undo discard-info)
1707 (concat 1707 (concat
1708 (format "Buffer %s undo info was %d bytes long.\n" 1708 (format "Buffer `%s' undo info was %d bytes long.\n"
1709 (buffer-name) size) 1709 (buffer-name) size)
1710 "The undo info was discarded because it exceeded \ 1710 "The undo info was discarded because it exceeded \
1711`undo-outer-limit'. 1711`undo-outer-limit'.