[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 501b0de 47/57: Use RefTeX for multiple reference
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex 501b0de 47/57: Use RefTeX for multiple references in cleveref |
Date: |
Wed, 11 Jan 2017 18:01:42 +0000 (UTC) |
branch: externals/auctex
commit 501b0de7ba69315a87d167bf65b5ddeee5c58551
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>
Use RefTeX for multiple references in cleveref
* style/cleveref.el (TeX-arg-cleveref-multiple-labels): Check if
RefTeX is enabled and use it for multiple referencing macros.
("cleveref"): Use `TeX-arg-ref' instead of `TeX-arg-label'.
("cleveref"): Remove call of (font-latex-set-syntactic-keywords).
---
style/cleveref.el | 52 ++++++++++++++++++++++++++--------------------------
1 file changed, 26 insertions(+), 26 deletions(-)
diff --git a/style/cleveref.el b/style/cleveref.el
index 3143e9a..3150180 100644
--- a/style/cleveref.el
+++ b/style/cleveref.el
@@ -25,19 +25,22 @@
;;; Code
-(defun TeX-arg-cleveref-multiple-labels (optional &optional prompt definition)
+(defun TeX-arg-cleveref-multiple-labels (optional &optional prompt)
"Prompt for a series of labels completing with known labels.
If OPTIONAL is non-nil, insert the resulting value as an optional
argument, otherwise as a mandatory one. Use PROMPT as the prompt
-string. If DEFINITION is non-nil, add each chosen label to the
-list of defined labels."
- (let* ((labels (TeX-completing-read-multiple
- (TeX-argument-prompt optional prompt "Keys")
- (LaTeX-label-list)))
- (labels-string (mapconcat 'identity labels ",")))
- (when definition
- (apply 'LaTeX-add-labels labels))
- (TeX-argument-insert labels-string optional optional)))
+string."
+ (if (and (fboundp 'reftex-arg-label)
+ (fboundp 'reftex-plug-flag)
+ (reftex-plug-flag 2))
+ ;; Use RefTeX when enabled
+ (TeX-arg-ref optional)
+ ;; Use AUCTeX interface
+ (let* ((labels (TeX-completing-read-multiple
+ (TeX-argument-prompt optional prompt "Keys")
+ (LaTeX-label-list)))
+ (labels-string (mapconcat #'identity labels ",")))
+ (TeX-argument-insert labels-string optional))))
(TeX-add-style-hook
"cleveref"
@@ -45,22 +48,22 @@ list of defined labels."
(TeX-add-symbols
'("cref" TeX-arg-cleveref-multiple-labels)
'("Cref" TeX-arg-cleveref-multiple-labels)
- '("crefrange" (TeX-arg-label "Key (first)") (TeX-arg-label "Key (last)"))
- '("Crefrange" (TeX-arg-label "key (first)") (TeX-arg-label "Key (last)"))
+ '("crefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
+ '("Crefrange" (TeX-arg-ref "key (first)") (TeX-arg-ref "Key (last)"))
'("cpageref" TeX-arg-cleveref-multiple-labels)
'("Cpageref" TeX-arg-cleveref-multiple-labels)
- '("cpagerefrange" (TeX-arg-label "Key (first)") (TeX-arg-label "Key
(last)"))
- '("Cpagerefrange" (TeX-arg-label "Key (first)") (TeX-arg-label "Key
(last)"))
+ '("cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
+ '("Cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
'("cref*" TeX-arg-cleveref-multiple-labels)
'("Cref*" TeX-arg-cleveref-multiple-labels)
- '("crefrange*" (TeX-arg-label "Key (first)") (TeX-arg-label "Key (last)"))
- '("Crefrange*" (TeX-arg-label "Key (first)") (TeX-arg-label "Key (last)"))
- '("namecref" TeX-arg-label)
- '("nameCref" TeX-arg-label)
- '("lcnamecref" TeX-arg-label)
- '("namecrefs" TeX-arg-label)
- '("nameCrefs" TeX-arg-label)
- '("lcnamecrefs" TeX-arg-label)
+ '("crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
+ '("Crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
+ '("namecref" TeX-arg-ref)
+ '("nameCref" TeX-arg-ref)
+ '("lcnamecref" TeX-arg-ref)
+ '("namecrefs" TeX-arg-ref)
+ '("nameCrefs" TeX-arg-ref)
+ '("lcnamecrefs" TeX-arg-ref)
'("labelcref" TeX-arg-cleveref-multiple-labels)
'("labelcpageref" TeX-arg-cleveref-multiple-labels))
@@ -73,7 +76,6 @@ list of defined labels."
;; Fontification
(when (and (fboundp 'font-latex-add-keywords)
- (fboundp 'font-latex-set-syntactic-keywords)
(eq TeX-install-font-lock 'font-latex-setup))
(font-latex-add-keywords '(("cref" "*{")
("Cref" "*{")
@@ -91,9 +93,7 @@ list of defined labels."
("lcnamecrefs" "{")
("labelcref" "{")
("labelcpageref" "{"))
- 'reference)
- ;; For syntactic fontification, e.g. verbatim constructs.
- (font-latex-set-syntactic-keywords))
+ 'reference))
;; Activate RefTeX reference style.
(and LaTeX-reftex-ref-style-auto-activate
- [elpa] externals/auctex 48d397c 17/57: Add starred version of \citeauthor and \Citeauthor, (continued)
- [elpa] externals/auctex 48d397c 17/57: Add starred version of \citeauthor and \Citeauthor, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 89ea0e4 19/57: Fix name of macros \lcnamecref and \lcnamecrefs, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex bb390fe 18/57: Add fontification for varioref's referencing macros, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 8186490 06/57: Fix documentation of TeX-arg-file, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 01da194 23/57: ; * style/titletoc.el ("titletoc"): Use `TeX-arg-length'., Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 1addc62 30/57: Use RefTeX for multiple citations in biblatex, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 890163e 26/57: Bring back multi-level script font-locking, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 5ddbd04 12/57: Add new style/titleps.el, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 225bade 14/57: Add new style/titletoc.el, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 343ca9c 36/57: Fix script unfontification bug, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 501b0de 47/57: Use RefTeX for multiple references in cleveref,
Tassilo Horn <=
- [elpa] externals/auctex bfc7e90 16/57: Fix fontification for natbib compat macros, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 1de2359 13/57: Add new style/titlesec.el, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex ccec850 24/57: Remove multi-level/invisible feature of font-latex-fontify-script, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 4c42f7a 25/57: Revert "Remove multi-level/invisible feature of font-latex-fontify-script", Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 4747c24 29/57: Simple docfix, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 69fc320 27/57: Add a newline only if \label is inserted, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 377a97a 32/57: Completion for math macros, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 0e54895 34/57: Improve completion docs, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 00df9a5 37/57: Check new custom option before activating RefTeX cite format, Tassilo Horn, 2017/01/11
- [elpa] externals/auctex 0766526 41/57: Don't use cl function copy-list, Tassilo Horn, 2017/01/11