[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-30 45ae4de0e7c: * lisp/help-fns.el (help-definition-prefixes): Don't delete the hashtable,
Stefan Monnier <=