From d5aa078b92ac1795856e8895f5bcd52789efc95e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 May 2006 20:17:24 +0000 Subject: [PATCH] (undo-outer-limit-truncate): Put quotes around buffer name in messages. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index daf297d5fe2..5da9c955eb3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1709,7 +1709,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.") ;; but we don't want to ask the question again. (setq undo-extra-outer-limit (+ size 50000)) (if (let (use-dialog-box track-mouse executing-kbd-macro ) - (yes-or-no-p (format "Buffer %s undo info is %d bytes long; discard it? " + (yes-or-no-p (format "Buffer `%s' undo info is %d bytes long; discard it? " (buffer-name) size))) (progn (setq buffer-undo-list nil) (setq undo-extra-outer-limit nil) @@ -1717,7 +1717,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.") nil)) (display-warning '(undo discard-info) (concat - (format "Buffer %s undo info was %d bytes long.\n" + (format "Buffer `%s' undo info was %d bytes long.\n" (buffer-name) size) "The undo info was discarded because it exceeded \ `undo-outer-limit'. -- 2.39.5