Avoiding old-style backquotes during compilation of geiser-popup.el.

1 files changed, 4 insertions, 6 deletions

diff --git a/elisp/geiser-popup.el b/elisp/geiser-popup.el
index a9a7b5f..582d5a3 100644
--- a/elisp/geiser-popup.el
+++ b/elisp/geiser-popup.el
@@ -42,20 +42,18 @@
      (defun ,get-buff ()
        (or (get-buffer ,name)
            (with-current-buffer (get-buffer-create ,name)
-             (,mode)
+             (funcall ',mode)
              (geiser-popup--setup-view-mode)
              (current-buffer))))
      (defun ,pop-buff (&optional ,method)
-       (let ((,buffer (,get-buff)))
+       (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)
-       (let ((buff ',get-buff))
-         `(with-current-buffer (funcall ',buff)
-            (let ((inhibit-read-only t))
-              ,@body))))
+       (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)