Browse Source

Minor fix

Carsten Dominik 9 years ago
parent
commit
4d02ff89f5
1 changed files with 3 additions and 4 deletions
  1. 3 4
      lisp/org-table.el

+ 3 - 4
lisp/org-table.el

@@ -2665,10 +2665,9 @@ known that the table will be realigned a little later anyway."
 		    eqlist))
       ;; Split the equation list
       (while (setq eq (pop eqlist))
-	(cond
-	 ((<= (string-to-char (car eq)) ?9)
-	  (push eq eqlnum))
-	 (t (push eq eqlname))))
+	(if (<= (string-to-char (car eq)) ?9)
+	    (push eq eqlnum)
+	  (push eq eqlname)))
       (setq eqlnum (nreverse eqlnum) eqlname (nreverse eqlname))
       ;; Expand ranges in lhs of formulas
       (setq eqlname (org-table-expand-lhs-ranges eqlname))