diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-06-09 01:19:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-06-09 01:19:02 +0000 |
| commit | 9c346e0d074f8be580ef9152be73cfb8fc7424d8 (patch) | |
| tree | 9c447b781d83bbb91d216202c012a8e3988923a2 /lisp/language | |
| parent | b7149a8192f9416d9e2201f6dfec899167309a6c (diff) | |
| download | emacs-9c346e0d074f8be580ef9152be73cfb8fc7424d8.tar.gz | |
(hanja-init-load): Show the message only when loading a table.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/hanja-util.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el index fc7aacfff8c..dc5a8403277 100644 --- a/lisp/language/hanja-util.el +++ b/lisp/language/hanja-util.el @@ -36,8 +36,8 @@ character. This variable is initialized by `hanja-init-load'.") (defun hanja-init-load () "Initialize `hanja-table' (which see)." - (message "Hanja table loading..") (when (not hanja-table) + (message "Hanja table loading..") (setq hanja-table (make-char-table nil)) (mapc (lambda (x) (aset hanja-table (car x) (cdr x))) @@ -6431,7 +6431,8 @@ character. This variable is initialized by `hanja-init-load'.") (55184 . ((35440 . "물을 힐, 힐문할 힐") (40672 . "약을 힐") 32953 (38945 . "곧은목 힐") (32392 . "홀치기염색 힐") 25847 32952 25783 32556 35800 39049 (29365 . "오랑캐이름 힐") - (35181 . "옷자락 꽂을 힐") 24644 27439 32723 14954)))))) + (35181 . "옷자락 꽂을 힐") 24644 27439 32723 14954)))) + (message ""))) ;; List of current conversion status. ;; The first element is the strating position of shown list. |