about summary refs log tree commit diff stats
path: root/lisp/+titlecase.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+titlecase.el')
-rw-r--r--lisp/+titlecase.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/+titlecase.el b/lisp/+titlecase.el index 9266807..6defda7 100644 --- a/lisp/+titlecase.el +++ b/lisp/+titlecase.el
@@ -22,11 +22,13 @@ With prefix ARG, toggle the value of
22 ;; See also `org-map-tree'. I'm not using that function because I want to 22 ;; See also `org-map-tree'. I'm not using that function because I want to
23 ;; skip the first headline. A better solution would be to patch 23 ;; skip the first headline. A better solution would be to patch
24 ;; `titlecase-line' to ignore org-mode metadata (TODO cookies, tags, etc). 24 ;; `titlecase-line' to ignore org-mode metadata (TODO cookies, tags, etc).
25 (let ((level (funcall outline-level))) 25 (let ((level (funcall outline-level))
26 (org-special-ctrl-a/e t))
26 (while (and (progn (outline-next-heading) 27 (while (and (progn (outline-next-heading)
27 (> (funcall outline-level) level)) 28 (> (funcall outline-level) level))
28 (not (eobp))) 29 (not (eobp)))
29 (titlecase-line))))) 30 (titlecase-region (org-beginning-of-line)
31 (org-end-of-line))))))
30 32
31(provide '+titlecase) 33(provide '+titlecase)
32;;; +titlecase.el ends here 34;;; +titlecase.el ends here