summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-30 13:38:54 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-30 13:38:54 +0200
commit444d2673bb9b42e52b4e456bc1f57bb85425f388 (patch)
treebaee51c46c8b2caa1b0f865559c30f53933ec6ee
parent400cd95bbab64b404a5ab1f9eebd7c125395d57a (diff)
downloadorg-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.el1
-rw-r--r--testing/lisp/test-org-colview.el7
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)))))))