summaryrefslogtreecommitdiff
path: root/elisp/geiser-xref.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-05 12:05:04 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-05 12:05:04 +0200
commit270eec81e4aaefd71c883a74cf0137e50fa2dad7 (patch)
tree1d2e29f7aeaeb862437edf7d8bf878c7bca66c6c /elisp/geiser-xref.el
parent7b422ed1885b0cbc903544b984de5b5e956a4147 (diff)
downloadgeiser-270eec81e4aaefd71c883a74cf0137e50fa2dad7.tar.gz
geiser-270eec81e4aaefd71c883a74cf0137e50fa2dad7.tar.bz2
Bug fix.
Diffstat (limited to 'elisp/geiser-xref.el')
-rw-r--r--elisp/geiser-xref.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index 57d006d..bcee443 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -76,7 +76,8 @@
:type 'geiser-xref--button
'location location
'name (car signature)
- 'help-echo (format "%s in %s" (car signature) file))
+ 'help-echo (format "%s in %s" (car signature)
+ file))
(insert (format "%s" signature)))
(fill-region p (point))
(save-excursion (goto-char p) (indent-sexp))
@@ -116,14 +117,17 @@
(and name (format "%s" name))))
(defun geiser-xref--fetch-xrefs (ask kind rkind proc)
- (let* ((name (geiser-xref--read-name (format "%s: " (capitalize kind)) ask))
+ (let* ((name (geiser-xref--read-name ask (format "%s: " (capitalize kind))))
(res (and name (geiser-eval--send/result
`(:eval ((:ge ,proc) (quote (:scm ,name))))))))
(message "Retrieving %ss list for '%s'..." rkind name)
(if (or (not res) (not (listp res)))
(message "No %ss found for '%s'" rkind name)
(message "")
- (geiser-xref--display-xrefs (format "%ss for '%s'" (capitalize rkind) name) res))))
+ (geiser-xref--display-xrefs (format "%ss for '%s'"
+ (capitalize rkind)
+ name)
+ res))))
;;; Buffer and mode: