[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c19d4003: Replace `TeX-arg-eval' in style/newfloat.el
From: |
Arash Esbati |
Subject: |
master c19d4003: Replace `TeX-arg-eval' in style/newfloat.el |
Date: |
Wed, 15 Mar 2023 07:15:41 -0400 (EDT) |
branch: master
commit c19d4003e0f4d5abba6aab67c7c952f3d1622d91
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
Replace `TeX-arg-eval' in style/newfloat.el
* style/newfloat.el ("newfloat"): Replace `TeX-arg-eval' with
closure.
Fix the first argument of `TeX-arg-completing-read'
---
style/newfloat.el | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/style/newfloat.el b/style/newfloat.el
index b1947bb3..50b0a4e0 100644
--- a/style/newfloat.el
+++ b/style/newfloat.el
@@ -1,6 +1,6 @@
;;; newfloat.el --- AUCTeX style for `newfloat.sty' (v1.1-109) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2015--2022 Free Software Foundation, Inc.
+;; Copyright (C) 2015--2023 Free Software Foundation, Inc.
;; Author: Arash Esbati <arash@gnu.org>
;; Maintainer: auctex-devel@gnu.org
@@ -156,27 +156,28 @@ If `caption.el' is loaded, add the new floating
environment to
;; Commands:
(TeX-add-symbols
- '("DeclareFloatingEnvironment"
+ `("DeclareFloatingEnvironment"
[TeX-arg-key-val (LaTeX-newfloat-key-val-options)]
- (TeX-arg-eval
- (lambda ()
+ ,(lambda (optional)
(let ((newfloat (TeX-read-string
- (TeX-argument-prompt nil nil "Floating
environment"))))
+ (TeX-argument-prompt optional nil "Floating
environment"))))
(LaTeX-add-newfloat-DeclareFloatingEnvironments newfloat)
- (format "%s" newfloat)))))
+ (TeX-argument-insert newfloat optional))))
- '("SetupFloatingEnvironment"
+ `("SetupFloatingEnvironment"
(TeX-arg-completing-read
- (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))
+ ,(lambda ()
+ (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list)))
"Floating environment")
(TeX-arg-key-val (LaTeX-newfloat-key-val-options)))
'("ForEachFloatingEnvironment" t)
'("ForEachFloatingEnvironment*" t)
- '("PrepareListOf"
+ `("PrepareListOf"
(TeX-arg-completing-read
- (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))
+ ,(lambda ()
+ (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list)))
"Floating environment")
t)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c19d4003: Replace `TeX-arg-eval' in style/newfloat.el,
Arash Esbati <=