diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 00:55:41 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 00:55:41 +0100 |
| commit | 951afdb151c05586701920cb767ab58526464bda (patch) | |
| tree | c17c1611aae3d7a371bf9e2932a7b3dcf7499f18 /elisp/geiser-xref.el | |
| parent | 038ed78d546d9d0112e9cdd568cc1a7bf11c7c81 (diff) | |
| download | geiser-951afdb151c05586701920cb767ab58526464bda.tar.gz geiser-951afdb151c05586701920cb767ab58526464bda.tar.bz2 | |
A bit more robust generic methods.
Diffstat (limited to 'elisp/geiser-xref.el')
| -rw-r--r-- | elisp/geiser-xref.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el index 62375e0..f0920d8 100644 --- a/elisp/geiser-xref.el +++ b/elisp/geiser-xref.el @@ -63,18 +63,17 @@ (geiser-edit--try-edit-location name location geiser-xref-follow-link-method)))) (defun geiser-xref--insert-button (xref) - (let ((location (cdr (assoc 'location xref))) - (signature (cdr (assoc 'signature xref)))) + (let* ((location (cdr (assoc 'location xref))) + (file (geiser-edit--location-file location)) + (signature (cdr (assoc 'signature xref)))) (when signature (insert "\t") - (if location + (if (stringp file) (insert-text-button (format "%s" signature) :type 'geiser-xref--button 'location location 'name (car signature) - 'help-echo (format "%s in %s" - (car signature) - (geiser-edit--location-file location))) + 'help-echo (format "%s in %s" (car signature) file)) (insert (format "%s" signature))) (newline)))) |