diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-30 13:38:54 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-30 13:38:54 +0200 |
commit | 444d2673bb9b42e52b4e456bc1f57bb85425f388 (patch) | |
tree | baee51c46c8b2caa1b0f865559c30f53933ec6ee | |
parent | 400cd95bbab64b404a5ab1f9eebd7c125395d57a (diff) | |
download | org-mode-444d2673bb9b42e52b4e456bc1f57bb85425f388.tar.gz |
org-colview: Fix `org-columns' with a prefix argument
* lisp/org-colview.el (org-columns): Fix `org-columns' with a prefix
argument.
* testing/lisp/test-org-colview.el (test-org-colview/columns-scope):
Update test.
Reported-by: Hendrik Tews <hendrik@askra.de>
<http://permalink.gmane.org/gmane.emacs.orgmode/113721>
-rw-r--r-- | lisp/org-colview.el | 1 | ||||
-rw-r--r-- | testing/lisp/test-org-colview.el | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 850ac00..2f25f56 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -781,6 +781,7 @@ view for the whole buffer unconditionally. When COLUMNS-FMT-STRING is non-nil, use it as the column format." (interactive "P") (org-columns-remove-overlays) + (when global (goto-char (point-min))) (move-marker org-columns-begin-marker (point)) (org-columns-goto-top-level) ;; Initialize `org-columns-current-fmt' and diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el index 2951203..7bf385a 100644 --- a/testing/lisp/test-org-colview.el +++ b/testing/lisp/test-org-colview.el @@ -104,9 +104,10 @@ (lambda () (get-char-property (point) 'org-columns-value)))))) (should (equal - '("H1" "H2" "H3" "H4") - (org-test-with-temp-text "Top\n* H1\n** <point>H2\n*** H3\n* H4" - (let ((org-columns-default-format "%ITEM")) (org-columns t)) + '("1" "1") + (org-test-with-temp-text + "Top\n* H1\n** <point>H2\n:PROPERTIES:\n:A: 1\n:END:" + (let ((org-columns-default-format "%A{+}")) (org-columns t)) (org-map-entries (lambda () (get-char-property (point) 'org-columns-value))))))) |