1 files changed, 4 insertions, 2 deletions

@@ -22,11 +22,13 @@ With prefix ARG, toggle the value of
     ;; See also `org-map-tree'.  I'm not using that function because I want to
     ;; skip the first headline.  A better solution would be to patch
     ;; `titlecase-line' to ignore org-mode metadata (TODO cookies, tags, etc).
-    (let ((level (funcall outline-level)))
+    (let ((level (funcall outline-level))
+          (org-special-ctrl-a/e t))
       (while (and (progn (outline-next-heading)
                          (> (funcall outline-level) level))
                   (not (eobp)))
-        (titlecase-line)))))
+        (titlecase-region (org-beginning-of-line)
+                          (org-end-of-line))))))
 
 (provide '+titlecase)
 ;;; +titlecase.el ends here