diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-11-26 13:14:06 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-11-26 13:14:06 +0100 |
commit | 0ae48c544bfe8df9cd39c1d423e3a2026189883e (patch) | |
tree | 49cbbecbbeb625202003f140c2eb73008c97458d | |
parent | f1583aab467fff999f25eff6a03e771d11139a93 (diff) | |
download | org-mode-0ae48c544bfe8df9cd39c1d423e3a2026189883e.tar.gz |
Fix bug in uncompilation of column format
* lisp/org-colview.el (org-columns-uncompile-format): Fix bug when retrieving
operator symbol.
-rw-r--r-- | lisp/org-colview.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 361560d..b0bee09 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1121,7 +1121,7 @@ display, or in the #+COLUMNS line of the current buffer." (defun org-columns-uncompile-format (cfmt) "Turn the compiled columns format back into a string representation." - (let ((rtn "") e s prop title op op-match width fmt printf fun calc) + (let ((rtn "") e s prop title op op-match width fmt printf fun calc ee map) (while (setq e (pop cfmt)) (setq prop (car e) title (nth 1 e) @@ -1131,8 +1131,10 @@ display, or in the #+COLUMNS line of the current buffer." printf (nth 5 e) fun (nth 6 e) calc (nth 7 e)) - (when (setq op-match (rassoc (list fmt fun calc) org-columns-compile-map)) - (setq op (car op-match))) + (setq map (copy-list org-columns-compile-map)) + (while (setq ee (pop map)) + (if (equal fmt (nth 1 ee)) + (setq op (car ee) map nil))) (if (and op printf) (setq op (concat op ";" printf))) (if (equal title prop) (setq title nil)) (setq s (concat "%" (if width (number-to-string width)) |