diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-16 13:52:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-16 13:52:46 +0200 |
| commit | 630bbe39327ee289016145fe0c184310616b5ec8 (patch) | |
| tree | 8953d8c6d3c25924bdb99d52060d5d6358f1e16a /lisp/help-fns.el | |
| parent | 38f9e9cb2c04af38a609e7d0a812f0809458125b (diff) | |
| download | emacs-630bbe39327ee289016145fe0c184310616b5ec8.tar.gz | |
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).
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 9 |
1 files changed, 9 insertions, 0 deletions
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" |