diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-31 00:04:11 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-31 00:05:31 -0700 |
| commit | 41ed99a322f35639bdc7402b1b7089d85782e8d3 (patch) | |
| tree | 07e4ace0915225f367c7d38e33acdaee26b99e5f /lisp/emacs-lisp/macroexp.el | |
| parent | 8d76c00728eb8ba41d04bc9344181aeffe158501 (diff) | |
| download | emacs-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/macroexp.el')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index ff359e6096e..6189976e866 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -149,7 +149,7 @@ and also to avoid outputting the warning during normal execution." (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 "."))))) |