Mercurial > hg > xemacs-beta
diff lisp/mule/vietnamese.el @ 444:576fb035e263 r21-2-37
Import from CVS: tag r21-2-37
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:36:19 +0200 |
| parents | 8de8e3f6228a |
| children | 943eaba38521 |
line wrap: on
line diff
--- a/lisp/mule/vietnamese.el Mon Aug 13 11:35:05 2007 +0200 +++ b/lisp/mule/vietnamese.el Mon Aug 13 11:36:19 2007 +0200 @@ -209,8 +209,8 @@ 'viscii 'ccl "Coding-system used for VISCII 1.1." `(mnemonic "VISCII" - decode ,ccl-decode-viscii - encode ,ccl-encode-viscii)) + decode ccl-decode-viscii + encode ccl-encode-viscii)) ;; it is not correct, but XEmacs doesn't have `ccl' category... (coding-system-put 'viscii 'category 'iso-8-1) @@ -229,8 +229,8 @@ 'vscii 'ccl "Coding-system used for VSCII 1.1." `(mnemonic "VSCII" - decode ,ccl-decode-vscii - encode ,ccl-encode-vscii)) + decode ccl-decode-vscii + encode ccl-encode-vscii)) ;; (make-coding-system ;; 'vietnamese-vscii 4 ?v @@ -264,12 +264,12 @@ ;; For VISCII users (set-charset-ccl-program 'vietnamese-viscii-lower - ccl-encode-viscii-font) + 'ccl-encode-viscii-font) (set-charset-ccl-program 'vietnamese-viscii-upper - ccl-encode-viscii-font) + 'ccl-encode-viscii-font) ;; For VSCII users -(set-charset-ccl-program 'vietnamese-viscii-lower ccl-encode-vscii-font) -(set-charset-ccl-program 'vietnamese-viscii-upper ccl-encode-vscii-font) +(set-charset-ccl-program 'vietnamese-viscii-lower 'ccl-encode-vscii-font) +(set-charset-ccl-program 'vietnamese-viscii-upper 'ccl-encode-vscii-font) ;; (setq font-ccl-encoder-alist ;; (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))