kkc.el: Fix a couple of bugs.

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 6d603cf831a909af13898420f7dd52dab3f19579..7b21491d3d92bd3a1e421239b1f4764724acf587 100644 (file)
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -179,7 +179,7 @@ area while indicating the current selection by `<N>'."
     (if (file-readable-p kkc-init-file-name)
        (condition-case nil
            (load-file kkc-init-file-name)
-         (kkc-error "Invalid data in %s" kkc-init-file-name))))
+         (error (kkc-error "Invalid data in %s" kkc-init-file-name)))))
   (or (and (nested-alist-p kkc-lookup-cache)
           (eq (car kkc-lookup-cache) kkc-lookup-cache-tag))
       (setq kkc-lookup-cache (list kkc-lookup-cache-tag)
@@ -207,9 +207,9 @@ area while indicating the current selection by `<N>'."
                  kkc-current-conversions-width nil
                  kkc-current-conversions (cons 0 nil)))))))
 
-(define-error 'kkc-error nil)
+(define-error 'kkc-error "kkc error")
 (defun kkc-error (&rest args)
-  (signal 'kkc-error (apply #'format-message args)))
+  (signal 'kkc-error (list (apply #'format-message args))))
 
 (defvar kkc-converting nil)