From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 18 Jan 2008 03:19:07 +0000 (+0000)
Subject: (icomplete-get-keys): Look up KEYS using all maps in proper buffer.
X-Git-Tag: emacs-pretest-22.1.90~72
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4afd234b27f785b58c120f007fdb981c196a78b5;p=emacs.git

(icomplete-get-keys): Look up KEYS using all maps in proper buffer.
---

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  <rms@gnu.org>
+
+	* icomplete.el (icomplete-get-keys):
+	Look up KEYS using all maps in proper buffer.
+
 2008-01-17 Vinicius Jose Latorre <viniciusjl@ig.com.br>
 2008-01-17 Miles Bader <miles@gnu.org>
 
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