From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 21 Jul 2022 06:55:28 +0000 (+0200)
Subject: Don't list obsolete in "other commands" help section
X-Git-Tag: emacs-29.0.90~1447^2~827
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8a586c1db7fe7c848fe29a01277acdeac8999b1;p=emacs.git

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

* lisp/help-fns.el (help-fns--list-local-commands): Don't list
obsolete commands.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 620b7666f62..dc64a09f3d8 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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)))