mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

cedet/html.el: Prefer define-mode-local-override

Browse source 
* lisp/cedet/semantic/html.el (semantic-tag-components): Override via
`define-mode-local-override`.
(semantic-default-html-setup): Don't override via
`semantic-install-function-overrides`.
This commit is contained in:
Stefan Monnier 2022-05-22 12:10:47 -04:00
parent 35afd1f246
commit 2ca4925d2b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/cedet/semantic/html.el
View file

@ -82,6 +82,11 @@ or
tag :members (mapcar #'semantic-html-expand-tag chil)))
(car (semantic--tag-expand tag))))
(define-mode-local-override semantic-tag-components html-mode (tag)
"Return components belonging to TAG."
;; Keep this η-regexp because `semantic-html-components' is called
;; from elsewhere.
(semantic-html-components tag))
(defun semantic-html-components (tag)
"Return components belonging to TAG."
(semantic-tag-get-attribute tag :members))
@ -245,12 +250,7 @@ tag with greater section value than LEVEL is found."
senator-step-at-start-end-tag-classes '(section)
senator-step-at-tag-classes '(section)
semantic-stickyfunc-sticky-classes '(section)
)
(semantic-install-function-overrides
'((semantic-tag-components . semantic-html-components)
)
t)
)
))
;; `html-helper-mode' hasn't been updated since 2004, so it's not very
;; relevant nowadays.