Fix indentation

1 files changed, 22 insertions, 22 deletions

diff --git a/elisp/geiser-popup.el b/elisp/geiser-popup.el
index 9db085f..7af5f67 100644
--- a/elisp/geiser-popup.el
+++ b/elisp/geiser-popup.el
@@ -30,9 +30,9 @@
   (set (make-local-variable 'minor-mode-overriding-map-alist)
        (list (cons 'view-mode geiser-popup--overriding-map)))
   (setq view-exit-action
-	(lambda (buffer)
-	  (with-current-buffer buffer
-	    (bury-buffer)))))
+        (lambda (buffer)
+          (with-current-buffer buffer
+            (bury-buffer)))))
 
 (defmacro geiser-popup--define (base name mode)
   (let ((get-buff (intern (format "geiser-%s--buffer" base)))
@@ -40,25 +40,25 @@
         (with-macro (intern (format "geiser-%s--with-buffer" base)))
         (method (make-symbol "method"))
         (buffer (make-symbol "buffer")))
-  `(progn
-     (add-to-list 'geiser-popup--registry ,name)
-     (defun ,get-buff ()
-       (or (get-buffer ,name)
-           (with-current-buffer (get-buffer-create ,name)
-             (funcall ',mode)
-             (geiser-popup--setup-view-mode)
-             (current-buffer))))
-     (defun ,pop-buff (&optional ,method)
-       (let ((,buffer (funcall ',get-buff)))
-         (unless (eq ,buffer (current-buffer))
-           (cond ((eq ,method 'buffer) (view-buffer ,buffer))
-                 ((eq ,method 'frame) (view-buffer-other-frame ,buffer))
-                 (t (view-buffer-other-window ,buffer))))))
-     (defmacro ,with-macro (&rest body)
-       (declare (debug (&rest form)))
-       (list 'with-current-buffer (list ',get-buff)
-             (cons 'let (cons '((inhibit-read-only t)) body))))
-     (put ',with-macro 'lisp-indent-function 'defun))))
+    `(progn
+       (add-to-list 'geiser-popup--registry ,name)
+       (defun ,get-buff ()
+	 (or (get-buffer ,name)
+             (with-current-buffer (get-buffer-create ,name)
+               (funcall ',mode)
+               (geiser-popup--setup-view-mode)
+               (current-buffer))))
+       (defun ,pop-buff (&optional ,method)
+	 (let ((,buffer (funcall ',get-buff)))
+           (unless (eq ,buffer (current-buffer))
+             (cond ((eq ,method 'buffer) (view-buffer ,buffer))
+                   ((eq ,method 'frame) (view-buffer-other-frame ,buffer))
+                   (t (view-buffer-other-window ,buffer))))))
+       (defmacro ,with-macro (&rest body)
+	 (declare (debug (&rest form)))
+	 (list 'with-current-buffer (list ',get-buff)
+               (cons 'let (cons '((inhibit-read-only t)) body))))
+       (put ',with-macro 'lisp-indent-function 'defun))))
 
 (put 'geiser-popup--define 'lisp-indent-function 1)