diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-12 23:00:55 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-12 23:00:55 +0200 |
commit | 74e9a23c0127139fbf6b25ae29515ae5376aa3bc (patch) | |
tree | 336a469a2e4fb7783d1d33c832ad09da5d5e4bce | |
parent | e1d5a31786f9c59c4aff4ad23b8b0bc56f149f9c (diff) | |
download | org-mode-74e9a23c0127139fbf6b25ae29515ae5376aa3bc.tar.gz |
Fix a bug in `org-columns-get-format-and-top-level' and a compiler warning.
* org-colview.el (org-columns-get-format-and-top-level): Fix bug.
(org-columns-get-format): Fix compiler warning.
-rw-r--r-- | lisp/org-colview.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 8d9e830..8da2d1e 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -666,13 +666,13 @@ around it." (org-open-link-from-string value arg))) (defun org-columns-get-format-and-top-level () - (let (fmt (org-columns-get-format)) + (let ((fmt (org-columns-get-format))) (org-columns-goto-top-level) fmt)) (defun org-columns-get-format (&optional fmt-string) (interactive) - (let (fmt-as-property) + (let (fmt-as-property fmt) (when (condition-case nil (org-back-to-heading) (error nil)) (setq fmt-as-property (org-entry-get nil "COLUMNS" t))) (setq fmt (or fmt-string fmt-as-property org-columns-default-format)) |