From c6a60a657f52712d40a80b115484904dc88e4629 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 10 Sep 2020 01:42:53 +0200 Subject: [PATCH 2/2] Make M-x show what aliases point to * lisp/simple.el (read-extended-command--annotation): Show an annotation for aliases saying what it points to. --- lisp/simple.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 37e9a95bad..73dd938e63 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1887,8 +1887,11 @@ read-extended-command (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)))))) -- 2.28.0