emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org c4a357f: oc-csl: Allow nbsp after locator l


From: ELPA Syncer
Subject: [elpa] externals-release/org c4a357f: oc-csl: Allow nbsp after locator label
Date: Sun, 10 Oct 2021 06:57:20 -0400 (EDT)

branch: externals-release/org
commit c4a357f1926ff43545c9891425c94b2771ab4e84
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    oc-csl: Allow nbsp after locator label
    
    * lisp/oc-csl.el (org-cite-csl--label-regexp): Allow nbsp between
    locator label and value.
    
    Reported-by: M. ‘quintus’ Gülker <post+orgmodeml@guelker.eu>
    <http://lists.gnu.org/r/emacs-orgmode/2021-10/msg00423.html>
---
 lisp/oc-csl.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/oc-csl.el b/lisp/oc-csl.el
index 3d13880..07916cd 100644
--- a/lisp/oc-csl.el
+++ b/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.")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]