 ;; geiser-popup.el -- popup windows
 
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should

  (let ((get-buff (intern (format "geiser-%s--buffer" base)))
        (pop-buff (intern (format "geiser-%s--pop-to-buffer" base)))
        (with-macro (intern (format "geiser-%s--with-buffer" base)))
        (method (make-symbol "method")))
  `(progn
     (add-to-list 'geiser-popup--registry ,name)
     (defun ,get-buff ()
       (or (get-buffer ,name)
           (with-current-buffer (get-buffer-create ,name)
             (,mode)
             (geiser-popup-mode)
             (current-buffer))))
     (defun ,pop-buff (&optional ,method)
       (cond ((eq ,method 'buffer) (switch-to-buffer (,get-buff)))
             ((eq ,method 'frame) (switch-to-buffer-other-frame (,get-buff)))
             (t (geiser-popup--display (,get-buff)))))
     (defmacro ,with-macro (&rest body)
       (let ((buff ',get-buff))
         `(with-current-buffer (funcall ',buff)

;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.

;; Start date: Sat Feb 07, 2009 14:05


