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-popup.el | 44 ++++++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 22 deletions(-) (limited to 'elisp/geiser-popup.el') 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) -- cgit v1.2.3