Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 810:0f42d0a17667

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-04-07 17:10:48 by daiki] * mule/japanese.el: Don't quote function expressions listed as `native-coding-system'. * mule/chinese.el: Likewise.
author daiki
date Sun, 07 Apr 2002 17:10:50 +0000
parents 2923009caf47
children 402bf23dd28f
comparison
equal deleted inserted replaced
809:285f13b079f3 810:0f42d0a17667
497 "ja" 497 "ja"
498 ) 498 )
499 499
500 (native-coding-system 500 (native-coding-system
501 ;; first, see if an explicit encoding was given. 501 ;; first, see if an explicit encoding was given.
502 #'(lambda (locale) 502 (lambda (locale)
503 (let ((case-fold-search t)) 503 (let ((case-fold-search t))
504 (cond 504 (cond
505 ;; many unix versions 505 ;; many unix versions
506 ((string-match "\\.euc" locale) 'euc-jp) 506 ((string-match "\\.euc" locale) 'euc-jp)
507 ((string-match "\\.sjis" locale) 'shift-jis) 507 ((string-match "\\.sjis" locale) 'shift-jis)
519 ((string-match "\\.iso-2022-jp" locale) 'iso-2022-jp) 519 ((string-match "\\.iso-2022-jp" locale) 'iso-2022-jp)
520 ((string-match "\\.jis" locale) 'jis7) ;; or just jis? 520 ((string-match "\\.jis" locale) 'jis7) ;; or just jis?
521 ))) 521 )))
522 522
523 ;; aix (CJKV p. 465) 523 ;; aix (CJKV p. 465)
524 #'(lambda (locale) 524 (lambda (locale)
525 (when (eq system-type 'aix) 525 (when (eq system-type 'aix)
526 (cond 526 (cond
527 ((string-match "^Ja_JP" locale) 'shift-jis) 527 ((string-match "^Ja_JP" locale) 'shift-jis)
528 ((string-match "^ja_JP" locale) 'euc-jp)))) 528 ((string-match "^ja_JP" locale) 'euc-jp))))
529 529
530 ;; other X11R6 locale.alias 530 ;; other X11R6 locale.alias
531 #'(lambda (locale) 531 (lambda (locale)
532 (cond 532 (cond
533 ((string-match "^Jp_JP" locale) 'euc-jp) 533 ((string-match "^Jp_JP" locale) 'euc-jp)
534 ((and (eq system-type 'hpux) (eq locale "japanese")) 534 ((and (eq system-type 'hpux) (eq locale "japanese"))
535 'shift-jis))) 535 'shift-jis)))
536 536
537 ;; fallback 537 ;; fallback
538 'euc-jp) 538 euc-jp)
539 539
540 ;; (input-method . "japanese") 540 ;; (input-method . "japanese")
541 (features japan-util) 541 (features japan-util)
542 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") 542 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")
543 (documentation . t))) 543 (documentation . t)))