summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIhor Radchenko <yantar92@posteo.net>2023-09-02 20:07:07 +0300
committerIhor Radchenko <yantar92@posteo.net>2023-09-02 20:07:07 +0300
commitdbf415b8405b7325270ecd26d61f2f91d4165384 (patch)
tree9193d411cfc85dc63afbffae1c1f6f1fbbdffbdd
parent21654e9a44f31a0574c626f421b608da834168f3 (diff)
downloadorg-mode-dbf415b84.tar.gz
Revert "org-texinfo--match-definition: Drop redundant `save-match-data'"
This reverts commit e32bd5f7c78c9d92cefd9a78771f9729946fdf73. This is `pcase-let*', not `pcase', so the arguments are _all_ evaluated and match data must be preserved in the ARGS binding. Link: https://yhetil.org/emacs-devel/877cp8bkpa.fsf@bernoul.li
-rw-r--r--lisp/ox-texinfo.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index c6173df..a83fe26 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -668,9 +668,9 @@ The car is the command and the cdr is its arguments."
(string-match org-texinfo--definition-command-regexp tag)
(pcase-let*
((cmd (car (rassoc (match-string-no-properties 1 tag)
- org-texinfo--definition-command-alist)))
+ org-texinfo--definition-command-alist)))
(`(,cmd ,category)
- (and cmd (split-string cmd " ")))
+ (and cmd (save-match-data (split-string cmd " "))))
(args (match-string-no-properties 2 tag)))
(cons cmd (if category (concat category " " args) args))))))