[elpa] externals/logos 4f0da805e1 1/2: Make variable-pitch prog-mode exception explicit

[ELPA Syncer]

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

    Make variable-pitch prog-mode exception explicit
    
    This is more consistent with the original intent of this option, which
    is to enable 'variable-pitch-mode' everywhere except in programming
    modes.
---
 logos.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/logos.el b/logos.el
index 9b179649a4..bf77f492f1 100644
--- a/logos.el
+++ b/logos.el
@@ -114,9 +114,10 @@ This is only relevant when `logos-focus-mode' is enabled."
   :local t)
 
 (defcustom logos-variable-pitch nil
-  "When non-nil, `text-mode' buffers use `variable-pitch-mode'.
+  "When non-nil, use `variable-pitch-mode' where appropriate.
 In programming modes the default font is always used, as that is
-assumed to be a monospaced typeface.
+assumed to be a monospaced typeface, which is appropriate for
+spacing-sensitive text.
 
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
@@ -402,7 +403,7 @@ options: `logos-scroll-lock', `logos-variable-pitch',
 
 (defun logos--variable-pitch ()
   "Set `logos-variable-pitch'."
-  (when (and logos-variable-pitch (derived-mode-p 'text-mode))
+  (when (and logos-variable-pitch (not (derived-mode-p 'prog-mode)))
     (logos--mode 'variable-pitch-mode 1)))
 
 (defun logos--scroll-lock ()