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

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

[elpa] externals/logos 3a6370311c 1/3: Fix (cond ...) in `logos-narrow-d


From: ELPA Syncer
Subject: [elpa] externals/logos 3a6370311c 1/3: Fix (cond ...) in `logos-narrow-dwim'
Date: Wed, 21 Jun 2023 15:59:01 -0400 (EDT)

branch: externals/logos
commit 3a6370311c325a722918aa09dadd3842a34ada29
Author: Edgar Vincent <e-v@posteo.net>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Fix (cond ...) in `logos-narrow-dwim'
---
 logos.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/logos.el b/logos.el
index b27a5c0759..df1f1c59e0 100644
--- a/logos.el
+++ b/logos.el
@@ -393,16 +393,17 @@ If narrowing is in effect, widen the view."
     (push-mark (point) t nil))
   (cond
    ((and (use-region-p)
-         (null (buffer-narrowed-p)))
+         (not (buffer-narrowed-p)))
     (narrow-to-region (region-beginning) (region-end)))
-   ((logos--page-p)
+   ((and (logos--page-p)
+         (not (buffer-narrowed-p)))
     ;; Use our own narrow to page function because when
     ;; logos-outlines-are-pages is t, the page delimiter
     ;; is included in the region narrowed to.
     (logos--narrow-to-page 0))
-   ((null (buffer-narrowed-p))
+   ((not (buffer-narrowed-p))
     (logos-narrow-visible-window))
-   ((widen))))
+   (t (widen))))
 
 ;;;; Optional "focus mode" and utilities
 



reply via email to

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