master 2342a342 1/2: Simplify implementation of style/bigstrut.el

[Arash Esbati]

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

    Simplify implementation of style/bigstrut.el
    
    * style/bigstrut.el (TeX-arg-bigstrut): Delete the function and
    replace the functionality with `TeX-arg-completing-read' inside
    the hook.
---
 style/bigstrut.el | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/style/bigstrut.el b/style/bigstrut.el
index 874a1180..ae14b3b2 100644
--- a/style/bigstrut.el
+++ b/style/bigstrut.el
@@ -41,7 +41,9 @@
  "bigstrut"
  (lambda ()
    (TeX-add-symbols
-    '("bigstrut" [ TeX-arg-bigstrut ]))
+    '("bigstrut"
+      [TeX-arg-completing-read ("t" "b")
+                               "Strut to top (t) or bottom (b)"]))
 
    (LaTeX-add-lengths "bigstrutjot")
 
@@ -52,17 +54,6 @@
                               'function)))
  TeX-dialect)
 
-(defun TeX-arg-bigstrut (optional &optional prompt)
-  "Prompt for the optional argument in \\bigstrut.
-If OPTIONAL is non-nil, insert the argument in brackets.  PROMPT
-replaces the standard one."
-  (TeX-argument-insert
-   (completing-read
-    (TeX-argument-prompt
-     optional prompt "Strut to top (t) or bottom (b)")
-    '("t" "b"))
-   optional))
-
 (defvar LaTeX-bigstrut-package-options nil
   "Package options for the bigstrut package.")