diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-05 02:32:57 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-05 02:32:57 +0200 |
| commit | 8fa762ae053d6d2523e59f86c273f64cc421d8ad (patch) | |
| tree | d25055ace4e8ce541e4f335575d2298eb612d900 /elisp/geiser-xref.el | |
| parent | e1fbc2cf7fcd9a0bb77b1f9c0d8fe9d28102d6de (diff) | |
| download | geiser-guile-8fa762ae053d6d2523e59f86c273f64cc421d8ad.tar.gz geiser-guile-8fa762ae053d6d2523e59f86c273f64cc421d8ad.tar.bz2 | |
Guile: xref commands working again
Diffstat (limited to 'elisp/geiser-xref.el')
| -rw-r--r-- | elisp/geiser-xref.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el index 657cfbc..29bc008 100644 --- a/elisp/geiser-xref.el +++ b/elisp/geiser-xref.el @@ -1,6 +1,6 @@ ;; geiser-xref.el -- utilities for cross-referencing -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -54,7 +54,6 @@ geiser-xref-follow-link-method)))) (defun geiser-xref--insert-button (xref) - (message "inserting %s" xref) (let* ((location (cdr (assoc 'location xref))) (file (geiser-edit--location-file location)) (signature (cdr (assoc 'signature xref))) @@ -100,9 +99,9 @@ 'geiser-font-lock-xref-header) (newline 2) (setq last-module module)) - (geiser-xref--insert-button xref)))) - (geiser-xref--pop-to-buffer) - (goto-char (point-min)))) + (geiser-xref--insert-button xref))))) + (geiser-xref--pop-to-buffer) + (goto-char (point-min))) (defun geiser-xref--read-name (ask prompt) (let ((name (or (and (not ask) (symbol-at-point)) |