mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

; Test semantic highlighting with 'cl-macrolet' and 'cl-flet'

Browse source
This commit is contained in:
Eshel Yaron 2025-10-06 11:00:03 +02:00
parent ec7b376dd4
commit 81c5399012
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/elisp-scope.el
View file

@ -733,6 +733,7 @@ Optional argument LOCAL is a local context to extend."
(bare (bare-symbol func))
(len (length (symbol-name bare))))
(when beg
;; TODO: Use a bespoke 'local-function-definition' role.
(elisp-scope-report 'function beg len beg))
(if (cdr exps)
;; def is (FUNC ARGLIST BODY...)
@ -1540,6 +1541,7 @@ Optional argument LOCAL is a local context to extend."
(when-let* ((bare (elisp-scope-sym-bare name))
(len (length (symbol-name bare))))
(let ((beg (elisp-scope-sym-pos name)))
;; TODO: Use a bespoke 'local-macro-definition' role.
(when beg (elisp-scope-report 'macro beg len beg))
(let ((pos (or beg (cons 'gen (incf elisp-scope-counter)))))
(elisp-scope-with-local-definition bare