mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +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 (progn
(setq quail-current-translations translation) (setq quail-current-translations translation)
(if (quail-forget-last-selection) (if (quail-forget-last-selection)
(setcar (car quail-current-translations) 0)))) (setcar (car quail-current-translations) 0))))))
;; We may have to reform cdr part of MAP. ;; We may have to reform cdr part of MAP.
(if (and (cdr map) (symbolp (cdr map))) (if (and (cdr map) (functionp (cdr map)))
(progn (setcdr map (funcall (cdr map) key len)))
(setcdr map (funcall (cdr map) key len))))
))
map)) map))
(put 'quail-error 'error-conditions '(quail-error error)) (put 'quail-error 'error-conditions '(quail-error error))