emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/systemd 5c9389d 110/131: move this matcher down with the o


From: ELPA Syncer
Subject: [nongnu] elpa/systemd 5c9389d 110/131: move this matcher down with the other ones
Date: Sun, 29 Aug 2021 11:35:24 -0400 (EDT)

branch: elpa/systemd
commit 5c9389dae316a26e76c4b3a92c2149c091e5e8ba
Author: Mark Oteiza <mvoteiza@udel.edu>
Commit: Mark Oteiza <mvoteiza@udel.edu>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]