From f6d6d4ca56911e5229ca8aa649ed23aaaf570530 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 9 Dec 2012 03:08:57 +0400 Subject: [PATCH] Remove the use of `aget` that has creeped in See also c38c3aa, 38db5aa9fbf0f60dce63b83cab8f028bfcd152bd and 9de1c5f4fb6f281cfa4af869d393db76616cb42e#commitcomment-2265088 --- yasnippet.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/yasnippet.el b/yasnippet.el index 42227f1..2314b56 100644 --- a/yasnippet.el +++ b/yasnippet.el @@ -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])