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:
parent
46052d1dcb
commit
c8a586c1db
1 changed files with 2 additions and 0 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue