[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