branch: externals/auctex
commit c2fdf896a69dbdb0f8626c0266963691e8e12d56
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 f3afa5c036..3ee593cefc 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"))
