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 | fd07233907c42f149f570bd8cfdb065c92088e77 (patch) | |
| tree | ff8c98209664ef05050bc110e41309c47074c66d | |
| parent | 44b7ffdab9445d7234db55595089272cb2793216 (diff) | |
| download | geiser-fd07233907c42f149f570bd8cfdb065c92088e77.tar.gz geiser-fd07233907c42f149f570bd8cfdb065c92088e77.tar.bz2 | |
Guile: xref commands working again
| -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)) |