branch: master commit 3a1a820bdf4d5f109d2e57c0e515b5b647f2cd9b Author: Arash Esbati <ar...@gnu.org> Commit: Arash Esbati <ar...@gnu.org>
; Rearrange code after last commit. --- latex.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/latex.el b/latex.el index a6ab5220..6b55c6a2 100644 --- a/latex.el +++ b/latex.el @@ -3245,6 +3245,16 @@ returning an alist. Use PROMPT as the prompt string." (t key-val-alist)))) +(defun TeX-arg-key-val (optional key-val-alist &optional prompt) + "Prompt for keys and values in KEY-VAL-ALIST. +Insert the given value as a TeX macro argument. If OPTIONAL is +non-nil, insert it as an optional argument. KEY-VAL-ALIST is an +alist. The car of each element should be a string representing a +key and the optional cdr should be a list with strings to be used +as values for the key. Use PROMPT as the prompt string." + (let ((options (TeX-read-key-val optional key-val-alist prompt))) + (TeX-argument-insert options optional))) + (defun TeX-read-completing-read (optional collection &optional prompt complete predicate require-match initial-input hist def @@ -3364,16 +3374,6 @@ INHERIT-INPUT-METHOD are passed to ",") optional prefix)) -(defun TeX-arg-key-val (optional key-val-alist &optional prompt) - "Prompt for keys and values in KEY-VAL-ALIST. -Insert the given value as a TeX macro argument. If OPTIONAL is -non-nil, insert it as an optional argument. KEY-VAL-ALIST is an -alist. The car of each element should be a string representing a -key and the optional cdr should be a list with strings to be used -as values for the key. Use PROMPT as the prompt string." - (let ((options (TeX-read-key-val optional key-val-alist prompt))) - (TeX-argument-insert options optional))) - (defun TeX-read-hook () "Read a LaTeX hook and return it as a string." (let* ((hook (completing-read _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs