procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix previous revision (2014-06-12T15:54:37Z!theonewiththeevillook@yahoo.fr)

Browse source
This commit is contained in:
Bastien Guerry 2014-06-13 11:00:08 +02:00
parent 958d20d22a
commit 447a92e7f7
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/help.el
View file

@ -666,16 +666,16 @@ POSITION is as documented in the function `key-binding'."
(not no-remap)
(command-remapping found))
;; The user might want to know in which map the binding is
;; found, or in which map the remapping is found. The
;; found, or in which map the remapping is found. The
;; default is to show the latter.
(key-binding-keymap (vector 'remap found))
(help--key-binding-keymap (vector 'remap found))
map))))
(defun help--binding-locus (key position)
"Describe in which keymap KEY is defined.
Return a symbol pointing to that keymap if one exists ; otherwise
return nil."
(let ((map (key-binding-keymap key t nil position)))
(let ((map (help--key-binding-keymap key t nil position)))
(when map
(catch 'found
(let ((advertised-syms (nconc