From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 9 Sep 2020 23:42:53 +0000 (+0200)
Subject: Make M-x show what aliases point to (Bug#43300)
X-Git-Tag: emacs-28.0.90~6093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06d86b954d2cdb40c77fdce2264f660c26955171;p=emacs.git

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.
---

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))))))