branch: externals/logos
commit f451314d0783bde347e079343e8a0d115e80b64d
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Simplify logos--page-p and make it use the function defined in commit
4c1735c
---
logos.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/logos.el b/logos.el
index 19a13485da..d69d74c683 100644
--- a/logos.el
+++ b/logos.el
@@ -356,9 +356,10 @@ page."
"Return non-nil if there is a `page-delimiter' in the buffer.
This function does not use `widen': it only checks the accessible
portion of the buffer."
- (let ((delimiter (logos-page-delimiter)))
- (or (save-excursion (re-search-forward delimiter nil t))
- (save-excursion (re-search-backward delimiter nil t)))))
+ (logos-set-page-delimiter)
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward page-delimiter nil t)))
(defun logos-narrow-visible-window ()
"Narrow buffer to visible window area.
