Mercurial > emacs

changeset 95693:ecb839f81a85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hanja-init-load): Show the message only when loading a table.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 2008 01:18:11 +0000
parents da1d9416a718
children 8ebc88df80db
files lisp/language/hanja-util.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/hanja-util.el	Sun Jun 08 21:53:13 2008 +0000
+++ b/lisp/language/hanja-util.el	Mon Jun 09 01:18:11 2008 +0000
@@ -36,8 +36,8 @@
 
 (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 @@
        (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.