(hanja-init-load): Show the message only when loading a table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4231b8871cbc8a348232f0cbe9d043b114668344..8f0bc80d477e963b6922c157b2d0d9256d25042c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-09  Jihyun Cho  <jihyun.jo@gmail.com>
+
+       * language/hanja-util.el (hanja-init-load): Show the message only
+       when loading a table.
+
 2008-06-08  Ulf Jasper  <ulf.jasper@web.de>
 
        * net/newsticker-treeview.el (newsticker-treeview): Added autoload

diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index fc7aacfff8cd12a11f1a375121b51cac2ecf3af1..dc5a8403277ea8b634552352fc524f964e66aba7 100644 (file)
--- 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.