diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-05 12:05:04 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-05 12:05:04 +0200 |
| commit | 270eec81e4aaefd71c883a74cf0137e50fa2dad7 (patch) | |
| tree | 1d2e29f7aeaeb862437edf7d8bf878c7bca66c6c /elisp | |
| parent | 7b422ed1885b0cbc903544b984de5b5e956a4147 (diff) | |
| download | geiser-270eec81e4aaefd71c883a74cf0137e50fa2dad7.tar.gz geiser-270eec81e4aaefd71c883a74cf0137e50fa2dad7.tar.bz2 | |
Bug fix.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-xref.el | 10 |
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: |