diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-09-10 01:42:53 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-09-13 15:05:06 +0200 |
| commit | 06d86b954d2cdb40c77fdce2264f660c26955171 (patch) | |
| tree | 5e143122dedce0d9a8f402a663e0a51b7c082964 | |
| parent | 1b0a922a19bf7b380abe89a4e92176c779c26c2d (diff) | |
| download | emacs-06d86b954d2cdb40c77fdce2264f660c26955171.tar.gz emacs-06d86b954d2cdb40c77fdce2264f660c26955171.tar.bz2 emacs-06d86b954d2cdb40c77fdce2264f660c26955171.zip | |
Make M-x show what aliases point to (Bug#43300)
* lisp/simple.el (read-extended-command--annotation): Show an
annotation for aliases saying what it points to.
| -rw-r--r-- | lisp/simple.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 16ff8637b95..b00f6bba06d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1887,8 +1887,11 @@ to get different commands to edit and resubmit." (defun read-extended-command--annotation (command-name) (let* ((fun (and (stringp command-name) (intern-soft command-name))) (binding (where-is-internal fun overriding-local-map t)) - (obsolete (get fun 'byte-obsolete-info))) - (cond (obsolete + (obsolete (get fun 'byte-obsolete-info)) + (alias (symbol-function fun))) + (cond ((symbolp alias) + (format " (%s)" alias)) + (obsolete (format " (%s)" (car obsolete))) ((and binding (not (stringp binding))) (format " (%s)" (key-description binding)))))) |