Mercurial > emacs

comparison lisp/w32-fns.el @ 29323:d1176f1c776e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-charset-info-alist): Add each charset separately.
author Jason Rumney <jasonr@gnu.org>
date Tue, 30 May 2000 22:39:04 +0000
parents 454890f5952d
children c470ffbc2a4a
comparison
equal deleted inserted replaced
29322:16e1a87707b5 29323:d1176f1c776e
357 ("big5" . (w32-charset-chinesebig5 . 950)) 357 ("big5" . (w32-charset-chinesebig5 . 950))
358 ("gb2312" . (w32-charset-gb2312 . 936)) 358 ("gb2312" . (w32-charset-gb2312 . 936))
359 ("ms-symbol" . (w32-charset-symbol . nil)) 359 ("ms-symbol" . (w32-charset-symbol . nil))
360 ("ms-oem" . (w32-charset-oem . 437)) 360 ("ms-oem" . (w32-charset-oem . 437))
361 ("ms-oemlatin" . (w32-charset-oem . 850)))) 361 ("ms-oemlatin" . (w32-charset-oem . 850))))
362 (if (boundp 'w32-extra_charsets-defined) 362 (if (boundp 'w32-extra-charsets-defined)
363 (add-to-list 363 (progn
364 'w32-charset-info-alist 364 (add-to-list 'w32-charset-info-alist
365 '(("iso8859-2" . (w32-charset-easteurope . 28592)) 365 '("iso8859-2" . (w32-charset-easteurope . 28592)))
366 ("iso8859-3" . (w32-charset-turkish . 28593)) 366 (add-to-list 'w32-charset-info-alist
367 ("iso8859-4" . (w32-charset-baltic . 28594)) 367 '("iso8859-3" . (w32-charset-turkish . 28593)))
368 ("iso8859-5" . (w32-charset-russian . 28595)) 368 (add-to-list 'w32-charset-info-alist
369 ("iso8859-6" . (w32-charset-arabic . 28596)) 369 '("iso8859-4" . (w32-charset-baltic . 28594)))
370 ("iso8859-7" . (w32-charset-greek . 28597)) 370 (add-to-list 'w32-charset-info-alist
371 ("iso8859-8" . (w32-charset-hebrew . 1255)) 371 '("iso8859-5" . (w32-charset-russian . 28595)))
372 ("iso8859-9" . (w32-charset-turkish . 1254)) 372 (add-to-list 'w32-charset-info-alist
373 ("iso8859-13" . (w32-charset-baltic . 1257)) 373 '("iso8859-6" . (w32-charset-arabic . 28596)))
374 ("koi8-r" . (w32-charset-russian . 20866)) 374 (add-to-list 'w32-charset-info-alist
375 ("tis620" . (w32-charset-thai . 874)) 375 '("iso8859-7" . (w32-charset-greek . 28597)))
376 ("ksc5601.1992" . (w32-charset-johab . 1361)) 376 (add-to-list 'w32-charset-info-alist
377 ("mac" . (w32-charset-mac . nil))))) 377 '("iso8859-8" . (w32-charset-hebrew . 1255)))
378 (add-to-list 'w32-charset-info-alist
379 '("iso8859-9" . (w32-charset-turkish . 1254)))
380 (add-to-list 'w32-charset-info-alist
381 '("iso8859-13" . (w32-charset-baltic . 1257)))
382 (add-to-list 'w32-charset-info-alist
383 '("koi8-r" . (w32-charset-russian . 20866)))
384 (add-to-list 'w32-charset-info-alist
385 '("tis620" . (w32-charset-thai . 874)))
386 (add-to-list 'w32-charset-info-alist
387 '("ksc5601.1992" . (w32-charset-johab . 1361)))
388 (add-to-list 'w32-charset-info-alist
389 '("mac" . (w32-charset-mac . nil))))))
378 (if (boundp 'w32-unicode-charset-defined) 390 (if (boundp 'w32-unicode-charset-defined)
379 (add-to-list 391 (progn
380 'w32-charset-info-alist 392 (add-to-list 'w32-charset-info-alist
381 '(("iso10646" . (w32-charset-unicode . t)) 393 '("iso10646" . (w32-charset-unicode . t)))
382 ("unicode" . (w32-charset-unicode . t))))))) 394 (add-to-list 'w32-charset-info-alist
395 '("unicode" . (w32-charset-unicode . t))))))
383 396
384 ;;; w32-fns.el ends here 397 ;;; w32-fns.el ends here