/[emacs]/emacs/lisp/international/mule-conf.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-conf.el

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

revision 1.63 by eliz, Fri Mar 15 13:52:39 2002 UTC revision 1.63.2.1 by miles, Fri Apr 4 06:20:22 2003 UTC
# Line 1  Line 1 
1  ;;; mule-conf.el --- configure multilingual environment  ;;; mule-conf.el --- configure multilingual environment -*- no-byte-compile: t -*-
2    
3  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
# Line 226  Line 226 
226    
227  ;; 2-byte 2-column charsets.  Valid range of CHARSET-ID is 245..254.  ;; 2-byte 2-column charsets.  Valid range of CHARSET-ID is 245..254.
228    
229  ;; Ethiopic characters (Amahric and Tigrigna).  ;; Ethiopic characters (Amharic and Tigrigna).
230  (define-charset 245 'ethiopic  (define-charset 245 'ethiopic
231    [2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters"    [2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters"
232       "Ethiopic characters."])       "Ethiopic characters."])
# Line 306  When you visit a file with this coding, Line 306  When you visit a file with this coding,
306  unibyte buffer as is, thus each byte of a file is treated as a  unibyte buffer as is, thus each byte of a file is treated as a
307  character."  character."
308               (list 'coding-category 'coding-category-binary               (list 'coding-category 'coding-category-binary
309                     'alias-coding-systems '(no-conversion))                     'alias-coding-systems '(no-conversion)
310                       'safe-charsets t 'safe-chars t)
311               nil))               nil))
312  (put 'no-conversion 'eol-type 0)  (put 'no-conversion 'eol-type 0)
313  (put 'coding-category-binary 'coding-systems '(no-conversion))  (put 'coding-category-binary 'coding-systems '(no-conversion))
314  (setq coding-system-list '(no-conversion))  (setq coding-system-list '(no-conversion))
315  (setq coding-system-alist '(("no-conversion")))  (setq coding-system-alist '(("no-conversion")))
316  (register-char-codings 'no-conversion t)  (define-coding-system-internal 'no-conversion)
317    
318  (define-coding-system-alias 'binary 'no-conversion)  (define-coding-system-alias 'binary 'no-conversion)
319    
# Line 341  sequence of the text in buffers and stri Line 342  sequence of the text in buffers and stri
342  eight-bit-control characters.  Each of them is encoded into a single  eight-bit-control characters.  Each of them is encoded into a single
343  byte."  byte."
344   nil   nil
345   '((safe-charsets . t)))   '((safe-charsets . t)
346       (composition . t)))
347    
348  (make-coding-system  (make-coding-system
349   'raw-text 5 ?t   'raw-text 5 ?t
# Line 413  is treated as a character." Line 415  is treated as a character."
415   'compound-text 2 ?x   'compound-text 2 ?x
416   "Compound text based generic encoding for decoding unknown messages.   "Compound text based generic encoding for decoding unknown messages.
417    
418  This coding system does not support ICCCM Extended Segments."  This coding system does not support extended segments."
419   '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t   '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t
420     nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil     nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
421     init-bol nil nil)     init-bol nil nil)
# Line 441  Like `compound-text', but does not produ Line 443  Like `compound-text', but does not produ
443    
444  (make-coding-system  (make-coding-system
445   'compound-text-with-extensions 5 ?x   'compound-text-with-extensions 5 ?x
446   "Compound text encoding with ICCCM Extended Segment extensions.   "Compound text encoding with extended segments.
447    
448  This coding system should be used only for X selections.  It is inappropriate  This coding system should be used only for X selections.  It is inappropriate
449  for decoding and encoding files, process I/O, etc."  for decoding and encoding files, process I/O, etc."
# Line 456  for decoding and encoding files, process Line 458  for decoding and encoding files, process
458    
459  (make-coding-system  (make-coding-system
460   'iso-safe 2 ?-   'iso-safe 2 ?-
461   "Convert all characters but ASCII to `?'."   "Encode ASCII asis and encode non-ASCII characters to `?'."
462   '(ascii nil nil nil   '(ascii nil nil nil
463     nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t)     nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t)
464   '((safe-charsets ascii)))   '((safe-charsets ascii)))
465    
466    (define-coding-system-alias
467      'us-ascii 'iso-safe)
468    
469    (make-coding-system
470     'iso-latin-1 2 ?1
471     "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
472     '(ascii latin-iso8859-1 nil nil
473       nil nil nil nil nil nil nil nil nil nil nil t t)
474     '((safe-charsets ascii latin-iso8859-1)
475       (mime-charset . iso-8859-1)))
476    
477    (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
478    (define-coding-system-alias 'latin-1 'iso-latin-1)
479    
480  ;; Use iso-safe for terminal output if some other coding system is not  ;; Use iso-safe for terminal output if some other coding system is not
481  ;; specified explicitly.  ;; specified explicitly.
482  (set-safe-terminal-coding-system-internal 'iso-safe)  (set-safe-terminal-coding-system-internal 'iso-safe)
# Line 519  for decoding and encoding files, process Line 535  for decoding and encoding files, process
535     coding-category-iso-8-else     coding-category-iso-8-else
536     coding-category-emacs-mule     coding-category-emacs-mule
537     coding-category-raw-text     coding-category-raw-text
538     coding-category-sjis     coding-category-sjis
539     coding-category-big5     coding-category-big5
540     coding-category-ccl     coding-category-ccl
541     coding-category-binary     coding-category-binary

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.63.2.1

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