Mercurial > hg > xemacs-beta
diff lisp/mule/mule-cmds.el @ 4490:67fbcaf3dbdc
error-sequence -> invalid-sequence
2008-08-08 Aidan Kehoe <kehoea@parhasard.net>
* unicode.el:
* mule/mule-cmds.el:
* mule/latin.el:
* mule/cyrillic.el:
Rework the various identifiers using error-sequence to use
invalid-sequence instead.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 08 Aug 2008 21:17:08 +0200 |
| parents | b75b075a9041 |
| children | 774e5c7522bf |
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el Tue Aug 05 09:06:41 2008 +0200 +++ b/lisp/mule/mule-cmds.el Fri Aug 08 21:17:08 2008 +0200 @@ -227,7 +227,7 @@ locale is assumed to have the same name as the language environment. - error-sequence-coding-system + invalid-sequence-coding-system VALUE is a fixed-width 8-bit coding system used to display Unicode error sequences (using a face to make it clear that the data is invalid). In Western Europe @@ -768,20 +768,21 @@ (if (functionp func) (funcall func))) - (let ((error-sequence-coding-system - (get-language-info language-name 'error-sequence-coding-system)) + (let ((invalid-sequence-coding-system + (get-language-info language-name 'invalid-sequence-coding-system)) (disp-table (specifier-instance current-display-table)) glyph) - (when (consp error-sequence-coding-system) - (setq error-sequence-coding-system (car error-sequence-coding-system))) + (when (consp invalid-sequence-coding-system) + (setq invalid-sequence-coding-system + (car invalid-sequence-coding-system))) (map-char-table #'(lambda (key entry) (setq glyph (make-glyph (vector 'string :data (decode-coding-string (string entry) - error-sequence-coding-system)))) - (set-glyph-face glyph 'unicode-error-sequence-warning-face) + invalid-sequence-coding-system)))) + (set-glyph-face glyph 'unicode-invalid-sequence-warning-face) (put-char-table key glyph disp-table) nil) unicode-error-default-translation-table))