[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c2fdf896 1/2: * style/multibib.el: Replace `TeX-arg-eval'.
From: |
Arash Esbati |
Subject: |
master c2fdf896 1/2: * style/multibib.el: Replace `TeX-arg-eval'. |
Date: |
Wed, 25 Jan 2023 03:16:29 -0500 (EST) |
branch: master
commit c2fdf896a69dbdb0f8626c0266963691e8e12d56
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
* style/multibib.el: Replace `TeX-arg-eval'.
---
style/multibib.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/style/multibib.el b/style/multibib.el
index f3afa5c0..3ee593ce 100644
--- a/style/multibib.el
+++ b/style/multibib.el
@@ -60,7 +60,7 @@
"Matches the arguments of \\newcites from multibib package.")
(defun LaTeX-multibib-auto-prepare ()
- "Clear `LaTeX-auto-multibib-newcite' variables before parsing."
+ "Clear `LaTeX-auto-multibib-newcite' variable before parsing."
(setq LaTeX-auto-multibib-newcite nil))
(defun LaTeX-multibib-auto-cleanup ()
@@ -107,14 +107,13 @@
(TeX-auto-add-regexp LaTeX-multibib-newcites-regexp)
(TeX-add-symbols
- '("newcites"
- (TeX-arg-eval
- (lambda ()
+ `("newcites"
+ ,(lambda (optional)
(let ((suf (TeX-read-string
- (TeX-argument-prompt nil nil "Suffix"))))
+ (TeX-argument-prompt optional nil "Suffix"))))
(LaTeX-add-multibib-newcites suf)
(LaTeX-multibib-auto-cleanup)
- (format "%s" suf))))
+ (TeX-argument-insert suf optional)))
"Heading")
'("setbiblabelwidth" "Label"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c2fdf896 1/2: * style/multibib.el: Replace `TeX-arg-eval'.,
Arash Esbati <=