summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-17 00:05:34 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-17 00:05:34 +0200
commit397bb86ecd17794b220c6b6c81fe1b0f66c19ba6 (patch)
treedd69614aef2f467feaf1c5b5ee577bf25790bfa2
parent70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8 (diff)
downloadgeiser-chez-397bb86ecd17794b220c6b6c81fe1b0f66c19ba6.tar.gz
geiser-chez-397bb86ecd17794b220c6b6c81fe1b0f66c19ba6.tar.bz2
Whitespace.
-rw-r--r--elisp/geiser-doc.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 8024239..bece09e 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -165,7 +165,8 @@
(funcall geiser-doc--external-help-function symbol module)))
(defun geiser-doc--get-docstring (symbol module)
- (geiser-eval--send/result `(:eval ((:ge symbol-documentation) ',symbol) ,module)))
+ (geiser-eval--send/result
+ `(:eval ((:ge symbol-documentation) ',symbol) ,module)))
(defun geiser-doc--get-module-exports (module)
(geiser-eval--send/result `(:eval ((:ge module-exports) (:module ,module)))))
@@ -193,7 +194,8 @@
With prefix argument, ask for symbol (with completion)."
(interactive "P")
(let ((symbol (or (and (not arg) (symbol-at-point))
- (geiser-completion--read-symbol "Symbol: " (symbol-at-point)))))
+ (geiser-completion--read-symbol "Symbol: "
+ (symbol-at-point)))))
(when symbol (geiser-doc-symbol symbol))))
@@ -219,7 +221,8 @@ With prefix argument, ask for symbol (with completion)."
impl))
(goto-char (point-min))
(setq geiser-doc--buffer-link
- (geiser-doc--history-push (geiser-doc--make-link nil module impl))))
+ (geiser-doc--history-push
+ (geiser-doc--make-link nil module impl))))
(geiser-doc--pop-to-buffer))))
(defun geiser-doc-next (&optional forget-current)