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

diff --git a/lisp/help.el b/lisp/help.el
index 01a569a67106f814de4410fb4ab540a26294b39a..8ba3d86004b354d407c248492c92c3bb9fca08e5 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