[elpa] externals/auctex 7f9e7ec8a1 05/76: * style/array.el ("array"): Replace `TeX-arg-eval' with a closure.

[Tassilo Horn]

branch: externals/auctex
commit 7f9e7ec8a1e6ca1a4bf0e0798dc753ef462e8402
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 b564e055e3..001044ecbc 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)