chiark
/
gitweb
/
~mdw
/
profile
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
159aaff
)
dot/ercrc.el: Add another wide character.
author
Mark Wooding
<mdw@distorted.org.uk>
Tue, 14 May 2024 02:03:11 +0000
(
03:03
+0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Tue, 14 May 2024 02:05:34 +0000
(
03:05
+0100)
dot/ercrc.el
patch
|
blob
|
blame
|
history
diff --git
a/dot/ercrc.el
b/dot/ercrc.el
index a0bc5a63df922b9de1fdd59c5bebee27556fd6e0..6a708acbeb04677bf7f1c0ea7fe52c641a959572 100644
(file)
--- a/
dot/ercrc.el
+++ b/
dot/ercrc.el
@@
-22,7
+22,8
@@
(defun mdw-replace-wide-characters (string)
(while (< i (length string))
(let ((ch (aref string i)))
(cond ((and (= (char-width ch) 1)
- (not (or (<= #x1f200 ch #x1ffff))))
+ (not (or (<= #x1f200 ch #x1ffff)
+ (= ch #x2693))))
(when state (princ "*]") (setf state nil))
(write-char ch))
(t