# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1200626240 0
# Node ID 63a2e3bc921c6e5d20bc85d62c71b9643943bbc4
# Parent  3c3f589ec4b610609bc5a7b9419ff97e573beb2b
(icomplete-get-keys): Look up KEYS using all maps in proper buffer.

diff -r 3c3f589ec4b6 -r 63a2e3bc921c lisp/icomplete.el
--- a/lisp/icomplete.el	Thu Jan 17 15:23:38 2008 +0000
+++ b/lisp/icomplete.el	Fri Jan 18 03:17:20 2008 +0000
@@ -147,8 +147,7 @@
     (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