[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7f9e7ec8 1/3: * style/array.el ("array"): Replace `TeX-arg-eval'
From: |
Arash Esbati |
Subject: |
master 7f9e7ec8 1/3: * style/array.el ("array"): Replace `TeX-arg-eval' with a closure. |
Date: |
Mon, 21 Nov 2022 07:01:54 -0500 (EST) |
branch: master
commit 7f9e7ec8a1e6ca1a4bf0e0798dc753ef462e8402
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
* style/array.el ("array"): Replace `TeX-arg-eval' with a closure.
---
style/array.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/style/array.el b/style/array.el
index b564e055..001044ec 100644
--- a/style/array.el
+++ b/style/array.el
@@ -73,13 +73,13 @@ package.")
(TeX-auto-add-regexp LaTeX-array-newcolumntype-regexp)
(TeX-add-symbols
- '("newcolumntype"
- (TeX-arg-eval
- (lambda ()
- (let ((col (TeX-read-string "Column type: ")))
+ `("newcolumntype"
+ ,(lambda (optional)
+ (let ((col (TeX-read-string
+ (TeX-argument-prompt optional nil "Column type"))))
(LaTeX-add-array-newcolumntypes col)
(LaTeX-array-update-column-letters)
- (format "%s" col))))
+ (TeX-argument-insert col optional)))
[ "Number of arguments" ] t)
'("showcols" 0)
'("firsthline" 0)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7f9e7ec8 1/3: * style/array.el ("array"): Replace `TeX-arg-eval' with a closure.,
Arash Esbati <=