
Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv6956 Modified Files: esa-buffer.lisp Log Message: Pass on arguments from `create-new-buffer' to `frame-create-new-buffer'. --- /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2006/11/08 01:10:16 1.1 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2007/11/13 13:05:38 1.2 @@ -32,9 +32,9 @@ (defgeneric frame-make-new-buffer (application-frame &key &allow-other-keys) (:documentation "Create a empty buffer for the application frame.")) -(defun make-new-buffer (&key &allow-other-keys) +(defun make-new-buffer (&rest args &key &allow-other-keys) "Create a empty buffer for the current frame." - (frame-make-new-buffer *application-frame*)) + (apply #'frame-make-new-buffer *application-frame* args)) (defgeneric frame-save-buffer-to-stream (application-frame buffer stream) (:documentation "Save the entire BUFFER to STREAM in the appropriate
participants (1)
-
thenriksen