summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-11 04:14:20 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-11 04:14:20 +0100
commit01f1baed879ebcaa5bb5023e9df38ff181610663 (patch)
tree27b0a7368ab817becc243aed79ee4bb432940e33
parentaaab7ec8c08f0fc62cf90119581765b41609ce1b (diff)
downloadgeiser-chez-01f1baed879ebcaa5bb5023e9df38ff181610663.tar.gz
geiser-chez-01f1baed879ebcaa5bb5023e9df38ff181610663.tar.bz2
Better (at least in US keyboards) default key (M-`) for module name completion.
-rw-r--r--README4
-rw-r--r--elisp/geiser-mode.el1
-rw-r--r--elisp/geiser-repl.el1
3 files changed, 4 insertions, 2 deletions
diff --git a/README b/README
index 97c2c7e..ee2a587 100644
--- a/README
+++ b/README
@@ -47,7 +47,7 @@
| C-cC-xf | See a generic's methods signatures |
|------------------+-------------------------------------------------|
| M-TAB | Complete symbol at point |
- | C-. | Complete module name at point |
+ | M-`, C-. | Complete module name at point |
| TAB | Complete symbol at point or indent |
| | (If `geiser-mode-smart-tab-p' is t) |
|------------------+-------------------------------------------------|
@@ -59,7 +59,7 @@
|--------------+-----------------------------------------|
| M-. | Edit symbol at point |
| TAB, M-TAB | Complete symbol at point |
- | C-. | Complete module name at point |
+ | M-`, C-. | Complete module name at point |
|--------------+-----------------------------------------|
| M-p, M-n | Prompt history, matching current prefix |
|--------------+-----------------------------------------|
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 4f6a584..cf43e00 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -182,6 +182,7 @@ interacting with the Geiser REPL is at your disposal.
(define-key geiser-mode-map "\C-c\C-k" 'geiser-compile-current-buffer)
(define-key geiser-mode-map (kbd "M-TAB") 'geiser-completion--complete-symbol)
+(define-key geiser-mode-map (kbd "M-`") 'geiser-completion--complete-module)
(define-key geiser-mode-map (kbd "C-.") 'geiser-completion--complete-module)
(define-key geiser-mode-map "\M-." 'geiser-edit-symbol-at-point)
(define-key geiser-mode-map "\M-," 'geiser-edit-pop-edit-symbol-stack)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 2f472f3..5a9a9fb 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -269,6 +269,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(define-key geiser-repl-mode-map (kbd "TAB") 'geiser-completion--complete-symbol)
(define-key geiser-repl-mode-map (kbd "M-TAB") 'geiser-completion--complete-symbol)
+(define-key geiser-repl-mode-map (kbd "M-`") 'geiser-completion--complete-module)
(define-key geiser-repl-mode-map (kbd "C-.") 'geiser-completion--complete-module)
(define-key geiser-repl-mode-map "\M-." 'geiser-edit-symbol-at-point)
(define-key geiser-repl-mode-map "\M-," 'geiser-edit-pop-edit-symbol-stack)