aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBastien Guerry2014-06-13 11:00:08 +0200
committerBastien Guerry2014-06-13 11:00:08 +0200
commit447a92e7f7552f4668280a4e003a1bc3c21c4592 (patch)
treeafca89a5ea3de99cdd8aa72de69defc3ccaa9912
parent958d20d22a5e9b997de0bf7cc63436dc82486111 (diff)
downloademacs-447a92e7f7552f4668280a4e003a1bc3c21c4592.tar.gz
emacs-447a92e7f7552f4668280a4e003a1bc3c21c4592.zip
Fix previous revision (2014-06-12T15:54:37Z!theonewiththeevillook@yahoo.fr)
-rw-r--r--lisp/help.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el
index 01a569a6710..8ba3d86004b 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -666,16 +666,16 @@ POSITION is as documented in the function `key-binding'."
666 (not no-remap) 666 (not no-remap)
667 (command-remapping found)) 667 (command-remapping found))
668 ;; The user might want to know in which map the binding is 668 ;; The user might want to know in which map the binding is
669 ;; found, or in which map the remapping is found. The 669 ;; found, or in which map the remapping is found. The
670 ;; default is to show the latter. 670 ;; default is to show the latter.
671 (key-binding-keymap (vector 'remap found)) 671 (help--key-binding-keymap (vector 'remap found))
672 map)))) 672 map))))
673 673
674(defun help--binding-locus (key position) 674(defun help--binding-locus (key position)
675 "Describe in which keymap KEY is defined. 675 "Describe in which keymap KEY is defined.
676Return a symbol pointing to that keymap if one exists ; otherwise 676Return a symbol pointing to that keymap if one exists ; otherwise
677return nil." 677return nil."
678 (let ((map (key-binding-keymap key t nil position))) 678 (let ((map (help--key-binding-keymap key t nil position)))
679 (when map 679 (when map
680 (catch 'found 680 (catch 'found
681 (let ((advertised-syms (nconc 681 (let ((advertised-syms (nconc