From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 20 Aug 2024 12:09:54 +0000 (-0400)
Subject: * lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d17b30812ef8271ff0c5724741526ba26856a70b;p=emacs.git

* lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable

Fixes bug#72511.

(cherry picked from commit 45ae4de0e7ce99c88c62f940f605bca693b8e33f)
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 187d1dd6a41..6b4e4ad48f7 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -85,14 +85,14 @@ current help buffer.")
 
 (defun help-definition-prefixes ()
   "Return the up-to-date radix-tree form of `definition-prefixes'."
-  (when (> (hash-table-count definition-prefixes) 0)
+  (when (and (null help-definition-prefixes)
+             (> (hash-table-count definition-prefixes) 0))
     (maphash (lambda (prefix files)
                (let ((old (radix-tree-lookup help-definition-prefixes prefix)))
                  (setq help-definition-prefixes
                        (radix-tree-insert help-definition-prefixes
                                           prefix (append old files)))))
-             definition-prefixes)
-    (clrhash definition-prefixes))
+             definition-prefixes))
   help-definition-prefixes)
 
 (defun help--loaded-p (file)