Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 4993:c0934cef10c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
convert some source files to utf-8 -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * unicode.el: * unicode.el (for): Convert file to utf-8. modules/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * canna/canna_api.c: * canna/canna_api.c (storeResults): * canna/canna_api.c (Fcanna_set_bunsetsu): * canna/canna_api.c (Fcanna_initialize): * canna/canna_api.c (Fcanna_store_yomi): * canna/canna_api.c (Fcanna_henkan_end): Convert file to utf-8. src/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * mule-wnnfns.c: Convert file to utf-8.
author Ben Wing <ben@xemacs.org>
date Sat, 06 Feb 2010 04:26:09 -0600
parents b3ea9c582280
children 75469840109b 308d34e9f07d
comparison
equal deleted inserted replaced
4988:4cfb6aeb989d 4993:c0934cef10c6
1 ;;; unicode.el --- Unicode support -*- coding: iso-2022-7bit; -*- 1 ;;; unicode.el --- Unicode support -*- coding: utf-8; -*-
2 2
3 ;; Copyright (C) 2001, 2002 Ben Wing. 3 ;; Copyright (C) 2001, 2002 Ben Wing.
4 4
5 ;; Keywords: multilingual, Unicode 5 ;; Keywords: multilingual, Unicode
6 6
422 (#x252c ?|) ;; U+252C BOX DRAWINGS LIGHT DOWN AND HORIZONTAL 422 (#x252c ?|) ;; U+252C BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
423 (#x2524 ?|) ;; U+2524 BOX DRAWINGS LIGHT VERTICAL AND LEFT 423 (#x2524 ?|) ;; U+2524 BOX DRAWINGS LIGHT VERTICAL AND LEFT
424 (#x2534 ?|) ;; U+2534 BOX DRAWINGS LIGHT UP AND HORIZONTAL 424 (#x2534 ?|) ;; U+2534 BOX DRAWINGS LIGHT UP AND HORIZONTAL
425 (#x253c ?|) ;; U+253C BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL 425 (#x253c ?|) ;; U+253C BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
426 (#x02da ?^) ;; U+02DA RING ABOVE 426 (#x02da ?^) ;; U+02DA RING ABOVE
427 (#x2122 ?\xa9) ;; U+2122 TRADE MARK SIGN, ?,A)(B 427 (#x2122 ?\xa9) ;; U+2122 TRADE MARK SIGN, ?©
428 428
429 (#x0132 ?\xe6) ;; U+0132 LATIN CAPITAL LIGATURE IJ, ?,Af(B 429 (#x0132 ?\xe6) ;; U+0132 LATIN CAPITAL LIGATURE IJ, ?æ
430 (#x013f ?\xe6) ;; U+013F LATIN CAPITAL LETTER L WITH MIDDLE DOT, ?,Af(B 430 (#x013f ?\xe6) ;; U+013F LATIN CAPITAL LETTER L WITH MIDDLE DOT, ?æ
431 431
432 (#x0133 ?\xe6) ;; U+0133 LATIN SMALL LIGATURE IJ, ?,Af(B 432 (#x0133 ?\xe6) ;; U+0133 LATIN SMALL LIGATURE IJ, ?æ
433 (#x0140 ?\xe6) ;; U+0140 LATIN SMALL LETTER L WITH MIDDLE DOT, ?,Af(B 433 (#x0140 ?\xe6) ;; U+0140 LATIN SMALL LETTER L WITH MIDDLE DOT, ?æ
434 (#x0149 ?\xe6) ;; U+0149 LATIN SMALL LETTER N PRECEDED BY APOSTROPH,?,Af(B 434 (#x0149 ?\xe6) ;; U+0149 LATIN SMALL LETTER N PRECEDED BY APOSTROPH,?æ
435 435
436 (#x2194 ?|) ;; U+2194 LEFT RIGHT ARROW 436 (#x2194 ?|) ;; U+2194 LEFT RIGHT ARROW
437 (#x2660 ?*) ;; U+2660 BLACK SPADE SUIT 437 (#x2660 ?*) ;; U+2660 BLACK SPADE SUIT
438 (#x2665 ?*) ;; U+2665 BLACK HEART SUIT 438 (#x2665 ?*) ;; U+2665 BLACK HEART SUIT
439 (#x2663 ?*) ;; U+2663 BLACK CLUB SUIT 439 (#x2663 ?*) ;; U+2663 BLACK CLUB SUIT
440 (#x2592 ?|) ;; U+2592 MEDIUM SHADE 440 (#x2592 ?|) ;; U+2592 MEDIUM SHADE
441 (#x2195 ?|) ;; U+2195 UP DOWN ARROW 441 (#x2195 ?|) ;; U+2195 UP DOWN ARROW
442 442
443 (#x2113 ?\xb9) ;; U+2113 SCRIPT SMALL L, ?,A9(B 443 (#x2113 ?\xb9) ;; U+2113 SCRIPT SMALL L, ?¹
444 (#x215b ?\xbe) ;; U+215B VULGAR FRACTION ONE EIGHTH, ?,A>(B 444 (#x215b ?\xbe) ;; U+215B VULGAR FRACTION ONE EIGHTH, ?¾
445 (#x215c ?\xbe) ;; U+215C VULGAR FRACTION THREE EIGHTHS, ?,A>(B 445 (#x215c ?\xbe) ;; U+215C VULGAR FRACTION THREE EIGHTHS, ?¾
446 (#x215d ?\xbe) ;; U+215D VULGAR FRACTION FIVE EIGHTHS, ?,A>(B 446 (#x215d ?\xbe) ;; U+215D VULGAR FRACTION FIVE EIGHTHS, ?¾
447 (#x215e ?\xbe) ;; U+215E VULGAR FRACTION SEVEN EIGHTHS, ?,A>(B 447 (#x215e ?\xbe) ;; U+215E VULGAR FRACTION SEVEN EIGHTHS, ?¾
448 (#x207f ?\xbe) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?,A>(B 448 (#x207f ?\xbe) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?¾
449 449
450 ;; These are not in WGL 4, but are IPA characters that should not 450 ;; These are not in WGL 4, but are IPA characters that should not
451 ;; be double width. They are the only IPA characters that both 451 ;; be double width. They are the only IPA characters that both
452 ;; occur in packages/mule-packages/leim/ipa.el and end up in East 452 ;; occur in packages/mule-packages/leim/ipa.el and end up in East
453 ;; Asian character sets when that file is loaded in an XEmacs 453 ;; Asian character sets when that file is loaded in an XEmacs
454 ;; without packages. 454 ;; without packages.
455 (#x2197 ?|) ;; U+2197 NORTH EAST ARROW 455 (#x2197 ?|) ;; U+2197 NORTH EAST ARROW
456 (#x2199 ?|) ;; U+2199 SOUTH WEST ARROW 456 (#x2199 ?|) ;; U+2199 SOUTH WEST ARROW
457 (#x2191 ?|) ;; U+2191 UPWARDS ARROW 457 (#x2191 ?|) ;; U+2191 UPWARDS ARROW
458 (#x207f ?\xb9)) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?,A9(B 458 (#x207f ?\xb9)) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?¹
459 with decoded = nil 459 with decoded = nil
460 with syntax-table = (standard-syntax-table) 460 with syntax-table = (standard-syntax-table)
461 initially (unless (featurep 'mule) (return)) 461 initially (unless (featurep 'mule) (return))
462 ;; This creates jit-ucs-charset-0 entries because: 462 ;; This creates jit-ucs-charset-0 entries because:
463 ;; 463 ;;