master eb7b8d4d 2/5: * style/listings.el ("listings"): Replace `TeX-arg-eval'.

[Arash Esbati]

branch: master
commit eb7b8d4de4236927574d6c208c37ead080ac83a1
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    * style/listings.el ("listings"): Replace `TeX-arg-eval'.
---
 style/listings.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/style/listings.el b/style/listings.el
index 43d1c191..d9352fc7 100644
--- a/style/listings.el
+++ b/style/listings.el
@@ -412,12 +412,12 @@ caption key is found, an error is issued."
    ;; New symbols
    (TeX-add-symbols
     '("lstalias" ["Alias dialect"] "Alias" ["Dialect"] "Language")
-    '("lstdefinestyle"
-      (TeX-arg-eval
-       (lambda ()
-         (let ((name (TeX-read-string "Style name: ")))
+    `("lstdefinestyle"
+      ,(lambda (optional)
+         (let ((name (TeX-read-string
+                      (TeX-argument-prompt optional nil "Style name"))))
            (LaTeX-add-listings-lstdefinestyles name)
-           (format "%s" name))))
+           (TeX-argument-insert name optional)))
       (TeX-arg-key-val (LaTeX-listings-key-val-options)))
     '("lstinline" [TeX-arg-key-val (LaTeX-listings-key-val-options)]
       TeX-arg-verb-delim-or-brace)