summaryrefslogtreecommitdiff
path: root/elisp/geiser-xref.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-xref.el')
-rw-r--r--elisp/geiser-xref.el26
1 files changed, 13 insertions, 13 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index 432aa4a..65a57b3 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -107,19 +107,19 @@
(defun geiser-xref--display-xrefs (header xrefs)
(geiser-xref--with-buffer
- (erase-buffer)
- (geiser--insert-with-face header 'geiser-font-lock-xref-header)
- (newline)
- (let ((last-module))
- (dolist (xref (sort xrefs 'geiser-xref--module<))
- (let ((module (format "%s" (cdr (assoc "module" xref)))))
- (when (not (equal module last-module))
- (insert "\n In module ")
- (geiser--insert-with-face (format "%s" module)
- 'geiser-font-lock-xref-header)
- (newline 2)
- (setq last-module module))
- (geiser-xref--insert-button xref)))))
+ (erase-buffer)
+ (geiser--insert-with-face header 'geiser-font-lock-xref-header)
+ (newline)
+ (let ((last-module))
+ (dolist (xref (sort xrefs 'geiser-xref--module<))
+ (let ((module (format "%s" (cdr (assoc "module" xref)))))
+ (when (not (equal module last-module))
+ (insert "\n In module ")
+ (geiser--insert-with-face (format "%s" module)
+ '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)))