[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/altcaps ac49e5ba45: Skip punctuation and blanks while transforming,
ELPA Syncer <=