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

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

[elpa] externals/org b70ef01ff2 02/10: org-element: Prefer property valu


From: ELPA Syncer
Subject: [elpa] externals/org b70ef01ff2 02/10: org-element: Prefer property values that occupy less memory
Date: Sun, 14 May 2023 08:58:55 -0400 (EDT)

branch: externals/org
commit b70ef01ff235cb4868799927f62a7df4c7d2c10c
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-element: Prefer property values that occupy less memory
    
    * lisp/org-element.el (org-element-subscript-parser):
    (org-element-superscript-parser): Use boolean values where it is
    sufficient.
---
 lisp/org-element.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 4f14ec9a76..a9b71e7943 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -3796,7 +3796,7 @@ Assume point is at the underscore."
   (save-excursion
     (unless (bolp) (backward-char))
     (when (looking-at org-match-substring-regexp)
-      (let ((bracketsp (match-beginning 4))
+      (let ((bracketsp (if (match-beginning 4) t nil))
            (begin (match-beginning 2))
            (contents-begin (or (match-beginning 4)
                                (match-beginning 3)))
@@ -3834,7 +3834,7 @@ Assume point is at the caret."
   (save-excursion
     (unless (bolp) (backward-char))
     (when (looking-at org-match-substring-regexp)
-      (let ((bracketsp (match-beginning 4))
+      (let ((bracketsp (if (match-beginning 4) t nil))
            (begin (match-beginning 2))
            (contents-begin (or (match-beginning 4)
                                (match-beginning 3)))



reply via email to

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