procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(loaddefs-generate--compute-prefixes): Fix thinko in last change

Browse source 
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--compute-prefixes):
 Fix thinko in last change.  Also,       reduce memory allocation.
This commit is contained in:
Stefan Monnier 2024-02-06 15:36:18 -05:00
parent ab318cce1e
commit 77f240012f
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/loaddefs-gen.el
View file

@ -499,16 +499,17 @@ don't include."
(defun loaddefs-generate--compute-prefixes (load-name)
(goto-char (point-min))
(let ((prefs nil))
(let ((prefs nil)
(temp-obarray (obarray-make)))
;; Avoid (defvar <foo>) by requiring a trailing space.
(while (re-search-forward
"^(\\(def[^ \t\n]+\\)[ \t\n]+['(]*\\([^' ()\"\n]+\\)[\n \t]" nil t)
(unless (member (match-string 1) autoload-ignored-definitions)
(let* ((name (match-string-no-properties 2))
;; Consider `read-symbol-shorthands'.
(probe (let ((obarray (obarray-make)))
(probe (let ((obarray temp-obarray))
(car (read-from-string name)))))
(when (symbolp name)
(when (symbolp probe)
(setq name (symbol-name probe))
(when (save-excursion
(goto-char (match-beginning 0))