Mercurial > emacs
comparison lisp/language/hanja-util.el @ 105275:b78ceb253d15
* speedbar.el (speedbar-item-delete):
* calc/calc-prog.el (calc-kbd-if):
* language/hanja-util.el (hanja-init-load): Fix typos in messages.
* epa.el (epa-key-list-mode-map):
* hi-lock.el (hi-lock-menu): Fix typos in menus.
* progmodes/hideshow.el (hs-allow-nesting): Reflow docstring.
(hs-show-hook): Fix typo in docstring.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 29 Sep 2009 02:26:20 +0000 |
| parents | 59e11bc5f330 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105274:506031e65b65 | 105275:b78ceb253d15 |
|---|---|
| 37 character. This variable is initialized by `hanja-init-load'.") | 37 character. This variable is initialized by `hanja-init-load'.") |
| 38 | 38 |
| 39 (defun hanja-init-load () | 39 (defun hanja-init-load () |
| 40 "Initialize `hanja-table' (which see)." | 40 "Initialize `hanja-table' (which see)." |
| 41 (when (not hanja-table) | 41 (when (not hanja-table) |
| 42 (message "Hanja table loading..") | 42 (message "Hanja table loading...") |
| 43 (setq hanja-table (make-char-table nil)) | 43 (setq hanja-table (make-char-table nil)) |
| 44 (mapc | 44 (mapc |
| 45 (lambda (x) (aset hanja-table (car x) (cdr x))) | 45 (lambda (x) (aset hanja-table (car x) (cdr x))) |
| 46 '((12593 . (12288 65281 65287 65292 65294 65295 65306 65307 | 46 '((12593 . (12288 65281 65287 65292 65294 65295 65306 65307 |
| 47 65311 65342 65343 65344 65372 65507 12289 12290 | 47 65311 65342 65343 65344 65372 65507 12289 12290 |