diff options
| author | Bastien Guerry | 2014-06-13 11:00:08 +0200 |
|---|---|---|
| committer | Bastien Guerry | 2014-06-13 11:00:08 +0200 |
| commit | 447a92e7f7552f4668280a4e003a1bc3c21c4592 (patch) | |
| tree | afca89a5ea3de99cdd8aa72de69defc3ccaa9912 | |
| parent | 958d20d22a5e9b997de0bf7cc63436dc82486111 (diff) | |
| download | emacs-447a92e7f7552f4668280a4e003a1bc3c21c4592.tar.gz emacs-447a92e7f7552f4668280a4e003a1bc3c21c4592.zip | |
Fix previous revision (2014-06-12T15:54:37Z!theonewiththeevillook@yahoo.fr)
| -rw-r--r-- | lisp/help.el | 6 |
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. |
| 676 | Return a symbol pointing to that keymap if one exists ; otherwise | 676 | Return a symbol pointing to that keymap if one exists ; otherwise |
| 677 | return nil." | 677 | return 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 |