summaryrefslogtreecommitdiff
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
commit61bf896d30078dcc5f0862e2198db250efb4336c (patch)
tree4d307bca6e036a782cda22ef2a04ecef221abe36
parent7a854d62eaebd9cf7173fefd838a4cbb7601701a (diff)
downloadgeiser-guile-61bf896d30078dcc5f0862e2198db250efb4336c.tar.gz
geiser-guile-61bf896d30078dcc5f0862e2198db250efb4336c.tar.bz2
Avoiding old-style backquotes during compilation of 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)