diff options
| author | Ihor Radchenko <yantar92@posteo.net> | 2023-09-02 20:07:07 +0300 |
|---|---|---|
| committer | Ihor Radchenko <yantar92@posteo.net> | 2023-09-02 20:07:07 +0300 |
| commit | dbf415b8405b7325270ecd26d61f2f91d4165384 (patch) | |
| tree | 9193d411cfc85dc63afbffae1c1f6f1fbbdffbdd | |
| parent | 21654e9a44f31a0574c626f421b608da834168f3 (diff) | |
| download | org-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.el | 4 |
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)))))) |
