scratch/command e1e8322: Ignore aliases

[Lars Ingebrigtsen]

branch: scratch/command
commit e1e83227bc410e23477ec96e5a44e1c2db402c47
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Ignore aliases
---
 lisp/help-fns.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 9e35d12..0e2c682 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1837,6 +1837,9 @@ documentation for the major and minor modes of that 
buffer."
     (mapatoms
      (lambda (sym)
        (when (and (commandp sym)
+                  ;; Ignore aliases.
+                  (not (symbolp (symbol-function sym)))
+                  ;; Ignore everything bound.
                   (not (where-is-internal sym))
                   (apply #'derived-mode-p (command-modes sym)))
          (push sym functions))))