[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/jinx bb22cf2b26: Support curly apostrophe (Fix #80)
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/jinx bb22cf2b26: Support curly apostrophe (Fix #80) |
|
Date: |
Thu, 25 May 2023 06:58:35 -0400 (EDT) |
branch: externals/jinx
commit bb22cf2b26d465a5c30edf67732abfbedc3952f9
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Support curly apostrophe (Fix #80)
---
jinx.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/jinx.el b/jinx.el
index 19e5b11ead..e0a8840b0d 100644
--- a/jinx.el
+++ b/jinx.el
@@ -423,11 +423,11 @@ position."
;; No quote or apostrophe at start or end
(while (and (< word-start word-end)
(let ((c (char-after word-start)))
- (or (= c 39) (= c 8217))))
+ (or (= c ?') (= c ?’))))
(cl-incf word-start))
(while (and (< word-start word-end)
(let ((c (char-before word-end)))
- (or (= c 39) (= c 8217))))
+ (or (= c ?') (= c ?’))))
(cl-decf word-end))
(while (< word-start word-end)
(let ((subword-end word-end))
@@ -734,6 +734,7 @@ If CHECK is non-nil, always check first."
(cl-loop for c across (jinx--mod-wordchars dict) do
(modify-syntax-entry c "w" jinx--syntax-table)))
(modify-syntax-entry ?' "w" jinx--syntax-table)
+ (modify-syntax-entry ?’ "w" jinx--syntax-table)
(modify-syntax-entry ?. "." jinx--syntax-table))
;;;; Save functions
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/jinx bb22cf2b26: Support curly apostrophe (Fix #80),
ELPA Syncer <=