Mercurial > emacs
changeset 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 | 16e5582ed876 |
| children | e6c0e87123a7 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
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))