branch: externals/auctex
commit eb7b8d4de4236927574d6c208c37ead080ac83a1
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 43d1c191fa..d9352fc704 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)
