From 4d02ff89f5c4edf9ca4d4fb3841698ce8edc8aeb Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 3 Mar 2011 22:13:26 +0100 Subject: [PATCH] Minor fix --- lisp/org-table.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index f96cfb49c..7f96cca5b 100644 --- a/lisp/org-table.el +++ b/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)) -- 2.11.4.GIT