Mercurial > emacs
comparison lisp/international/characters.el @ 20247:7cb27e61a1d5
New category ` '.
Enable for non-breaking space in Latin-N.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 11 Nov 1997 03:24:18 +0000 |
parents | f7ab34ae92bb |
children | 179dbdbc3882 |
comparison
equal
deleted
inserted
replaced
20246:4aa45a7a62e8 | 20247:7cb27e61a1d5 |
---|---|
76 (define-category ?8 "vowel-signs") | 76 (define-category ?8 "vowel-signs") |
77 (define-category ?9 "semivowel lower") | 77 (define-category ?9 "semivowel lower") |
78 | 78 |
79 ;; For filling. | 79 ;; For filling. |
80 (define-category ?| "While filling, we can break a line at this character.") | 80 (define-category ?| "While filling, we can break a line at this character.") |
81 | |
82 ;; For indentation calculation. | |
83 (define-category ?\ "This character counts as a space for indentation purposes.") | |
81 | 84 |
82 ;; Keep the followings for `kinsoku' processing. See comments in | 85 ;; Keep the followings for `kinsoku' processing. See comments in |
83 ;; kinsoku.el. | 86 ;; kinsoku.el. |
84 (define-category ?> "A character which can't be placed at beginning of line.") | 87 (define-category ?> "A character which can't be placed at beginning of line.") |
85 (define-category ?< "A character which can't be placed at end of line.") | 88 (define-category ?< "A character which can't be placed at end of line.") |
277 (modify-category-entry (make-char 'latin-iso8859-2) ?l) | 280 (modify-category-entry (make-char 'latin-iso8859-2) ?l) |
278 (modify-category-entry (make-char 'latin-iso8859-3) ?l) | 281 (modify-category-entry (make-char 'latin-iso8859-3) ?l) |
279 (modify-category-entry (make-char 'latin-iso8859-4) ?l) | 282 (modify-category-entry (make-char 'latin-iso8859-4) ?l) |
280 (modify-category-entry (make-char 'latin-iso8859-9) ?l) | 283 (modify-category-entry (make-char 'latin-iso8859-9) ?l) |
281 | 284 |
285 (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ ) | |
286 (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ ) | |
287 (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ ) | |
288 (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ ) | |
289 (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ ) | |
290 | |
282 ;; Greek character set (ISO-8859-7) | 291 ;; Greek character set (ISO-8859-7) |
283 | 292 |
284 (modify-category-entry (make-char 'greek-iso8859-7) ?g) | 293 (modify-category-entry (make-char 'greek-iso8859-7) ?g) |
285 | 294 |
286 (let ((c 182)) | 295 (let ((c 182)) |