diff options
| author | Eli Zaretskii | 2012-04-07 11:12:04 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2012-04-07 11:12:04 +0300 |
| commit | 82b24fb2792e5f15cb6dfa1a74bfd0ac6a40b4de (patch) | |
| tree | 893bb3e6b1f290964c05d77590040b4152894a6d | |
| parent | 2f8e16b2a3c5782a3c8266cc76fbba80d506b93d (diff) | |
| download | emacs-82b24fb2792e5f15cb6dfa1a74bfd0ac6a40b4de.tar.gz emacs-82b24fb2792e5f15cb6dfa1a74bfd0ac6a40b4de.zip | |
Fix bug #11182 with the effect of typing '?' in Shell mode.
lisp/minibuffer.el (completion-in-region-mode-map): Bind
completion-help-at-point to M-? rather than ?.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9c7ba8541df..bf235638416 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-04-07 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * minibuffer.el (completion-in-region-mode-map): Bind | ||
| 4 | completion-help-at-point to M-? rather than ?. (Bug#11182) | ||
| 5 | |||
| 1 | 2012-04-05 Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | 2012-04-05 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 7 | ||
| 3 | * window.el (shrink-window): Mention the `window-min-height' | 8 | * window.el (shrink-window): Mention the `window-min-height' |
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index bcc6a808d22..db7743970d4 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -1506,7 +1506,7 @@ exit." | |||
| 1506 | (let ((map (make-sparse-keymap))) | 1506 | (let ((map (make-sparse-keymap))) |
| 1507 | ;; FIXME: Only works if completion-in-region-mode was activated via | 1507 | ;; FIXME: Only works if completion-in-region-mode was activated via |
| 1508 | ;; completion-at-point called directly. | 1508 | ;; completion-at-point called directly. |
| 1509 | (define-key map "?" 'completion-help-at-point) | 1509 | (define-key map "\M-?" 'completion-help-at-point) |
| 1510 | (define-key map "\t" 'completion-at-point) | 1510 | (define-key map "\t" 'completion-at-point) |
| 1511 | map) | 1511 | map) |
| 1512 | "Keymap activated during `completion-in-region'.") | 1512 | "Keymap activated during `completion-in-region'.") |