diff options
Diffstat (limited to 'elisp/geiser-xref.el')
| -rw-r--r-- | elisp/geiser-xref.el | 26 |
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))) |