Commit 447a92e7 authored by Bastien Guerry's avatar Bastien Guerry
Browse files

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

parent 958d20d2
...@@ -666,16 +666,16 @@ POSITION is as documented in the function `key-binding'." ...@@ -666,16 +666,16 @@ POSITION is as documented in the function `key-binding'."
(not no-remap) (not no-remap)
(command-remapping found)) (command-remapping found))
;; The user might want to know in which map the binding is ;; 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. ;; default is to show the latter.
(key-binding-keymap (vector 'remap found)) (help--key-binding-keymap (vector 'remap found))
map)))) map))))
(defun help--binding-locus (key position) (defun help--binding-locus (key position)
"Describe in which keymap KEY is defined. "Describe in which keymap KEY is defined.
Return a symbol pointing to that keymap if one exists ; otherwise Return a symbol pointing to that keymap if one exists ; otherwise
return nil." return nil."
(let ((map (key-binding-keymap key t nil position))) (let ((map (help--key-binding-keymap key t nil position)))
(when map (when map
(catch 'found (catch 'found
(let ((advertised-syms (nconc (let ((advertised-syms (nconc
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment