master ed2f62ef 2/4: * style/splitidx.el ("splitidx"): Replace `TeX-arg-eval'.

[Arash Esbati]

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

    * style/splitidx.el ("splitidx"): Replace `TeX-arg-eval'.
---
 style/splitidx.el | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/style/splitidx.el b/style/splitidx.el
index 37d36be6..2fa4af2c 100644
--- a/style/splitidx.el
+++ b/style/splitidx.el
@@ -1,6 +1,6 @@
 ;;; splitidx.el --- AUCTeX style for `splitidx.sty' (v1.2a)  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2016--2022 Free Software Foundation, Inc.
+;; Copyright (C) 2016--2023 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati <arash@gnu.org>
 ;; Maintainer: auctex-devel@gnu.org
@@ -150,12 +150,11 @@
     ;; 3.1 Setup
     '("newindex"
       [ "Index name" ]
-      (TeX-arg-eval
-       (lambda ()
-         (let ((shortcut (TeX-read-string
-                          (TeX-argument-prompt nil nil "Short cut"))))
-           (LaTeX-add-splitidx-newindices shortcut)
-           (format "%s" shortcut)))))
+      (lambda (optional)
+        (let ((shortcut (TeX-read-string
+                         (TeX-argument-prompt optional nil "Short cut"))))
+          (LaTeX-add-splitidx-newindices shortcut)
+          (TeX-argument-insert shortcut optional))))
 
     ;; 3.2 Marking up index entries
     '("sindex"
@@ -175,12 +174,11 @@
     ;; 3.6 Preventing premature expansion of index entries
     '("newprotectedindex"
       [ "Index name" ]
-      (TeX-arg-eval
-       (lambda ()
-         (let ((shortcut (TeX-read-string
-                          (TeX-argument-prompt nil nil "Short cut"))))
-           (LaTeX-add-splitidx-newindices shortcut)
-           (format "%s" shortcut)))))
+      (lambda (optional)
+        (let ((shortcut (TeX-read-string
+                         (TeX-argument-prompt optional nil "Short cut"))))
+          (LaTeX-add-splitidx-newindices shortcut)
+          (TeX-argument-insert shortcut optional))))
 
     ;; 3.7 Including the generated indices in your document
     '("printindex"