From 9c346e0d074f8be580ef9152be73cfb8fc7424d8 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Mon, 9 Jun 2008 01:19:02 +0000
Subject: [PATCH] (hanja-init-load): Show the message only when loading a
 table.

---
 lisp/ChangeLog              | 5 +++++
 lisp/language/hanja-util.el | 5 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4231b8871cb..8f0bc80d477 100644
--- 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 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.
-- 
2.39.2