Mercurial > hg > xemacs-beta

comparison lisp/mule/vietnamese.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 8de8e3f6228a
children 943eaba38521
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
207 207
208 (make-coding-system 208 (make-coding-system
209 'viscii 'ccl 209 'viscii 'ccl
210 "Coding-system used for VISCII 1.1." 210 "Coding-system used for VISCII 1.1."
211 `(mnemonic "VISCII" 211 `(mnemonic "VISCII"
212 decode ,ccl-decode-viscii 212 decode ccl-decode-viscii
213 encode ,ccl-encode-viscii)) 213 encode ccl-encode-viscii))
214 214
215 ;; it is not correct, but XEmacs doesn't have `ccl' category... 215 ;; it is not correct, but XEmacs doesn't have `ccl' category...
216 (coding-system-put 'viscii 'category 'iso-8-1) 216 (coding-system-put 'viscii 'category 'iso-8-1)
217 217
218 ;; (make-coding-system 218 ;; (make-coding-system
227 227
228 (make-coding-system 228 (make-coding-system
229 'vscii 'ccl 229 'vscii 'ccl
230 "Coding-system used for VSCII 1.1." 230 "Coding-system used for VSCII 1.1."
231 `(mnemonic "VSCII" 231 `(mnemonic "VSCII"
232 decode ,ccl-decode-vscii 232 decode ccl-decode-vscii
233 encode ,ccl-encode-vscii)) 233 encode ccl-encode-vscii))
234 234
235 ;; (make-coding-system 235 ;; (make-coding-system
236 ;; 'vietnamese-vscii 4 ?v 236 ;; 'vietnamese-vscii 4 ?v
237 ;; "8-bit encoding for Vietnamese VSCII-1" 237 ;; "8-bit encoding for Vietnamese VSCII-1"
238 ;; '(ccl-decode-vscii . ccl-encode-vscii) 238 ;; '(ccl-decode-vscii . ccl-encode-vscii)
262 262
263 ;; (define-coding-system-alias 'viqr 'vietnamese-viqr) 263 ;; (define-coding-system-alias 'viqr 'vietnamese-viqr)
264 264
265 ;; For VISCII users 265 ;; For VISCII users
266 (set-charset-ccl-program 'vietnamese-viscii-lower 266 (set-charset-ccl-program 'vietnamese-viscii-lower
267 ccl-encode-viscii-font) 267 'ccl-encode-viscii-font)
268 (set-charset-ccl-program 'vietnamese-viscii-upper 268 (set-charset-ccl-program 'vietnamese-viscii-upper
269 ccl-encode-viscii-font) 269 'ccl-encode-viscii-font)
270 ;; For VSCII users 270 ;; For VSCII users
271 (set-charset-ccl-program 'vietnamese-viscii-lower ccl-encode-vscii-font) 271 (set-charset-ccl-program 'vietnamese-viscii-lower 'ccl-encode-vscii-font)
272 (set-charset-ccl-program 'vietnamese-viscii-upper ccl-encode-vscii-font) 272 (set-charset-ccl-program 'vietnamese-viscii-upper 'ccl-encode-vscii-font)
273 273
274 ;; (setq font-ccl-encoder-alist 274 ;; (setq font-ccl-encoder-alist
275 ;; (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist)) 275 ;; (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))
276 276
277 ;; (setq font-ccl-encoder-alist 277 ;; (setq font-ccl-encoder-alist