summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLeon Rische <leon.rische@me.com>2020-07-14 12:50:20 +0200
committerLeon Rische <leon.rische@me.com>2020-07-14 12:50:20 +0200
commitb7d401bfd00c3bc41798ba4b8bbf6d87eb69bde5 (patch)
treef9ae02512d7733aba94229d9f9a8efe7ea0a7ea1
parent634d837a8aa7138f55d7a697876a3bf7cec1b015 (diff)
Rename `point-at` functions
-rw-r--r--org-fc.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/org-fc.el b/org-fc.el
index 2810d1b..cfd240b 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -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))