diff options
author | Case Duckworth | 2023-01-03 23:03:03 -0600 |
---|---|---|
committer | Case Duckworth | 2023-01-03 23:03:03 -0600 |
commit | 59a1f58695d09ab29ddf992b2c0711c94a4039ea (patch) | |
tree | 1de8114d3b60d11b9a3b92422d178f17e1841ea0 /lisp/+titlecase.el | |
parent | bleh (diff) | |
download | emacs-59a1f58695d09ab29ddf992b2c0711c94a4039ea.tar.gz emacs-59a1f58695d09ab29ddf992b2c0711c94a4039ea.zip |
Switch to use-package
Diffstat (limited to 'lisp/+titlecase.el')
-rw-r--r-- | lisp/+titlecase.el | 6 |
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 |