master 2ca4925d2b 1/4: cedet/html.el: Prefer `define-mode-local-override`

[Stefan Monnier]

branch: master
commit 2ca4925d2b9646493e90c660ce2b8a1bc4378e71
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    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`.
---
 lisp/cedet/semantic/html.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/cedet/semantic/html.el b/lisp/cedet/semantic/html.el
index 718ce3c4c7..00e19dbc89 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.