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

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

[elpa] externals/altcaps ac49e5ba45: Skip punctuation and blanks while t


From: ELPA Syncer
Subject: [elpa] externals/altcaps ac49e5ba45: Skip punctuation and blanks while transforming
Date: Thu, 27 Jul 2023 09:57:18 -0400 (EDT)

branch: externals/altcaps
commit ac49e5ba459f4e38fa281b2228c670a07364683d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Skip punctuation and blanks while transforming
    
    This way, we operate on a region without trying to {up,down}case
    characters that have no casing.
---
 altcaps.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/altcaps.el b/altcaps.el
index 3d4991c4d9..ee8592e31d 100644
--- a/altcaps.el
+++ b/altcaps.el
@@ -133,7 +133,7 @@ font that disambiguates characters.)"
         casing
         chars)
     (mapc (lambda (c)
-            (unless (string-blank-p (char-to-string c))
+            (unless (string-match-p "[[:punct:][:blank:]]" (char-to-string c))
               (cond
                ((when-let ((force-case (alist-get c 
altcaps-force-character-casing)))
                   (setq c (funcall force-case c)



reply via email to

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