diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-04 02:07:41 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-04 02:07:41 +0100 |
| commit | 902b7685194e9adfcd19d518a45dae3c4b13a90b (patch) | |
| tree | 5558ffadf7779ec3ff8238f9ea2a8b4bef5cbf1c /elisp/geiser-repl.el | |
| parent | a4b7db53db0d05b8a39c263715a296d64b4f64f4 (diff) | |
| download | geiser-chez-902b7685194e9adfcd19d518a45dae3c4b13a90b.tar.gz geiser-chez-902b7685194e9adfcd19d518a45dae3c4b13a90b.tar.bz2 | |
New geiser-reload command. New geiser command.
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index c542a66..304b0d4 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -158,9 +158,13 @@ REPL buffer." ;;; Interface: starting and interacting with geiser REPL: (defalias 'switch-to-guile 'run-guile) -(defalias 'switch-to-geiser-repl 'run-guile) -(defun run-guile (&optional arg) +(defun run-guile () + "Run Geiser using Guile." + (interactive) + (geiser 'guile)) + +(defun geiser (&optional implementation) "Show the geiser-repl buffer, starting the process if needed." (interactive) (let ((buf (process-buffer (geiser-repl--process t))) @@ -223,6 +227,16 @@ REPL buffer." (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) + +;;; Unload: + +(defun geiser-repl--live-p () + (buffer-live-p geiser-repl--buffer)) + +(defun geiser-repl-unload-function () + (when (geiser-repl--live-p) + (kill-buffer geiser-repl--buffer)) + t) (provide 'geiser-repl) |