summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2011-03-03 22:13:26 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2011-03-03 22:16:36 +0100
commit4d02ff89f5c4edf9ca4d4fb3841698ce8edc8aeb (patch)
tree8084cd6ab14c757be874acf6c0ae3023bc0b4e49
parentdf78e9ff4eb8e168e628fbaedf5398db0678c9a5 (diff)
downloadorg-mode-4d02ff89f5c4edf9ca4d4fb3841698ce8edc8aeb.tar.gz
Minor fix
-rw-r--r--lisp/org-table.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el
index f96cfb4..7f96cca 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))