From 41ed99a322f35639bdc7402b1b7089d85782e8d3 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 31 Aug 2015 00:04:11 -0700 Subject: Treat “instead” strings as docstrings MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/emacs-lisp/bytecomp.el (byte-compile-form): * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning): Substitute quotes in instead strings. --- lisp/emacs-lisp/bytecomp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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." -- cgit v1.2.3