diff options
author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 14:48:04 +0100 |
---|---|---|
committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
commit | a11b96fe58a2579e15bfcb642f01e0059da59a87 (patch) | |
tree | 1aa54d25325a9023b1af7cd09d8ed182f1c5b43a /elisp/geiser-repl.el | |
parent | 2a7b84b3cd9e58bba064077af78b53abd30766f6 (diff) | |
download | geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.gz geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.bz2 |
Fix indentation
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r-- | elisp/geiser-repl.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 296b3ca..cfc4123 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -408,9 +408,9 @@ module command as a string") (add-text-properties start end '(font-lock-fontified t - fontified t - font-lock-multiline t - font-lock-face geiser-font-lock-repl-output))) + fontified t + font-lock-multiline t + font-lock-face geiser-font-lock-repl-output))) (defun geiser-repl--narrow-to-prompt () "Narrow to active prompt region and return t, otherwise returns nil." @@ -572,9 +572,9 @@ module command as a string") (defun geiser-repl--connection* () (let ((buffer (geiser-repl--set-up-repl geiser-impl--implementation))) - (and (buffer-live-p buffer) - (get-buffer-process buffer) - (with-current-buffer buffer geiser-repl--connection)))) + (and (buffer-live-p buffer) + (get-buffer-process buffer) + (with-current-buffer buffer geiser-repl--connection)))) (defun geiser-repl--connection () (or (geiser-repl--connection*) @@ -701,7 +701,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history." (defun geiser-repl--module-function (&optional module) (if (and module geiser-eval--get-impl-module) (funcall geiser-eval--get-impl-module module) - :f)) + :f)) (defun geiser-repl--doc-module () (interactive) @@ -936,7 +936,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (geiser-connect impl (geiser-repl--host) (geiser-repl--port))) ((geiser-repl--local-p) (geiser-connect-local impl geiser-repl--address)) - (impl (run-geiser impl)) + (impl (run-geiser impl)) (t (call-interactively 'run-geiser))) (geiser-repl--maybe-remember-scm-buffer buffer))) |