[elpa] externals/latex-table-wizard 74d169f8df 20/70: Two bug fixes

[ELPA Syncer]

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

    Two bug fixes
---
 latex-table-wizard.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/latex-table-wizard.el b/latex-table-wizard.el
index 38122e528f..3407f6b359 100644
--- a/latex-table-wizard.el
+++ b/latex-table-wizard.el
@@ -424,11 +424,13 @@ If PROP-VAL2 is nil, it is assumed that TABLE is a list 
of cells
 that only differ for the property in the car of PROP-VAL1 (in
 other words, that TABLE is either a column or a row)"
   (let ((check (if prop-val2
-                   #'(= (cdr prop-val2) (plist-get x (car prop-val2)))
-                 t)))
+                   (lambda (x) (= (cdr prop-val2)
+                                  (plist-get x (car prop-val2))))
+                 (lambda (x) t))))
     (catch 'cell
       (dolist (x table)
-        (when (and (= (cdr prop-val1) (plist-get x (car prop-val1))) check)
+        (when (and (= (cdr prop-val1) (plist-get x (car prop-val1)))
+                   (funcall check x))
           (throw 'cell x)))
       nil)))
 
@@ -728,9 +730,9 @@ that this selection is neither a column or a row, and nil is
 returned."
   (cond ((= 1 (length sel))
          'cell)
-        ((apply #'= (mapcar (lambda (x) (plist-get x :column))))
+        ((apply #'= (mapcar (lambda (x) (plist-get x :column)) sel))
          'column)
-        ((apply #'= (mapcar (lambda (x) (plist-get x :row))))
+        ((apply #'= (mapcar (lambda (x) (plist-get x :row)) sel))
          'row)
         (t nil)))