[elpa] externals/org dbf415b840: Revert "org-texinfo--match-definition: Drop redundant `save-match-data'"

[ELPA Syncer]

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

    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
---
 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))))))