summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
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
commitd3fc72a4441c6b4f0d447e7a205b469dbb7b78a6 (patch)
tree8ada8ef54a530b7338965433597eb02215c5a7bb /elisp/geiser-doc.el
parent85838e68615303ec37832272a398fa8d4f474962 (diff)
downloadgeiser-d3fc72a4441c6b4f0d447e7a205b469dbb7b78a6.tar.gz
geiser-d3fc72a4441c6b4f0d447e7a205b469dbb7b78a6.tar.bz2
Whitespace.
Diffstat (limited to 'elisp/geiser-doc.el')
-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)