X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1fb87f1f1aa0947ec7b572a0ec1677c18aefc9f0..19532d147b431a4fe34f088d6de07891c48e2c5c:/lisp/msb.el

diff --git a/lisp/msb.el b/lisp/msb.el
index 149d193446..b717dcc8cd 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -745,8 +745,8 @@ to the buffer-list variable in FUNCTION-INFO."
 	    (msb--add-to-menu buffer info max-buffer-name-length)))
       (error (unless msb--error
 	       (setq msb--error
-		     (format
-		      "In msb-menu-cond, error for buffer `%s'."
+		     (format-message
+		      "In msb-menu-cond, error for buffer ‘%s’."
 		      (buffer-name buffer)))
 	       (error "%s" msb--error))))))
 
@@ -777,7 +777,7 @@ SORT-PREDICATE.
 
 Example:
 \(msb--aggregate-alist
- '((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2))
+ \\='((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2))
  (function string=)
  (lambda (item1 item2)
    (string< (symbol-name item1) (symbol-name item2))))