branch: elpa/systemd
commit 5c9389dae316a26e76c4b3a92c2149c091e5e8ba
Author: Mark Oteiza <[email protected]>
Commit: Mark Oteiza <[email protected]>
move this matcher down with the other ones
---
systemd.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/systemd.el b/systemd.el
index 5708ea3..4715d1b 100644
--- a/systemd.el
+++ b/systemd.el
@@ -202,21 +202,6 @@ file, defaulting to the link under point, if any."
(interactive)
(systemd-doc-man "systemd.directives(7)"))
-(defun systemd-exec-prefix-anchored-matcher (limit)
- "Matcher for the exec prefix in anchored font-lock rule.
-See `font-lock-keywords' and (info \"(elisp) Search-based Fontification\")."
- (let ((pos (car (match-data)))
- (prefixes '(?- ?@ ?+))
- char end res)
- (while (and (memq (setq char (following-char)) prefixes)
- (< (point) limit))
- (forward-char)
- (setq prefixes (remq char prefixes))
- (setq end (point-marker)))
- (when end
- (prog1 (setq res (list (1+ pos) end))
- (set-match-data res)))))
-
(defun systemd-buffer-section-p ()
"Return t if current line begins with \"[\", otherwise nil."
(= (char-after (line-beginning-position)) ?\[))
@@ -277,6 +262,21 @@ Only matches comments on lines passing
`systemd-construct-start-p'."
(not (systemd-construct-start-p))))
match))
+(defun systemd-exec-prefix-anchored-matcher (limit)
+ "Matcher for the exec prefix in anchored font-lock rule.
+See `font-lock-keywords' and (info \"(elisp) Search-based Fontification\")."
+ (let ((pos (car (match-data)))
+ (prefixes '(?- ?@ ?+))
+ char end res)
+ (while (and (memq (setq char (following-char)) prefixes)
+ (< (point) limit))
+ (forward-char)
+ (setq prefixes (remq char prefixes))
+ (setq end (point-marker)))
+ (when end
+ (prog1 (setq res (list (1+ pos) end))
+ (set-match-data res)))))
+
(defconst systemd-font-lock-keywords-1
`((systemd-comment-matcher
(1 'font-lock-comment-delimiter-face)
