From 1e87980a965528177fef3cf97298f44ef02cbfc0 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 7 Mar 2010 05:16:20 +0100 Subject: New command to switch to REPL and put it in current module. --- elisp/geiser-mode.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-mode.el') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index d083973..3e0f522 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -1,6 +1,6 @@ ;; geiser-mode.el -- minor mode for scheme buffers -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -150,6 +150,12 @@ With prefix, recursively macro-expand the resulting expression." (geiser-impl--set-buffer-implementation impl) (geiser-repl--get-repl impl))) +(defun geiser-mode-switch-to-repl (arg) + "Switches to Geiser REPL. +With prefix, try to enter the current's buffer module." + (interactive "P") + (if arg (switch-to-geiser-module) (switch-to-geiser))) + ;;; Geiser mode: @@ -201,7 +207,7 @@ interacting with the Geiser REPL is at your disposal. (define-key geiser-mode-map (vector '(control ?c) `(control ,p) k) c) (define-key geiser-mode-map (vector '(control ?c) `(control ,p) `(control ,k)) c)) -(define-key geiser-mode-map "\C-c\C-z" 'switch-to-geiser) +(define-key geiser-mode-map "\C-c\C-z" 'geiser-mode-switch-to-repl) (define-key geiser-mode-map "\C-c\C-s" 'geiser-set-scheme) (define-key geiser-mode-map "\C-c\C-l" 'geiser-load-current-buffer) -- cgit v1.2.3