diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-03-03 22:13:26 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-03-03 22:16:36 +0100 |
commit | 4d02ff89f5c4edf9ca4d4fb3841698ce8edc8aeb (patch) | |
tree | 8084cd6ab14c757be874acf6c0ae3023bc0b4e49 | |
parent | df78e9ff4eb8e168e628fbaedf5398db0678c9a5 (diff) | |
download | org-mode-4d02ff89f5c4edf9ca4d4fb3841698ce8edc8aeb.tar.gz |
Minor fix
-rw-r--r-- | lisp/org-table.el | 7 |
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)) |