From 01f1baed879ebcaa5bb5023e9df38ff181610663 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 11 Mar 2009 04:14:20 +0100 Subject: Better (at least in US keyboards) default key (M-`) for module name completion. --- README | 4 ++-- elisp/geiser-mode.el | 1 + elisp/geiser-repl.el | 1 + 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) -- cgit v1.2.3