[AUCTeX-diffs] [elpa] externals/auctex 01da194 23/57: ; * style/titletoc.el ("titletoc"): Use `TeX-arg-length'.

[Tassilo Horn]

branch: externals/auctex
commit 01da1940bdef9f0ecbcccce3ec27aee40b9507bd
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>

    ; * style/titletoc.el ("titletoc"): Use `TeX-arg-length'.
---
 style/titletoc.el |   19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/style/titletoc.el b/style/titletoc.el
index 5cad560..0e70688 100644
--- a/style/titletoc.el
+++ b/style/titletoc.el
@@ -96,12 +96,7 @@ Removal is based on the return value of function
       (TeX-arg-eval completing-read
                     (TeX-argument-prompt optional nil "Sectioning command")
                     (LaTeX-titletoc-section-command-list))
-      [ TeX-arg-eval
-       (lambda ()
-         (let ((length (TeX-read-string
-                        (TeX-argument-prompt nil nil "Left margin"))))
-           (format "%s" length))) ]
-      3)
+      [ TeX-arg-length "Left margin" ] 3)
 
     ;;         itlecontents{<section>}[<left>]{<above-code>}
     ;;               {<numbered-entry-format>}{<numberless-entry-format>}
@@ -110,11 +105,7 @@ Removal is based on the return value of function
       (TeX-arg-eval completing-read
                     (TeX-argument-prompt optional nil "Sectioning command")
                     (LaTeX-titletoc-section-command-list))
-      [ TeX-arg-eval
-       (lambda ()
-         (let ((length (TeX-read-string
-                        (TeX-argument-prompt nil nil "Left margin"))))
-           (format "%s" length))) ]
+      [ TeX-arg-length "Left margin" ]
       (TeX-arg-conditional (y-or-n-p "With optional below code argument? ")
                           (4 [nil])
                         (4)))
@@ -126,11 +117,7 @@ Removal is based on the return value of function
       (TeX-arg-eval completing-read
                     (TeX-argument-prompt optional nil "Sectioning command")
                     (LaTeX-titletoc-section-command-list))
-      [ TeX-arg-eval
-       (lambda ()
-         (let ((length (TeX-read-string
-                        (TeX-argument-prompt nil nil "Left margin"))))
-           (format "%s" length))) ]
+      [ TeX-arg-length "Left margin" ]
       (TeX-arg-conditional (y-or-n-p "With optional separator argument? ")
                           (4 [nil])
                         (4)))