Merge branch 'maint'
This commit is contained in:
commit
496b2a9855
|
@ -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
|
||||
|
|
|
@ -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)))))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue