mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 22:02:52 +00:00
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.
This commit is contained in:
parent
57eb97fa35
commit
b70ef01ff2
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue