master a6489937 4/5: * style/comment.el ("comment"): Replace `TeX-arg-eval'.

[Arash Esbati]

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

    * style/comment.el ("comment"): Replace `TeX-arg-eval'.
---
 style/comment.el | 43 +++++++++++++++++++++++--------------------
 1 file changed, 23 insertions(+), 20 deletions(-)

diff --git a/style/comment.el b/style/comment.el
index 11a14192..b9edd1c9 100644
--- a/style/comment.el
+++ b/style/comment.el
@@ -112,26 +112,29 @@
 
    ;; New symbols
    (TeX-add-symbols
-    '("includecomment"
-      (TeX-arg-eval let ((env (TeX-read-string
-                               (TeX-argument-prompt nil nil "Name"))))
-                    (LaTeX-add-comment-incl-excls `(,env "include"))
-                    (LaTeX-comment-auto-cleanup)
-                    (format "%s" env)))
-
-    '("excludecomment"
-      (TeX-arg-eval let ((env (TeX-read-string
-                               (TeX-argument-prompt nil nil "Name"))))
-                    (LaTeX-add-comment-incl-excls `(,env "exclude"))
-                    (LaTeX-comment-auto-cleanup)
-                    (format "%s" env)))
-
-    '("specialcomment"
-      (TeX-arg-eval let ((env (TeX-read-string
-                               (TeX-argument-prompt nil nil "Name"))))
-                    (LaTeX-add-comment-incl-excls `(,env "special"))
-                    (LaTeX-comment-auto-cleanup)
-                    (format "%s" env))
+    `("includecomment"
+      ,(lambda (optional)
+         (let ((env (TeX-read-string
+                     (TeX-argument-prompt optional nil "Name"))))
+           (LaTeX-add-comment-incl-excls `(,env "include"))
+           (LaTeX-comment-auto-cleanup)
+           (TeX-argument-insert env optional))))
+
+    `("excludecomment"
+      ,(lambda (optional)
+         (let ((env (TeX-read-string
+                     (TeX-argument-prompt optional nil "Name"))))
+           (LaTeX-add-comment-incl-excls `(,env "exclude"))
+           (LaTeX-comment-auto-cleanup)
+           (TeX-argument-insert env optional))))
+
+    `("specialcomment"
+      ,(lambda (optional)
+         (let ((env (TeX-read-string
+                     (TeX-argument-prompt optional nil "Name"))))
+           (LaTeX-add-comment-incl-excls `(,env "special"))
+           (LaTeX-comment-auto-cleanup)
+           (TeX-argument-insert env optional)))
       "Before commands" "After commands")
 
     '("processcomment" "Name" "Each-line commands"