Remove the use of aget that has creeped in

See also c38c3aa, 38db5aa9fbf0f60dce63b83cab8f028bfcd152bd and
9de1c5f4fb6f281cfa4af869d393db76616cb42e#commitcomment-2265088
This commit is contained in:
Dmitry Gutov 2012-12-09 03:08:57 +04:00
parent 4f99f9dc20
commit f6d6d4ca56

View File

@ -136,7 +136,6 @@
(require 'cl)
(require 'easymenu)
(require 'help-mode)
(require 'assoc)
(eval-when-compile
(defvar yas--editing-template)
@ -2302,7 +2301,7 @@ vector of keys. FIXME not thoroughly tested"
(while (and (< j (length keys))
translated
(keymapp translated))
(setq translated (aget (remove 'keymap translated) (aref keys j))
(setq translated (cdr (assoc (aref keys j) (remove 'keymap translated)))
j (1+ j)))
(setq retval (vconcat retval (cond ((symbolp translated)
`[,translated])