Bläddra i källkod

Merge branch 'bugfix'

Nicolas Goaziou 4 år sedan
förälder
incheckning
d872506ad3
1 ändrade filer med 6 tillägg och 5 borttagningar
  1. 6 5
      lisp/oc-csl.el

+ 6 - 5
lisp/oc-csl.el

@@ -270,11 +270,12 @@ If nil then the Chicago author-date style is used as a fallback.")
 (defconst org-cite-csl--label-regexp
   ;; Prior to Emacs-27.1 argument of `regexp' form must be a string literal.
   ;; It is the reason why `rx' is avoided here.
-  (rx-to-string `(seq word-start
-                      (regexp ,(regexp-opt (mapcar #'car org-cite-csl--label-alist) t))
-                      (0+ digit)
-                      (or word-start line-end (any ?\s ?\t)))
-                t)
+  (rx-to-string
+   `(seq word-start
+         (regexp ,(regexp-opt (mapcar #'car org-cite-csl--label-alist) t))
+         (0+ digit)
+         (or word-start line-end space ? ))
+   t)
   "Regexp matching a label in a citation reference suffix.
 Label is in match group 1.")