diff options
| author | Stefan Monnier | 2024-08-20 08:09:54 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2024-08-20 08:09:54 -0400 |
| commit | 45ae4de0e7ce99c88c62f940f605bca693b8e33f (patch) | |
| tree | 29a8e9ce21cc85927cccfe4709aed43fdd3ed6f5 | |
| parent | fc7581ae2ee9db1e3189b76c66be9cd13f72f004 (diff) | |
| download | emacs-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.el | 6 |
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) |