branch: externals/logos
commit 4c1735c4df7b3d26af7e804cee4970a3dd6efd51
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Rename function that sets+gets page-delimiter and make stylistic change to
it
---
logos.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/logos.el b/logos.el
index ff6866efd4..19a13485da 100644
--- a/logos.el
+++ b/logos.el
@@ -256,11 +256,10 @@ and disabled, then use the `logos-focus-mode-hook'
instead."
'logos-page-delimiter
"1.1.0")
-(defun logos-page-delimiter ()
- "Determine the `page-delimiter'."
- (if logos-outlines-are-pages
- (setq-local page-delimiter (logos--outline-regexp))
- (setq-local page-delimiter logos-page-delimiter)))
+(defun logos-set-page-delimiter ()
+ "Set `page-delimiter' buffer-locally depending on `logos-outlines-are-pages'.
+Return `page-delimiter'."
+ (setq-local page-delimiter (if logos-outlines-are-pages
(logos--outline-regexp) logos-page-delimiter)))
(defun logos--narrow-to-page (count &optional back)
"Narrow to COUNTth page with optional BACK motion."
@@ -302,7 +301,7 @@ See `logos-forward-page-dwim' or
`logos-backward-page-dwim'.")
With optional numeric COUNT move by that many pages. With
optional BACK perform the motion backwards."
(let ((cmd (if back #'backward-page #'forward-page)))
- (logos-page-delimiter)
+ (logos-set-page-delimiter)
(if (buffer-narrowed-p)
(logos--narrow-to-page count back)
(funcall cmd count)
