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

[bpt/emacs.git] / lisp / help.el

diff --git a/lisp/help.el b/lisp/help.el
index 01a569a..8ba3d86 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -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