summaryrefslogtreecommitdiff
path: root/elisp/geiser-popup.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-08 20:43:11 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-08 20:43:11 +0200
commit97b953d0bbf6162ab15ccff8af0b9891922ab491 (patch)
treea73aa9f71622d32c46212ca6d3e2c5d66d0421d3 /elisp/geiser-popup.el
parenta1820b134b3bdf90a55ebd93606892926145bda7 (diff)
downloadgeiser-97b953d0bbf6162ab15ccff8af0b9891922ab491.tar.gz
geiser-97b953d0bbf6162ab15ccff8af0b9891922ab491.tar.bz2
Avoiding old-style backquotes during compilation of geiser-popup.el.
Diffstat (limited to 'elisp/geiser-popup.el')
-rw-r--r--elisp/geiser-popup.el10
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)