Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki 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))