diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-11 04:08:42 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-11 04:08:42 +0100 |
| commit | aaab7ec8c08f0fc62cf90119581765b41609ce1b (patch) | |
| tree | d98d39e464dd3f0aacdaebda91e184054c447468 /elisp | |
| parent | 24e2adca8be0e5b4f08a3434c29591cba83d73dd (diff) | |
| download | geiser-guile-aaab7ec8c08f0fc62cf90119581765b41609ce1b.tar.gz geiser-guile-aaab7ec8c08f0fc62cf90119581765b41609ce1b.tar.bz2 | |
Guilisms removed from geiser-repl.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-repl.el | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 7872eb0..2f472f3 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -41,19 +41,6 @@ "Interacting with the Geiser REPL." :group 'geiser) -(defcustom geiser-repl-guile-binary - (cond ((eq system-type 'windows-nt) "guile.exe") - ((eq system-type 'darwin) "guile") - (t "guile")) - "Name to use to call the Guile executable when starting a REPL." - :type 'string - :group 'geiser-repl) - -(defcustom geiser-repl-guile-init-file "~/.guile-geiser" - "Initialization file with user code for the Guile REPL." - :type 'string - :group 'geiser-repl) - (defcustom geiser-repl-use-other-window t "Whether to Use a window other than the current buffer's when switching to the Geiser REPL buffer." @@ -255,7 +242,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (defun geiser-repl--module-function (&optional ignore) :f) (define-derived-mode geiser-repl-mode comint-mode "Geiser REPL" - "Major mode for interacting with an inferior Guile repl process. + "Major mode for interacting with an inferior scheme repl process. \\{geiser-repl-mode-map}" (set (make-local-variable 'mode-line-process) nil) (set (make-local-variable 'comint-use-prompt-regexp) t) @@ -266,8 +253,8 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (setq geiser-eval--get-module-function 'geiser-repl--module-function) (when geiser-repl-autodoc-p (geiser-autodoc-mode 1))) -(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-cz" 'run-geiser) +(define-key geiser-repl-mode-map "\C-c\C-z" 'run-geiser) (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-cd" 'geiser-doc-symbol-at-point) |