Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 4490:67fbcaf3dbdc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4489:b75b075a9041 4490:67fbcaf3dbdc
225 225
226 If there is no value for this property, the MS Windows 226 If there is no value for this property, the MS Windows
227 locale is assumed to have the same name as the 227 locale is assumed to have the same name as the
228 language environment. 228 language environment.
229 229
230 error-sequence-coding-system 230 invalid-sequence-coding-system
231 VALUE is a fixed-width 8-bit coding system used to 231 VALUE is a fixed-width 8-bit coding system used to
232 display Unicode error sequences (using a face to make 232 display Unicode error sequences (using a face to make
233 it clear that the data is invalid). In Western Europe 233 it clear that the data is invalid). In Western Europe
234 this is normally windows-1252; in the Russia and the 234 this is normally windows-1252; in the Russia and the
235 former Soviet Union koi8-ru or windows-1251 makes more 235 former Soviet Union koi8-ru or windows-1251 makes more
766 (setq required-features (cdr required-features)))) 766 (setq required-features (cdr required-features))))
767 (let ((func (get-language-info language-name 'setup-function))) 767 (let ((func (get-language-info language-name 'setup-function)))
768 (if (functionp func) 768 (if (functionp func)
769 (funcall func))) 769 (funcall func)))
770 770
771 (let ((error-sequence-coding-system 771 (let ((invalid-sequence-coding-system
772 (get-language-info language-name 'error-sequence-coding-system)) 772 (get-language-info language-name 'invalid-sequence-coding-system))
773 (disp-table (specifier-instance current-display-table)) 773 (disp-table (specifier-instance current-display-table))
774 glyph) 774 glyph)
775 (when (consp error-sequence-coding-system) 775 (when (consp invalid-sequence-coding-system)
776 (setq error-sequence-coding-system (car error-sequence-coding-system))) 776 (setq invalid-sequence-coding-system
777 (car invalid-sequence-coding-system)))
777 (map-char-table 778 (map-char-table
778 #'(lambda (key entry) 779 #'(lambda (key entry)
779 (setq glyph (make-glyph 780 (setq glyph (make-glyph
780 (vector 781 (vector
781 'string :data 782 'string :data
782 (decode-coding-string (string entry) 783 (decode-coding-string (string entry)
783 error-sequence-coding-system)))) 784 invalid-sequence-coding-system))))
784 (set-glyph-face glyph 'unicode-error-sequence-warning-face) 785 (set-glyph-face glyph 'unicode-invalid-sequence-warning-face)
785 (put-char-table key glyph disp-table) 786 (put-char-table key glyph disp-table)
786 nil) 787 nil)
787 unicode-error-default-translation-table)) 788 unicode-error-default-translation-table))
788 789
789 ;; Fit the charsets preferences in unicode conversions for the 790 ;; Fit the charsets preferences in unicode conversions for the