summaryrefslogtreecommitdiff
path: root/elisp/geiser-popup.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-popup.el')
-rw-r--r--elisp/geiser-popup.el44
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)