emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-30 45ae4de0e7c: * lisp/help-fns.el (help-definition-prefixes): Don


From: Stefan Monnier
Subject: emacs-30 45ae4de0e7c: * lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable
Date: Tue, 20 Aug 2024 08:13:18 -0400 (EDT)

branch: emacs-30
commit 45ae4de0e7ce99c88c62f940f605bca693b8e33f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable
    
    Fixes bug#72511.
---
 lisp/help-fns.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1ffe1b16588..c03593bcb69 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]