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

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

[elpa] externals/org 279bee087d 01/13: org-element-clock-line-re: Fix Em


From: ELPA Syncer
Subject: [elpa] externals/org 279bee087d 01/13: org-element-clock-line-re: Fix Emacs 26 compatibility after e305755b1
Date: Fri, 7 Oct 2022 01:57:50 -0400 (EDT)

branch: externals/org
commit 279bee087d33f96aece12eaf334547b33ef18e88
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-element-clock-line-re: Fix Emacs 26 compatibility after e305755b1
    
    * lisp/org-element.el (org-element-clock-line-re): Use Emacs
    26-compatible `rx' notation.
---
 lisp/org-element.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 0216558eec..3d2c506c91 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -126,15 +126,17 @@ Key is located in match group 1.")
 Style, if any, is located in match group 1.")
 
 (defconst org-element-clock-line-re
-  (rx line-start (0+ (or ?\t ?\s))
-      "CLOCK: "
-      (regexp org-ts-regexp-inactive)
-      (opt "--"
-           (regexp org-ts-regexp-inactive)
-           (1+ (or ?\t ?\s)) "=>" (1+ (or ?\t ?\s))
-           (1+ digit) ":" digit digit)
-      (0+ (or ?\t ?\s))
-      line-end)
+  (rx-to-string
+   `(seq
+     line-start (0+ (or ?\t ?\s))
+     "CLOCK: "
+     (regexp ,org-ts-regexp-inactive)
+     (opt "--"
+          (regexp ,org-ts-regexp-inactive)
+          (1+ (or ?\t ?\s)) "=>" (1+ (or ?\t ?\s))
+          (1+ digit) ":" digit digit)
+     (0+ (or ?\t ?\s))
+     line-end))
   "Regexp matching a clock line.")
 
 (defconst org-element-comment-string "COMMENT"



reply via email to

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