summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-02-25 14:48:04 +0100
committerJonas Bernoulli <jonas@bernoul.li>2020-03-27 21:38:45 +0100
commita11b96fe58a2579e15bfcb642f01e0059da59a87 (patch)
tree1aa54d25325a9023b1af7cd09d8ed182f1c5b43a /elisp/geiser-repl.el
parent2a7b84b3cd9e58bba064077af78b53abd30766f6 (diff)
downloadgeiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.gz
geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.bz2
Fix indentation
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el16
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)))