(undo-outer-limit-truncate): Put quotes around buffer name in messages.

1 files 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'.