/[emacs]/emacs/lisp/language/cyrillic.el
ViewVC logotype

Diff of /emacs/lisp/language/cyrillic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31.2.4 by uid65618, Thu Feb 5 14:48:33 2004 UTC revision 1.31.2.5 by miles, Sat Sep 4 09:26:22 2004 UTC
# Line 186  This works whether or not the table is U Line 186  This works whether or not the table is U
186  (define-coding-system-alias 'koi8 'cyrillic-koi8)  (define-coding-system-alias 'koi8 'cyrillic-koi8)
187  (define-coding-system-alias 'cp878 'cyrillic-koi8)  (define-coding-system-alias 'cp878 'cyrillic-koi8)
188    
189    (let ((elt `("koi8-r" koi8-r 1
190                 ,(get 'cyrillic-koi8-r-encode-table 'translation-table)))
191          (slot (assoc "koi8-r" ctext-non-standard-encodings-alist)))
192      (if slot
193          (setcdr slot (cdr elt))
194        (push elt ctext-non-standard-encodings-alist)))
195    
196  ;; Allow displaying some of KOI & al with an 8859-5-encoded font.  We  ;; Allow displaying some of KOI & al with an 8859-5-encoded font.  We
197  ;; won't bother about the exceptions when encoding the font, since  ;; won't bother about the exceptions when encoding the font, since
198  ;; NBSP will fall through below and work anyhow, and we'll have  ;; NBSP will fall through below and work anyhow, and we'll have
# Line 219  This works whether or not the table is U Line 226  This works whether or not the table is U
226                              'translation-table))                              'translation-table))
227                     (coding-system cyrillic-koi8)                     (coding-system cyrillic-koi8)
228                     (coding-priority cyrillic-koi8 cyrillic-iso-8bit)                     (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
229                       (ctext-non-standard-encodings "koi8-r")
230                     (input-method . "russian-typewriter")                     (input-method . "russian-typewriter")
231                     (features cyril-util)                     (features cyril-util)
232                     (unibyte-display . cyrillic-koi8)                     (unibyte-display . cyrillic-koi8)

Legend:
Removed from v.1.31.2.4  
changed lines
  Added in v.1.31.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26