From b70ef01ff235cb4868799927f62a7df4c7d2c10c Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 26 Apr 2023 22:50:33 +0200 Subject: [PATCH] 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 4f14ec9a7..a9b71e794 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)))