[elpa] externals/transient c3dd1ebae3 2/2: orgconfig: Avoid using variable unavailable on GNU ELPA server

[Jonas Bernoulli]

branch: externals/transient
commit c3dd1ebae3fc1f81125388e112bad80b75d9ba02
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    orgconfig: Avoid using variable unavailable on GNU ELPA server
    
    The GNU ELPA build server uses an old Emacs, which lacks
    `org-texinfo--quoted-keys-regexp'.  Hard-code its value instead.
---
 docs/.orgconfig | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/.orgconfig b/docs/.orgconfig
index cba8e54ce0..b7bc0e4587 100644
--- a/docs/.orgconfig
+++ b/docs/.orgconfig
@@ -8,7 +8,7 @@
 #+macro: version (eval (if-let ((tag (ignore-errors (car (process-lines "git" 
"describe" "--exact-match"))))) (concat "version " (substring tag 1)) (or 
(ignore-errors (car (process-lines "git" "describe"))) "version (unknown)")))
 
 #+macro: var @@texinfo:@var{@@$1@@texinfo:}@@
-#+macro: kbdvar (eval (format "@@texinfo:@kbd{@@%s@@texinfo:}@@" (let 
(case-fold-search) (replace-regexp-in-string "<\\([a-zA-Z-]+\\)>" 
"@@texinfo:@var{@@\\1@@texinfo:}@@" (replace-regexp-in-string 
org-texinfo--quoted-keys-regexp "@@texinfo:@key{@@\\&@@texinfo:}@@" $1 t) t))))
+#+macro: kbdvar (eval (format "@@texinfo:@kbd{@@%s@@texinfo:}@@" (let 
(case-fold-search) (replace-regexp-in-string "<\\([a-zA-Z-]+\\)>" 
"@@texinfo:@var{@@\\1@@texinfo:}@@" (replace-regexp-in-string 
"\\<\\(Alt\\|BS\\|C\\(?:md\\|trl\\)\\|D\\(?:EL\\(?:ETE\\)?\\|OWN\\)\\|ESC\\|L\\(?:EFT\\|FD\\)\\|Meta\\|R\\(?:\\(?:E\\|IGH\\)T\\)\\|S\\(?:HIFT\\|PC\\|uper\\)\\|TAB\\|UP\\)\\>"
 "@@texinfo:@key{@@\\&@@texinfo:}@@" $1 t) t))))
 #+macro: codevar (eval (let (case-fold-search) (format 
"@@texinfo:@code{@@%s@@texinfo:}@@" (replace-regexp-in-string 
"\\([A-Z][A-Z-]+\\)" "@@texinfo:@var{@@\\&@@texinfo:}@@" $1 t))))
 #+macro: dfn @@texinfo:@dfn{@@$1@@texinfo:}@@