sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-09-02 01:35:32 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(conf-toml-recognize-section): Fix bug#70383

Browse source 
* lisp/textmodes/conf-mode.el (conf-toml-recognize-section): Move
point, like font-lock matchers are expected to do.
This commit is contained in:
Stefan Monnier 2024-04-17 14:30:10 -04:00
parent fcee1bf07b
commit c15c9f4de6
1 changed files with 20 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lisp/textmodes/conf-mode.el
View file

@ -613,27 +613,26 @@ For details see `conf-mode'. Example:
"Font-lock helper function for `conf-toml-mode'.
Handles recognizing TOML section names, like [section],
\[[section]], or [something.\"else\".section]."
(save-excursion
;; Skip any number of "[" to handle things like [[section]].
(when (re-search-forward "^\\s-*\\[+" limit t)
(let ((start (point)))
(backward-char)
(let ((end (min limit
(condition-case nil
(progn
(forward-list)
(1- (point)))
(scan-error
(end-of-line)
(point))))))
;; If there is a comma in the text, then we assume this is
;; an array and not a section. (This could be refined to
;; look only for unquoted commas if necessary.)
(save-excursion
(goto-char start)
(unless (search-forward "," end t)
(set-match-data (list start end))
t)))))))
;; Skip any number of "[" to handle things like [[section]].
(when (re-search-forward "^\\s-*\\[+" limit t)
(let ((start (point)))
(backward-char)
(let ((end (min limit
(condition-case nil
(progn
(forward-list)
(1- (point)))
(scan-error
(end-of-line)
(point))))))
;; If there is a comma in the text, then we assume this is
;; an array and not a section. (This could be refined to
;; look only for unquoted commas if necessary.)
(save-excursion
(goto-char start)
(unless (search-forward "," end t)
(set-match-data (list start end))
t))))))
;;;###autoload
(define-derived-mode conf-toml-mode conf-mode "Conf[TOML]"