From 7de903e816e2ca6060f4491cbad7d7ed82188f2b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 11 Apr 2025 12:38:15 +0200 Subject: [PATCH] kkc.el: Fix a couple of bugs. --- lisp/international/kkc.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 `'." (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 `'." 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) -- 2.39.5