mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2008-01-18 03:19:07 +00:00
parent d616968003
commit 4afd234b27
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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>

3
lisp/icomplete.el
View File

@ -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