From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 11 Apr 2025 10:38:15 +0000 (+0200)
Subject: kkc.el: Fix a couple of bugs.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7de903e816e2ca6060f4491cbad7d7ed82188f2b;p=emacs.git

kkc.el: Fix a couple of bugs.
---

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 6d603cf831a..7b21491d3d9 100644
--- 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)