Mercurial > emacs
diff lisp/international/quail.el @ 24238:20d23ea9713b
(quail-lookup-key): If cdr of MAP is a
function, replace cdr of MAP by the return value of the function
unconditionally.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 01 Feb 1999 02:52:34 +0000 |
parents | 3a4d3e2418dc |
children | cef9cf0a46b4 |
line wrap: on
line diff
--- a/lisp/international/quail.el Sun Jan 31 21:53:14 1999 +0000 +++ b/lisp/international/quail.el Mon Feb 01 02:52:34 1999 +0000 @@ -856,12 +856,10 @@ (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))