Don't list obsolete in "other commands" help section

* lisp/help-fns.el (help-fns--list-local-commands): Don't list
obsolete commands.
This commit is contained in:
Stefan Kangas 2022-07-21 08:55:28 +02:00
parent 46052d1dcb
commit c8a586c1db

View file

@ -2195,6 +2195,8 @@ documentation for the major and minor modes of that buffer."
(when (and (commandp sym)
;; Ignore aliases.
(not (symbolp (symbol-function sym)))
;; Ignore obsolete commands.
(not (get sym 'byte-obsolete-info))
;; Ignore everything bound.
(not (where-is-internal sym nil t))
(apply #'derived-mode-p (command-modes sym)))