master c19d4003: Replace `TeX-arg-eval' in style/newfloat.el

[Arash Esbati]

branch: master
commit c19d4003e0f4d5abba6aab67c7c952f3d1622d91
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>

    Replace `TeX-arg-eval' in style/newfloat.el
    
    * style/newfloat.el ("newfloat"): Replace `TeX-arg-eval' with
    closure.
    Fix the first argument of `TeX-arg-completing-read'
---
 style/newfloat.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/style/newfloat.el b/style/newfloat.el
index b1947bb3..50b0a4e0 100644
--- a/style/newfloat.el
+++ b/style/newfloat.el
@@ -1,6 +1,6 @@
 ;;; newfloat.el --- AUCTeX style for `newfloat.sty' (v1.1-109)  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2015--2022 Free Software Foundation, Inc.
+;; Copyright (C) 2015--2023 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati <ar...@gnu.org>
 ;; Maintainer: auctex-devel@gnu.org
@@ -156,27 +156,28 @@ If `caption.el' is loaded, add the new floating 
environment to
 
    ;; Commands:
    (TeX-add-symbols
-    '("DeclareFloatingEnvironment"
+    `("DeclareFloatingEnvironment"
       [TeX-arg-key-val (LaTeX-newfloat-key-val-options)]
-      (TeX-arg-eval
-       (lambda ()
+      ,(lambda (optional)
          (let ((newfloat (TeX-read-string
-                          (TeX-argument-prompt nil nil "Floating 
environment"))))
+                          (TeX-argument-prompt optional nil "Floating 
environment"))))
            (LaTeX-add-newfloat-DeclareFloatingEnvironments newfloat)
-           (format "%s" newfloat)))))
+           (TeX-argument-insert newfloat optional))))
 
-    '("SetupFloatingEnvironment"
+    `("SetupFloatingEnvironment"
       (TeX-arg-completing-read
-       (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))
+       ,(lambda ()
+          (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list)))
        "Floating environment")
       (TeX-arg-key-val (LaTeX-newfloat-key-val-options)))
 
     '("ForEachFloatingEnvironment" t)
     '("ForEachFloatingEnvironment*" t)
 
-    '("PrepareListOf"
+    `("PrepareListOf"
       (TeX-arg-completing-read
-       (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))
+       ,(lambda ()
+          (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list)))
        "Floating environment")
       t)