emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/dslide 7028c07ace 140/230: prefer eobp and bobp to point &


From: ELPA Syncer
Subject: [nongnu] elpa/dslide 7028c07ace 140/230: prefer eobp and bobp to point & point-min/max comparison
Date: Sun, 7 Jul 2024 19:00:27 -0400 (EDT)

branch: elpa/dslide
commit 7028c07acee0d1c0bfcbd86830e33d75b550dd20
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    prefer eobp and bobp to point & point-min/max comparison
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 dslide.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dslide.el b/dslide.el
index 529c86157d..de4b10cb38 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1941,7 +1941,7 @@ PREDICATE should accept an ELEMENT argument and return 
non-nil."
       (goto-char (org-element-property :begin heading))
       (let* ((predicate (or predicate #'identity))
              found)
-        (while (and (> (point) (point-min))
+        (while (and (not (bobp))
                     (not found)
                     (org-get-previous-sibling))
           (let ((element (org-element-at-point)))
@@ -1958,7 +1958,7 @@ PREDICATE should accept an ELEMENT argument and return 
non-nil."
       (goto-char (org-element-property :begin heading))
       (let* ((predicate (or predicate #'identity))
              found)
-        (while (and (< (point) (point-max))
+        (while (and (not (eobp))
                     (not found)
                     (org-get-next-sibling))
           (let ((element (org-element-at-point)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]