mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(quail-lookup-key): If cdr of MAP is a

Browse Source 
function, replace cdr of MAP by the return value of the function
unconditionally.
This commit is contained in:
Kenichi Handa 1999-02-01 02:52:34 +00:00
parent 7fef47a389
commit 8024de4585
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/international/quail.el
View File

@ -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))