aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2024-08-20 08:09:54 -0400
committerStefan Monnier2024-08-20 08:09:54 -0400
commit45ae4de0e7ce99c88c62f940f605bca693b8e33f (patch)
tree29a8e9ce21cc85927cccfe4709aed43fdd3ed6f5
parentfc7581ae2ee9db1e3189b76c66be9cd13f72f004 (diff)
downloademacs-45ae4de0e7ce99c88c62f940f605bca693b8e33f.tar.gz
emacs-45ae4de0e7ce99c88c62f940f605bca693b8e33f.zip
* lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable
Fixes bug#72511.
-rw-r--r--lisp/help-fns.el6
1 files 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.")
85 85
86(defun help-definition-prefixes () 86(defun help-definition-prefixes ()
87 "Return the up-to-date radix-tree form of `definition-prefixes'." 87 "Return the up-to-date radix-tree form of `definition-prefixes'."
88 (when (> (hash-table-count definition-prefixes) 0) 88 (when (and (null help-definition-prefixes)
89 (> (hash-table-count definition-prefixes) 0))
89 (maphash (lambda (prefix files) 90 (maphash (lambda (prefix files)
90 (let ((old (radix-tree-lookup help-definition-prefixes prefix))) 91 (let ((old (radix-tree-lookup help-definition-prefixes prefix)))
91 (setq help-definition-prefixes 92 (setq help-definition-prefixes
92 (radix-tree-insert help-definition-prefixes 93 (radix-tree-insert help-definition-prefixes
93 prefix (append old files))))) 94 prefix (append old files)))))
94 definition-prefixes) 95 definition-prefixes))
95 (clrhash definition-prefixes))
96 help-definition-prefixes) 96 help-definition-prefixes)
97 97
98(defun help--loaded-p (file) 98(defun help--loaded-p (file)