[AUCTeX-diffs] GNU AUCTeX branch, master, updated. dff1592319a6fb9d9db2038af3704d8844840200

[Arash Esbati]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  dff1592319a6fb9d9db2038af3704d8844840200 (commit)
      from  4e4c48556b3b1ad2f254885dfcd2fec38eef8122 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit dff1592319a6fb9d9db2038af3704d8844840200
Author: Arash Esbati <arash@gnu.org>
Date:   Tue Mar 1 13:29:36 2022 +0100

    Adjust argument list of `TeX-arg-length'
    
    * latex.el (TeX-arg-length): Put DEFAULT before INITIAL-INPUT in
    the argument list.  Adjust all occurrences in the library
    accordingly.
    
    * style/ltxtable.el ("ltxtable"): Track the new signature of
    `TeX-arg-length'.

diff --git a/latex.el b/latex.el
index a9a8f386..570e2d2e 100644
--- a/latex.el
+++ b/latex.el
@@ -2222,15 +2222,15 @@ list of defined saveboxes."
         (LaTeX-add-saveboxes savebox))
     (TeX-argument-insert savebox optional TeX-esc)))
 
-(defun TeX-arg-length (optional &optional prompt initial-input
-                                definition default)
+(defun TeX-arg-length (optional &optional prompt default initial-input
+                                definition)
   "Prompt for a LaTeX length.
 If OPTIONAL is non-nil, insert the resulting value as an optional
 argument, otherwise as a mandatory one.  Use PROMPT as the prompt
-string.  If INITIAL-INPUT is non-nil, insert it in the minibuffer
-initially, with point positioned at the end.  If DEFINITION is
-non-nil, the length is added to the list of defined length.
-DEFAULT is passed to `completing-read', which see."
+string.  DEFAULT is passed to `completing-read', which see.  If
+INITIAL-INPUT is non-nil, insert it in the minibuffer initially,
+with point positioned at the end.  If DEFINITION is non-nil, the
+length is added to the list of defined length."
   (let ((length
          (completing-read
           (TeX-argument-prompt optional
@@ -2366,7 +2366,7 @@ string."
 If OPTIONAL is non-nil, insert the resulting value as an optional
 argument, otherwise as a mandatory one.  Use PROMPT as the prompt
 string."
-  (TeX-arg-length optional prompt "\\" t))
+  (TeX-arg-length optional prompt nil "\\" t))
 
 (defcustom LaTeX-style-list '(("amsart")
                               ("amsbook")
@@ -7257,13 +7257,13 @@ function would return non-nil and `(match-string 1)' 
would return
    '("footnotemark"
      (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil))
    '("newlength" (TeX-arg-define-length "Length macro"))
-   '("setlength" (TeX-arg-length "Length macro" "\\")
+   '("setlength" (TeX-arg-length "Length macro" nil "\\")
      (TeX-arg-length "Length value"))
-   '("addtolength" (TeX-arg-length "Length macro" "\\")
+   '("addtolength" (TeX-arg-length "Length macro" nil "\\")
      (TeX-arg-length "Length to add"))
-   '("settowidth" (TeX-arg-length "Length macro" "\\") "Text")
-   '("settoheight" (TeX-arg-length "Length macro" "\\") "Text")
-   '("settodepth" (TeX-arg-length "Length macro" "\\") "Text")
+   '("settowidth" (TeX-arg-length "Length macro" nil "\\") "Text")
+   '("settoheight" (TeX-arg-length "Length macro" nil "\\") "Text")
+   '("settodepth" (TeX-arg-length "Length macro" nil "\\") "Text")
    '("\\" [ "Space" ])
    '("\\*" [ "Space" ])
    '("hyphenation" t)
@@ -7377,8 +7377,8 @@ function would return non-nil and `(match-string 1)' 
would return
      '("filecontents*" LaTeX-env-contents))
 
     (TeX-add-symbols
-     '("enlargethispage"  (TeX-arg-length nil nil nil "1.0\\baselineskip"))
-     '("enlargethispage*" (TeX-arg-length nil nil nil "1.0\\baselineskip"))
+     '("enlargethispage"  (TeX-arg-length nil "1.0\\baselineskip"))
+     '("enlargethispage*" (TeX-arg-length nil "1.0\\baselineskip"))
      '("tabularnewline" [ TeX-arg-length ])
      '("suppressfloats" [ TeX-arg-tb "Suppress floats position" ])
      '("ensuremath" "Math commands")
diff --git a/style/ltxtable.el b/style/ltxtable.el
index b80eb070..51b9b025 100644
--- a/style/ltxtable.el
+++ b/style/ltxtable.el
@@ -59,7 +59,7 @@ The regexp for the 2. argument is the same as for \"input\" 
and
 
    (TeX-add-symbols
     '("LTXtable"
-      (TeX-arg-length "Width" nil nil "1.0\\linewidth")
+      (TeX-arg-length "Width" "1.0\\linewidth")
       (TeX-arg-eval
        (lambda ()
          (let ((longtable (file-relative-name

-----------------------------------------------------------------------

Summary of changes:
 latex.el          | 28 ++++++++++++++--------------
 style/ltxtable.el |  2 +-
 2 files changed, 15 insertions(+), 15 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX