From 8190670d6c47aea92871bc6f196dbc2c05904812 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 9 Feb 2009 21:58:10 +0100 Subject: Better bindings for M-p, M-n in geiser repl. --- elisp/geiser-repl.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-repl.el') 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) -- cgit v1.2.3