summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/bytecomp.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2015-08-31 00:04:11 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2015-08-31 00:05:31 -0700
commit41ed99a322f35639bdc7402b1b7089d85782e8d3 (patch)
tree07e4ace0915225f367c7d38e33acdaee26b99e5f /lisp/emacs-lisp/bytecomp.el
parent8d76c00728eb8ba41d04bc9344181aeffe158501 (diff)
downloademacs-41ed99a322f35639bdc7402b1b7089d85782e8d3.tar.gz
emacs-41ed99a322f35639bdc7402b1b7089d85782e8d3.tar.bz2
emacs-41ed99a322f35639bdc7402b1b7089d85782e8d3.zip
Treat “instead” strings as docstrings
* lisp/emacs-lisp/bytecomp.el (byte-compile-form): * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning): Substitute quotes in instead strings.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
-rw-r--r--lisp/emacs-lisp/bytecomp.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8b8b667f596..7182c0b6372 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2989,7 +2989,9 @@ for symbols generated by the byte compiler itself."
(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."