diff options
author | Leon Rische <leon.rische@me.com> | 2020-07-14 12:50:20 +0200 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2020-07-14 12:50:20 +0200 |
commit | b7d401bfd00c3bc41798ba4b8bbf6d87eb69bde5 (patch) | |
tree | f9ae02512d7733aba94229d9f9a8efe7ea0a7ea1 | |
parent | 634d837a8aa7138f55d7a697876a3bf7cec1b015 (diff) |
Rename `point-at` functions
-rw-r--r-- | org-fc.el | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -963,7 +963,7 @@ Processes all holes in the card text." ;;; Working with Overlays / Hiding Text ;;;; Finding Locations in the Buffer -(defun org-fc-overlay--point-at-end-of-previous () +(defun org-fc-point-at-end-of-previous () "Value of point at the end of the previous line. Returns nil if there is no previous line." (save-excursion @@ -973,7 +973,7 @@ Returns nil if there is no previous line." (progn (backward-char) (point))))) -(defun org-fc-overlay--point-after-title () +(defun org-fc-point-after-title () "Value of point at the first line after the title keyword. Returns nil if there is no title keyword." (org-with-point-at (point-min) @@ -1121,7 +1121,7 @@ If TEXT is non-nil, the content is replaced with TEXT." Only parent headings of the current heading remain visible." (interactive) (org-fc-with-point-at-entry - (let* ((end (org-fc-overlay--point-at-end-of-previous)) + (let* ((end (org-fc-point-at-end-of-previous)) (tags (org-get-tags nil 'local)) (notitle (member "notitle" tags)) (noheading (member "noheading" tags)) @@ -1131,12 +1131,12 @@ Only parent headings of the current heading remain visible." (org-fc-hide-heading)) (while (org-up-heading-safe) (let ((start (point-at-eol)) - (end_ (org-fc-overlay--point-at-end-of-previous))) + (end_ (org-fc-point-at-end-of-previous))) (if (< start end) (org-fc-hide-region end start)) (setq end end_))) - (let ((at (org-fc-overlay--point-after-title)) - (eop (org-fc-overlay--point-at-end-of-previous))) + (let ((at (org-fc-point-after-title)) + (eop (org-fc-point-at-end-of-previous))) ;; Don't hide anything if the heading is at the beginning of the buffer (if eop (if (and at (not notitle)) |