[elpa] externals/latex-table-wizard 809dff99ef 11/70: Make syntax-quoted forms everywhere

[ELPA Syncer]

branch: externals/latex-table-wizard
commit 809dff99efb7e1374c29173d4238a7659df9155b
Author: Enrico Flor <nericoflor@gmail.com>
Commit: Enrico Flor <nericoflor@gmail.com>

    Make syntax-quoted forms everywhere
---
 latex-table-wizard.el | 52 ++++++++++++++++++++++++++-------------------------
 1 file changed, 27 insertions(+), 25 deletions(-)

diff --git a/latex-table-wizard.el b/latex-table-wizard.el
index 185fcdd1a2..ca4c9978d4 100644
--- a/latex-table-wizard.el
+++ b/latex-table-wizard.el
@@ -236,8 +236,8 @@ Stop the skipping at LIMIT (a buffer position or a marker)."
             (forward-line)
             (setq new-start-of-line (point)))
           (when (eq (point) temp-pos)
-            ;; we haven't moved since trying to skip whitespace, we are
-            ;; done here.
+            ;; we haven't moved since trying to skip whitespace, we
+            ;; are done here.
             (setq done t)))))
     (when new-start-of-line (goto-char new-start-of-line))))
 
@@ -358,7 +358,7 @@ Each value is an integer, S and E are markers."
                    :start ,(nth 0 data)
                    :end ,(if (nth 1 data) (nth 1 data) env-end))
                 cells-list)
-          (if (nth 2 data)              ; this was the last cell in the row
+          (if (nth 2 data)         ; this was the last cell in the row
               (setq row (1+ row)
                     col 0)
             (setq col (1+ col)))
@@ -386,8 +386,8 @@ Each value is an integer, S and E are markers."
 
 Precedence depends on the value of DIR (either \\='next\\=',
 \\='previous\\=', \\='forward\\=' or \\='backward\\=')."
-  (let ((rows (list (plist-get x :row) (plist-get y :row)))
-        (cols (list (plist-get x :column) (plist-get y :column))))
+  (let ((rows `(,(plist-get x :row) ,(plist-get y :row)))
+        (cols `(,(plist-get x :column) ,(plist-get y :column))))
     (if (or (eq dir 'next) (eq dir 'previous))
         (if (apply #'eq cols)
             (apply #'< rows)
@@ -451,9 +451,9 @@ beginning of the available portion of the buffer."
         (catch 'found
           (while (re-search-forward regexp nil t)
             (when (<= (match-beginning group) position (match-end group))
-              (throw 'found (list (match-string-no-properties group)
-                                  (match-beginning group)
-                                  (match-end group))))
+              (throw 'found `(,(match-string-no-properties group)
+                              ,(match-beginning group)
+                              ,(match-end group))))
             nil))))))
 
 
@@ -505,7 +505,6 @@ current DIR."
            (nth (- cell-num (abs new-index)) sorted))
           (t nil))))
 
-
 (defsubst latex-table-wizard--remove-overlays (&optional table beg end)
   "Remove table internal overlays generated by latex-table-wizard.
 
@@ -626,7 +625,7 @@ If SAME-LINE is non-nil, never leave current column or row."
                     dir same-line count cells curr))))
     (latex-table-wizard--remove-overlays cells)
     (goto-char (plist-get target :start))
-    (latex-table-wizard--hl-cells (list target))
+    (latex-table-wizard--hl-cells `(,target))
     (latex-table-wizard--hl-cells latex-table-wizard--selection)))
 
 
@@ -659,10 +658,10 @@ buffer substring."
 
 (defsubst latex-table-wizard--swap-cells (x y)
   "Evaluate `latex-table-wizard--swap-substrings' on cells X and Y."
-  (latex-table-wizard--swap-substrings (list (plist-get x :start)
-                                             (plist-get x :end))
-                                       (list (plist-get y :start)
-                                             (plist-get y :end))))
+  (latex-table-wizard--swap-substrings `(,(plist-get x :start)
+                                         ,(plist-get x :end))
+                                       `(,(plist-get y :start)
+                                         ,(plist-get y :end))))
 
 (defsubst latex-table-wizard--get-this-value-prop (line prop value)
   "Return the cell from list LINE that has VALUE for property PROP."
@@ -738,7 +737,7 @@ TYPE is either \\='cell\\=', \\='column\\=' or \\='row\\='."
       (latex-table-wizard--remove-overlays new-table)
       (if (eq type 'cell)
           (latex-table-wizard--hl-cells
-           (list (latex-table-wizard--get-thing type new-table)))
+           `(,(latex-table-wizard--get-thing type new-table)))
         (latex-table-wizard--hl-cells
          (latex-table-wizard--get-thing type new-table))))))
 
@@ -764,7 +763,7 @@ THING is either \\='cell\\=', \\='column\\=' or 
\\='row\\='."
                             (format "Column %s"
                                     (plist-get (car sel) :column))))))
     (if (eq thing 'cell)
-        (latex-table-wizard--hl-cells (list sel))
+        (latex-table-wizard--hl-cells `(,sel))
       (latex-table-wizard--hl-cells sel))))
 
 
@@ -779,8 +778,8 @@ THING is either \\='cell\\=', \\='column\\=' or 
\\='row\\='."
     (let* ((table (latex-table-wizard--parse-table))
            (extrs (latex-table-wizard--get-env-ends table)))
       (whitespace-cleanup-region (car extrs) (cdr extrs))
-      (dolist (x (flatten-list (mapcar (lambda (x) (list (plist-get x :start)
-                                                         (plist-get x :end)))
+      (dolist (x (flatten-list (mapcar (lambda (x) `(,(plist-get x :start)
+                                                     ,(plist-get x :end)))
                                        table)))
         (goto-char x)
         (just-one-space)))))
@@ -789,7 +788,8 @@ THING is either \\='cell\\=', \\='column\\=' or 
\\='row\\='."
 (defun latex-table-wizard-align ()
   "Align and format table at point.
 
-Have every row start on its own line and vertically align column delimiters."
+Have every row start on its own line and vertically align column
+delimiters."
   (interactive)
   (let ((max-col (thread-last (latex-table-wizard--parse-table)
                               (mapcar (lambda (x) (plist-get x :column)))
@@ -1185,7 +1185,9 @@ at point.  If it is none of those object, return nil."
       (overlay-put x 'face 'latex-table-wizard-background-face))))
 
 (defun latex-table-wizard--cleanup ()
-  "Remove overlays created by \\='latex-table-wizard\\=' in the buffer."
+  "Remove all overlays created by \\='latex-table-wizard\\='.
+
+Only remove them in current buffer."
   (setq latex-table-wizard--selection nil)
   (when-let ((lims latex-table-wizard--parsed-table-delims))
     (remove-overlays (point-min) (point-max) 'tabl-inside-ol t)
@@ -1196,11 +1198,11 @@ at point.  If it is none of those object, return nil."
   (latex-table-wizard--set-current-values)
   (when-let ((macro (latex-table-wizard--point-on-regexp-p
                      (latex-table-wizard--disjoin
-                      (list (regexp-opt
-                             (cl-union
-                              latex-table-wizard--current-row-delims
-                              latex-table-wizard--current-col-delims))
-                            latex-table-wizard--macro-re))
+                      `(,(regexp-opt
+                          (cl-union
+                           latex-table-wizard--current-row-delims
+                           latex-table-wizard--current-col-delims))
+                        ,latex-table-wizard--macro-re))
                      0 (line-beginning-position))))
     (thread-last macro
                  (nth 1)