From 8024de4585cccf89b54addf5e045b6830ae3244d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 1 Feb 1999 02:52:34 +0000 Subject: [PATCH] (quail-lookup-key): If cdr of MAP is a function, replace cdr of MAP by the return value of the function unconditionally. --- lisp/international/quail.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 83c24084b20..d873907e3a2 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -856,12 +856,10 @@ The returned value is a Quail map specific to KEY." (progn (setq quail-current-translations translation) (if (quail-forget-last-selection) - (setcar (car quail-current-translations) 0)))) - ;; We may have to reform cdr part of MAP. - (if (and (cdr map) (symbolp (cdr map))) - (progn - (setcdr map (funcall (cdr map) key len)))) - )) + (setcar (car quail-current-translations) 0)))))) + ;; We may have to reform cdr part of MAP. + (if (and (cdr map) (functionp (cdr map))) + (setcdr map (funcall (cdr map) key len))) map)) (put 'quail-error 'error-conditions '(quail-error error)) -- 2.39.2