From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 31 Aug 2024 09:51:59 +0000 (+0300)
Subject: Revert "* lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable"
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~479
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=608526a91a0e0f0287448eb88b0bd11c78fa8688;p=emacs.git

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

This reverts commit 45ae4de0e7ce99c88c62f940f605bca693b8e33f.
It did not fix a regression or even a user-visible bug, and
it caused bug#72787.

Do not merge to master.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index c03593bcb69..1ffe1b16588 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 (and (null help-definition-prefixes)
-             (> (hash-table-count definition-prefixes) 0))
+  (when (> (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))
+             definition-prefixes)
+    (clrhash definition-prefixes))
   help-definition-prefixes)
 
 (defun help--loaded-p (file)