branch: externals/org
commit dbf415b8405b7325270ecd26d61f2f91d4165384
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
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/[email protected]
---
lisp/ox-texinfo.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index c6173df071..a83fe26474 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))))))
