From 4afd234b27f785b58c120f007fdb981c196a78b5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 Jan 2008 03:19:07 +0000 Subject: [PATCH] (icomplete-get-keys): Look up KEYS using all maps in proper buffer. --- lisp/ChangeLog | 5 +++++ lisp/icomplete.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee05404c36a..1611261964b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-01-18 Richard Stallman + + * icomplete.el (icomplete-get-keys): + Look up KEYS using all maps in proper buffer. + 2008-01-17 Vinicius Jose Latorre 2008-01-17 Miles Bader diff --git a/lisp/icomplete.el b/lisp/icomplete.el index b1e8fa5ebb5..3eb4b4babf2 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -147,8 +147,7 @@ is minibuffer." (save-excursion (let* ((sym (intern func-name)) (buf (other-buffer nil t)) - (map (save-excursion (set-buffer buf) (current-local-map))) - (keys (where-is-internal sym map))) + (keys (with-current-buffer buf (where-is-internal sym)))) (if keys (concat "<" (mapconcat 'key-description -- 2.39.2