summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 21:58:10 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 21:58:10 +0100
commit99c436f18a37a665156f130ab7de720b37c8cf90 (patch)
tree2d757a4645298692cfbbe279eaf88907885d8917
parent1099d5bb6da7b6d03f2f5a4f70d0a8c4bec5ceac (diff)
downloadgeiser-chez-99c436f18a37a665156f130ab7de720b37c8cf90.tar.gz
geiser-chez-99c436f18a37a665156f130ab7de720b37c8cf90.tar.bz2
Better bindings for M-p, M-n in geiser repl.
-rw-r--r--elisp/geiser-repl.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 1353019..e39284b 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -130,7 +130,6 @@ the Geiser REPL buffer."
(interactive)
(when (= (point) (comint-bol)) (beginning-of-line)))
-;;;###autoload
(define-derived-mode geiser-repl-mode comint-mode "Geiser REPL"
"Major mode for interacting with an inferior Guile repl process.
\\{geiser-repl-mode-map}"
@@ -141,7 +140,13 @@ the Geiser REPL buffer."
(define-key geiser-repl-mode-map "\C-cz" 'run-guile)
(define-key geiser-repl-mode-map "\C-c\C-z" 'run-guile)
(define-key geiser-repl-mode-map "\C-a" 'geiser-repl--bol)
-;; (define-key geiser-repl-mode-map "\C-ca" 'geiser-autodoc-mode)
+(define-key geiser-repl-mode-map "\C-ca" 'geiser-autodoc-mode)
+
+(define-key geiser-repl-mode-map "\M-p" 'comint-previous-matching-input-from-input)
+(define-key geiser-repl-mode-map "\M-n" 'comint-next-matching-input-from-input)
+(define-key geiser-repl-mode-map "\C-c\M-p" 'comint-previous-input)
+(define-key geiser-repl-mode-map "\C-c\M-n" 'comint-next-input))
+
;; (define-key geiser-repl-mode-map "\C-ch" 'geiser-help)
;; (define-key geiser-repl-mode-map "\C-cp" 'geiser-apropos)
;; (define-key geiser-repl-mode-map "\M-." 'geiser-edit-word-at-point)