Commit 4fb82d62 authored by Dave Love's avatar Dave Love
Browse files

Add Latin-1.

parent af1b7625
...@@ -450,6 +450,38 @@ ...@@ -450,6 +450,38 @@
;; Thus we have to check language-environment to handle casing ;; Thus we have to check language-environment to handle casing
;; correctly. Currently only I<->i is available. ;; correctly. Currently only I<->i is available.
;; Latin-1
;; Fixme: Some of the non-word syntaxes here perhaps should be
;; reviewed. (Note that the following all implicitly have word
;; syntax: ¢£¤¥¨ª¯²³´¶¸¹º.) There should be a well-defined way of
;; relating Unicode categories to Emacs syntax codes.
(set-case-syntax ?  " " tbl) ; dubious
(set-case-syntax ?¡ "." tbl)
(set-case-syntax ?¦ "_" tbl)
(set-case-syntax ?§ "." tbl)
(set-case-syntax ?© "_" tbl)
(set-case-syntax-delims 171 187 tbl) ; « »
(set-case-syntax ?¬ "_" tbl)
(set-case-syntax ?­ "_" tbl)
(set-case-syntax ?® "_" tbl)
(set-case-syntax ?° "_" tbl)
(set-case-syntax ?± "_" tbl)
(set-case-syntax ?µ "_" tbl)
(set-case-syntax ?· "_" tbl)
(set-case-syntax ?¼ "_" tbl)
(set-case-syntax ?½ "_" tbl)
(set-case-syntax ?¾ "_" tbl)
(set-case-syntax ?¿ "." tbl)
(let ((c 192))
(while (<= c 222)
(set-case-syntax-pair c (+ c 32) tbl)
(setq c (1+ c))))
(set-case-syntax ?× "_" tbl)
(set-case-syntax ?ß "w" tbl)
(set-case-syntax ?÷ "_" tbl)
;; See below for ÿ.
;; Latin Extended-A, Latin Extended-B ;; Latin Extended-A, Latin Extended-B
(setq c #x0100) (setq c #x0100)
(while (<= c #x0233) (while (<= c #x0233)
...@@ -680,6 +712,8 @@ ...@@ -680,6 +712,8 @@
(set-case-syntax-pair c (+ c #x10) tbl) (set-case-syntax-pair c (+ c #x10) tbl)
(setq c (1+ c))) (setq c (1+ c)))
;; Fixme: The following blocks might be better as symbol rather than
;; punctuation.
;; Arrows ;; Arrows
(setq c #x2190) (setq c #x2190)
(while (<= c #x21FF) (while (<= c #x21FF)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment