mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 17:22:48 -07:00
Code Issues Projects Releases Wiki Activity

(elisp--shorthand-aware-(f)boundp): Don't allocate

Browse source 
* lisp/progmodes/elisp-mode.el (elisp--read-symbol-shorthands):
New function, extracted from `elisp--completion-local-symbols`.
Remember the longhand symbol in `elisp--longhand` property.
(elisp--completion-local-symbols): Use it.
(elisp--shorthand-aware-fboundp, elisp--shorthand-aware-boundp):
Use the new `elisp--longhand` property.
This commit is contained in:
Stefan Monnier 2026-03-11 16:54:00 -04:00
parent cfe9d94524
commit dc4f7e6809
1 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lisp/progmodes/elisp-mode.el
View file

@ -1010,6 +1010,22 @@ The cache holds information specific to the current state of the
Elisp obarray. If the obarray is modified by any means (such as
interning or uninterning a symbol), this variable is set to nil.")
(defun elisp--read-symbol-shorthands (s)
"Return a fresh list of shorthand-ed alternative spellings of symbol S."
(let ((retval ()))
(cl-loop
for (shorthand . longhand) in read-symbol-shorthands
for full-name = (symbol-name s)
when (string-prefix-p longhand full-name)
do (let ((sym (make-symbol
(concat shorthand
(substring full-name
(length longhand))))))
(put sym 'elisp--longhand s)
(push sym retval)
retval))
retval))
(defun elisp--completion-local-symbols ()
"Compute collections of all Elisp symbols for completion purposes.
The return value is compatible with the COLLECTION form described
@ -1018,18 +1034,9 @@ in `completion-at-point-functions' (which see)."
(let (retval)
(mapatoms
(lambda (s)
(push s retval)
(cl-loop
for (shorthand . longhand) in read-symbol-shorthands
for full-name = (symbol-name s)
when (string-prefix-p longhand full-name)
do (let ((sym (make-symbol
(concat shorthand
(substring full-name
(length longhand))))))
(put sym 'shorthand t)
(push sym retval)
retval))))
(setq retval
(cons s (nconc (elisp--read-symbol-shorthands s)
retval)))))
retval)))
(cond ((null read-symbol-shorthands) obarray)
((and obarray-cache
@ -1046,10 +1053,10 @@ in `completion-at-point-functions' (which see)."
obarray-cache)))))
(defun elisp--shorthand-aware-fboundp (sym)
(fboundp (intern-soft (symbol-name sym))))
(fboundp (or (get sym 'elisp--longhand) sym)))
(defun elisp--shorthand-aware-boundp (sym)
(boundp (intern-soft (symbol-name sym))))
(boundp (or (get sym 'elisp--longhand) sym)))
(defun elisp-completion-at-point ()
"Function used for `completion-at-point-functions' in `emacs-lisp-mode'.