From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 16 Jul 2022 11:52:20 +0000 (+0200)
Subject: Weed out some false positives in help-fns--mention-first-release
X-Git-Tag: emacs-29.0.90~1447^2~898
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=630bbe39327ee289016145fe0c184310616b5ec8;p=emacs.git

Weed out some false positives in help-fns--mention-first-release

* lisp/help-fns.el (help-fns--mention-first-release): Weed out
things that give too many false positives (bug#49062).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index fbd40158701..85984c87e2d 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -837,6 +837,15 @@ the C sources, too."
   (unless (memq 'help-fns--customize-variable-version
                 help-fns--activated-functions)
     (when-let ((first (and (symbolp object)
+                           ;; Weed out things that probably aren't
+                           ;; official things (so that we don't say
+                           ;; "Introduced in version 1.1" if the user
+                           ;; has done `(setq a 42)').
+                           (or (string-search "-" (symbol-name object))
+                               (and (boundp object)
+                                    (get object 'variable-documentation))
+                               (and (fboundp object)
+                                    (documentation object)))
                            (help-fns--first-release object))))
       (with-current-buffer standard-output
         (insert (format "  Probably introduced at or before Emacs version %s.\n"