From a11b96fe58a2579e15bfcb642f01e0059da59a87 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Tue, 25 Feb 2020 14:48:04 +0100 Subject: Fix indentation --- elisp/geiser-xref.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'elisp/geiser-xref.el') 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))) -- cgit v1.2.3