[elpa] externals/logos 20fb2393e9: Fix page motion when point is at max when narrowed

[ELPA Syncer]

branch: externals/logos
commit 20fb2393e9b42ee08894574e58f477d82df79f62
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Fix page motion when point is at max when narrowed
    
    Before, logos would skip a page if the following were met:
    
    * The buffer was narrowed.
    * Point was at (point-max).
    * There were at least two pages after the current one.
    
    By moving back a character we ensure that point does not overlap with
    the page delimiter.
---
 logos.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/logos.el b/logos.el
index 4c4e89fa32..3038b0a4d7 100644
--- a/logos.el
+++ b/logos.el
@@ -182,6 +182,8 @@ 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)
+    (when (eq (point) (point-max))
+      (forward-char -1))
     (if (buffer-narrowed-p)
         (logos--narrow-to-page count back)
       (funcall cmd count)