auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 75bea89b 2/2: Simplify implementation of style/booktabs.el


From: Arash Esbati
Subject: master 75bea89b 2/2: Simplify implementation of style/booktabs.el
Date: Mon, 21 Nov 2022 07:24:47 -0500 (EST)

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

    Simplify implementation of style/booktabs.el
    
    * style/booktabs.el ("booktabs"): Delete the function
    `LaTeX-booktabs-arg-paren' and use `TeX-arg-string' instead.
---
 style/booktabs.el | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/style/booktabs.el b/style/booktabs.el
index 79571ea3..bf3c0f53 100644
--- a/style/booktabs.el
+++ b/style/booktabs.el
@@ -1,6 +1,6 @@
 ;;; booktabs.el -- AUCTeX style for booktabs.sty  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2003, 2004, 2013, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2003--2022 Free Software Foundation, Inc.
 
 ;; Author:   Ralf Angeli <angeli@iwi.uni-sb.de>
 ;; Maintainer: auctex-devel@gnu.org
@@ -37,14 +37,6 @@
                   "font-latex"
                   (keywords class))
 
-(defun LaTeX-booktabs-arg-paren (optional prompt)
-  "Prompt for a value and use parentheses when it is inserted.
-If OPTIONAL is non-nil the parameter is labeled as optional.
-PROMPT is the value of the prompt to be shown."
-  (let ((TeX-arg-opening-brace "(")
-        (TeX-arg-closing-brace ")"))
-    (TeX-parse-argument optional prompt)))
-
 (TeX-add-style-hook
  "booktabs"
  (lambda ()
@@ -61,7 +53,8 @@ PROMPT is the value of the prompt to be shown."
     '("bottomrule" [ "Thickness" ])
     ;; The `ignore' resets `TeX-last-optional-rejected' to nil so that the trim
     ;; argument is prompted also when the thickness is skipped.
-    '("cmidrule" [ "Thickness" ] (ignore) [ LaTeX-booktabs-arg-paren "Trim" ]
+    '("cmidrule" [ "Thickness" ] (ignore)
+      [TeX-arg-string "Trim" nil nil nil "(" ")"]
       "Column(s)")
     '("addlinespace" [ "Height" ])
     '("morecmidrules")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]