branch: master
commit ed2f62ef800bfbadd2f7a3cc86f669dd2941057d
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
* 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 <[email protected]>
;; Maintainer: [email protected]
@@ -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"
