Whitespace

1 files changed, 18 insertions, 11 deletions

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 927a9b9..229c3ea 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -68,17 +68,20 @@ active when `geiser-mode' is activated in a buffer."
   :type 'boolean)
 
 (geiser-custom--defcustom geiser-mode-eval-to-buffer-prefix " "
-  "When `geiser-mode-eval-last-sexp-to-buffer', the prefix string which will prepend to results"
+  "When `geiser-mode-eval-last-sexp-to-buffer', the prefix string
+which will be prepended to results."
   :group 'geiser-mode
   :type 'string)
 
 (geiser-custom--defcustom geiser-mode-eval-to-buffer-transformer nil
-  "When `geiser-mode-eval-last-sexp-to-buffer', the result will be transformed using this function
-default behavior is just prepend with `geiser-mode-eval-to-buffer-prefix'
-takes two arguments: `msg' and `is-error?' 
-`msg' is the result string going to be transformed, 
-`is-error?' is a bool indicate whether the result is an error msg 
-"
+  "Transformer for results inserted in debug buffer.
+
+When `geiser-mode-eval-last-sexp-to-buffer', the result will be
+transformed using this function default behavior is just prepend
+with `geiser-mode-eval-to-buffer-prefix' takes two arguments:
+`msg' and `is-error?'  `msg' is the result string going to be
+transformed, `is-error?' is a boolean indicating whether the
+result is an error msg."
   :group 'geiser-mode
   :type 'function)
 
@@ -161,8 +164,10 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' "
                                  (point)))
 	 (ret-transformer (or geiser-mode-eval-to-buffer-transformer
 			      (lambda (msg is-error?)
-				(format "%s%s%s" geiser-mode-eval-to-buffer-prefix
-					(if is-error? "ERROR" "") msg))))
+				(format "%s%s%s"
+                                        geiser-mode-eval-to-buffer-prefix
+					(if is-error? "ERROR" "")
+                                        msg))))
          (ret (save-excursion
                 (geiser-eval-region bosexp ;beginning of sexp
                                     eosexp ;end of sexp
@@ -173,9 +178,11 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' "
 	 (will-eval-to-buffer (if print-to-buffer-p
 				  (not geiser-mode-eval-last-sexp-to-buffer)
 				geiser-mode-eval-last-sexp-to-buffer))
-	 (str (geiser-eval--retort-result-str ret (when will-eval-to-buffer ""))))
+	 (str (geiser-eval--retort-result-str ret
+                                              (when will-eval-to-buffer ""))))
     (cond  ((not will-eval-to-buffer) str)
-	   (err (insert (funcall ret-transformer (geiser-eval--error-str err) t)))
+	   (err (insert (funcall ret-transformer
+                                 (geiser-eval--error-str err) t)))
 	   ((string= "" str))
 	   (t (push-mark)
               (insert (funcall ret-transformer str nil))))))