diff options
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/kkc.el | 2 | ||||
| -rw-r--r-- | lisp/international/quail.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index a7d3ac5d017..13833fad66b 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -207,7 +207,7 @@ area while indicating the current selection by `<N>'." kkc-current-conversions-width nil kkc-current-conversions (cons 0 nil))))))) -(put 'kkc-error 'error-conditions '(kkc-error error)) +(define-error 'kkc-error nil) (defun kkc-error (&rest args) (signal 'kkc-error (apply 'format args))) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 68fffc0e817..245f7975d91 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1301,7 +1301,7 @@ The returned value is a Quail map specific to KEY." (setcdr map (funcall (cdr map) key len))) map)) -(put 'quail-error 'error-conditions '(quail-error error)) +(define-error 'quail-error nil) (defun quail-error (&rest args) (signal 'quail-error (apply 'format args))) |