branch: externals/auctex
commit 2342a342f91f773bc6a4a95542b62798819584fd
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 874a11802a..ae14b3b261 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.")
