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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee05404c36a8a3eb37eb0121cba0c2b89068eb40..1611261964b3b804e24d80d015044559c7818f47 100644 (file)
--- 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 b1e8fa5ebb58989522709eab797af0a3e54daadc..3eb4b4babf2531b3b4d057bcfae82176f9e89361 100644 (file)
--- 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