[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.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org c4a357f: oc-csl: Allow nbsp after locator label,
ELPA Syncer <=