branch: externals/auctex
commit 517d5a6e4ed5d21cba17b9cc3af3b66e0441843d
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>

    ; * style/floatrow.el ("floatrow"): Fix last change.
---
 style/floatrow.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/style/floatrow.el b/style/floatrow.el
index 1b430f0e0d..00c2a4be6f 100644
--- a/style/floatrow.el
+++ b/style/floatrow.el
@@ -546,7 +546,8 @@ only the parsed items."
       (TeX-arg-completing-read LaTeX-floatrow-supported-float-types
                                "Float type")
       [TeX-arg-completing-read ,(lambda ()
-                                  (mapcar (lambda (x)(concat TeX-esc (car x)))
+                                  (mapcar (lambda (x)
+                                            (concat TeX-esc (car x)))
                                           (LaTeX-length-list)))
                                "Width"]
       [TeX-arg-completing-read ,(lambda ()
@@ -567,7 +568,8 @@ only the parsed items."
            (TeX-add-symbols
             `(,cmd [TeX-arg-completing-read
                     ,(lambda ()
-                       (mapcar (lambda (x)(concat TeX-esc (qcar x)))
+                       (mapcar (lambda (x)
+                                 (concat TeX-esc (car x)))
                                (LaTeX-length-list)))
                     "Width"]
                    [TeX-arg-completing-read
@@ -592,7 +594,8 @@ only the parsed items."
     ;; 2.2.2 Predefined Float Box Commands
     `("ffigbox"
       [TeX-arg-completing-read ,(lambda ()
-                                  (mapcar (lambda (x)(concat TeX-esc (car x)))
+                                  (mapcar (lambda (x)
+                                            (concat TeX-esc (car x)))
                                           (LaTeX-length-list)))
                                "Width"]
       [TeX-arg-completing-read ,(lambda ()
@@ -606,7 +609,8 @@ only the parsed items."
 
     `("ttabbox"
       [TeX-arg-completing-read ,(lambda ()
-                                  (mapcar (lambda (x)(concat TeX-esc (car x)))
+                                  (mapcar (lambda (x)
+                                            (concat TeX-esc (car x)))
                                           (LaTeX-length-list)))
                                "Width"]
       [TeX-arg-completing-read ,(lambda ()
@@ -620,7 +624,8 @@ only the parsed items."
 
     `("fcapside"
       [TeX-arg-completing-read ,(lambda ()
-                                  (mapcar (lambda (x)(concat TeX-esc (car x)))
+                                  (mapcar (lambda (x)
+                                            (concat TeX-esc (car x)))
                                           (LaTeX-length-list)))
                                "Width"]
       [TeX-arg-completing-read ,(lambda ()


Reply via email to