branch: externals/auctex
commit a648993763fbc2f0f096eee0752f9c9552440527
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 11a14192df..b9edd1c996 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"
