diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-22 12:10:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-22 12:10:47 -0400 |
| commit | 2ca4925d2b9646493e90c660ce2b8a1bc4378e71 (patch) | |
| tree | 8f5618ae0881a38b8516a56dae09edd75b351a04 | |
| parent | 35afd1f246cf2c56dd88ea56c8960fcf49d3a7c7 (diff) | |
| download | emacs-2ca4925d2b9646493e90c660ce2b8a1bc4378e71.tar.gz | |
cedet/html.el: Prefer `define-mode-local-override`
* 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`.
| -rw-r--r-- | lisp/cedet/semantic/html.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/html.el b/lisp/cedet/semantic/html.el index 718ce3c4c74..00e19dbc892 100644 --- a/lisp/cedet/semantic/html.el +++ b/lisp/cedet/semantic/html.el @@ -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. |