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

[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



reply via email to

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