Mercurial > emacs
comparison lisp/international/characters.el @ 31664:b41bc1b0a044
(standard-case-table): Add entries
for Greek.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 17 Sep 2000 16:58:20 +0000 |
| parents | 038c13f83357 |
| children | aacccd8ad977 |
comparison
equal
deleted
inserted
replaced
| 31663:91f4f31f58f2 | 31664:b41bc1b0a044 |
|---|---|
| 302 (setq c (1+ c)))) | 302 (setq c (1+ c)))) |
| 303 (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP | 303 (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP |
| 304 (modify-syntax-entry ?,F7(B ".") | 304 (modify-syntax-entry ?,F7(B ".") |
| 305 (modify-syntax-entry ?,F;(B ".") | 305 (modify-syntax-entry ?,F;(B ".") |
| 306 (modify-syntax-entry ?,F=(B ".") | 306 (modify-syntax-entry ?,F=(B ".") |
| 307 (let ((tbl (standard-case-table))) | |
| 308 (set-case-syntax-pair ?,FA(B ?,Fa(B tbl) | |
| 309 (set-case-syntax-pair ?,FB(B ?,Fb(B tbl) | |
| 310 (set-case-syntax-pair ?,FC(B ?,Fc(B tbl) | |
| 311 (set-case-syntax-pair ?,FD(B ?,Fd(B tbl) | |
| 312 (set-case-syntax-pair ?,FE(B ?,Fe(B tbl) | |
| 313 (set-case-syntax-pair ?,FF(B ?,Ff(B tbl) | |
| 314 (set-case-syntax-pair ?,FG(B ?,Fg(B tbl) | |
| 315 (set-case-syntax-pair ?,FH(B ?,Fh(B tbl) | |
| 316 (set-case-syntax-pair ?,FI(B ?,Fi(B tbl) | |
| 317 (set-case-syntax-pair ?,FJ(B ?,Fj(B tbl) | |
| 318 (set-case-syntax-pair ?,FK(B ?,Fk(B tbl) | |
| 319 (set-case-syntax-pair ?,FL(B ?,Fl(B tbl) | |
| 320 (set-case-syntax-pair ?,FM(B ?,Fm(B tbl) | |
| 321 (set-case-syntax-pair ?,FN(B ?,Fn(B tbl) | |
| 322 (set-case-syntax-pair ?,FO(B ?,Fo(B tbl) | |
| 323 (set-case-syntax-pair ?,FP(B ?,Fp(B tbl) | |
| 324 (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl) | |
| 325 (set-case-syntax-pair ?,FS(B ?,Fs(B tbl) | |
| 326 (set-case-syntax-pair ?,FT(B ?,Ft(B tbl) | |
| 327 (set-case-syntax-pair ?,FU(B ?,Fu(B tbl) | |
| 328 (set-case-syntax-pair ?,FV(B ?,Fv(B tbl) | |
| 329 (set-case-syntax-pair ?,FW(B ?,Fw(B tbl) | |
| 330 (set-case-syntax-pair ?,FX(B ?,Fx(B tbl) | |
| 331 (set-case-syntax-pair ?,FY(B ?,Fy(B tbl) | |
| 332 (set-case-syntax-pair ?,FZ(B ?,Fz(B tbl) | |
| 333 (set-case-syntax-pair ?,F[(B ?,F{(B tbl) | |
| 334 (set-case-syntax-pair ?,F?(B ?,F~(B tbl) | |
| 335 (set-case-syntax-pair ?,F>(B ?,F}(B tbl) | |
| 336 (set-case-syntax-pair ?,F<(B ?,F|(B tbl) | |
| 337 (set-case-syntax-pair ?,F6(B ?,F\(B tbl) | |
| 338 (set-case-syntax-pair ?,F8(B ?,F](B tbl) | |
| 339 (set-case-syntax-pair ?,F9(B ?,F^(B tbl) | |
| 340 (set-case-syntax-pair ?,F:(B ?,F_(B tbl)) | |
| 307 | 341 |
| 308 ;; Hebrew character set (ISO-8859-8) | 342 ;; Hebrew character set (ISO-8859-8) |
| 309 | 343 |
| 310 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) | 344 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
| 311 | 345 |