mirror of git://git.sv.gnu.org/emacs.git
Fix prefix discovery for files with read-symbol-shorthands (bug#67325)
In a previous commit, the local-variable read-symbol-shorthands is already read into the temporary buffer used for the autoload parsing aerobatics, so all we needed to do in 'l-g--compute-prefixes' is use 'read' to give 'read-symbol-shorthands' a chance to kick in. * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--compute-prefixes):bugfix/shorthand-fixes
parent
ff48f1401d
commit
7e99ed2f53
|
@ -499,7 +499,11 @@ don't include."
|
|||
(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)))
|
||||
(let* ((name (match-string-no-properties 2))
|
||||
;; Consider `read-symbol-shorthands'.
|
||||
(probe (let ((obarray (obarray-make)))
|
||||
(car (read-from-string name)))))
|
||||
(setq name (symbol-name probe))
|
||||
(when (save-excursion
|
||||
(goto-char (match-beginning 0))
|
||||
(or (bobp)
|
||||
|
|
Loading…
Reference in New Issue