* lisp/emacs-lisp/bytecomp.el (byte-compile-form):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
Substitute quotes in instead strings.
(byte-compile-warn "‘%s’ is for interactive use only%s"
fn
(cond ((stringp interactive-only)
- (format "; %s" interactive-only))
+ (format "; %s"
+ (substitute-command-keys
+ interactive-only)))
((and (symbolp 'interactive-only)
(not (eq interactive-only t)))
(format-message "; use ‘%s’ instead."
(format-message
"‘%s’ is an obsolete %s%s%s" fun type
(if asof (concat " (as of " asof ")") "")
- (cond ((stringp instead) (concat "; " instead))
+ (cond ((stringp instead) (concat "; " (substitute-command-keys instead)))
(instead (format-message "; use ‘%s’ instead." instead))
(t ".")))))