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/texi.el: prefer define-mode-local-override

Browse source 
* lisp/cedet/semantic/texi.el (semantic-parse-region)
(semantic-parse-changes): Override with `define-mode-local-override`.
(semantic-default-texi-setup): Don't override them with
`semantic-install-function-overrides`.
This commit is contained in:
Stefan Monnier 2022-05-22 11:13:27 -04:00
parent 42076e6986
commit f166e2dfc0
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/cedet/semantic/texi.el
View file

@ -55,7 +55,7 @@ The field position is the field number (based at 1) where the
name of this section is.")
;;; Code:
(defun semantic-texi-parse-region (&rest _ignore)
(define-mode-local-override semantic-parse-region texinfo-mode (&rest _ignore)
"Parse the current texinfo buffer for semantic tags.
IGNORE any arguments, always parse the whole buffer.
Each tag returned is of the form:
@ -68,7 +68,7 @@ function `semantic-install-function-overrides'."
(mapcar #'semantic-texi-expand-tag
(semantic-texi-parse-headings)))
(defun semantic-texi-parse-changes ()
(define-mode-local-override semantic-parse-changes texinfo-mode ()
"Parse changes in the current texinfo buffer."
;; NOTE: For now, just schedule a full reparse.
;; To be implemented later.
@ -445,9 +445,6 @@ that start with that symbol."
(defun semantic-default-texi-setup ()
"Set up a buffer for parsing of Texinfo files."
;; This will use our parser.
(semantic-install-function-overrides
'((semantic-parse-region . semantic-texi-parse-region)
(semantic-parse-changes . semantic-texi-parse-changes)))
(setq semantic-parser-name "TEXI"
;; Setup a dummy parser table to enable parsing!
semantic--parse-table t