Make seq.el more extensible by using cl-defmethod

[gnu-emacs] / lisp / emacs-lisp / macroexp.el

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index ffc6585e1914ffc8b0b810333a153e5526d74b8e..cc461c81cdd27b22bfab8f24b07eadec8d110ff5 100644 (file)
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -146,10 +146,10 @@ and also to avoid outputting the warning during normal execution."
 (defun macroexp--obsolete-warning (fun obsolescence-data type)
   (let ((instead (car obsolescence-data))
         (asof (nth 2 obsolescence-data)))
-    (format "`%s' is an obsolete %s%s%s" fun type
+    (format "‘%s’ is an obsolete %s%s%s" fun type
             (if asof (concat " (as of " asof ")") "")
             (cond ((stringp instead) (concat "; " instead))
-                  (instead (format "; use `%s' instead." instead))
+                  (instead (format "; use ‘%s’ instead." instead))
                   (t ".")))))
 
 (defun macroexpand-1 (form &optional environment)