master c2fdf896 1/2: * style/multibib.el: Replace `TeX-arg-eval'.

[Arash Esbati]

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"))