Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv6017
Modified Files: packages.lisp gui.lisp Log Message: Implement `frame-current-buffer' and define and export `current-mark'.
--- /project/climacs/cvsroot/climacs/packages.lisp 2006/09/02 21:43:56 1.113 +++ /project/climacs/cvsroot/climacs/packages.lisp 2006/09/03 21:23:29 1.114 @@ -334,6 +334,7 @@ #:current-point #:current-buffer #:current-point + #:current-mark #:point #:syntax #:mark --- /project/climacs/cvsroot/climacs/gui.lisp 2006/08/20 13:06:39 1.228 +++ /project/climacs/cvsroot/climacs/gui.lisp 2006/09/03 21:23:29 1.229 @@ -202,7 +202,11 @@ "Return the current panes point." (point (current-window)))
-(defmethod current-buffer ((application-frame climacs)) +(defun current-mark () + "Return the current panes mark." + (mark (current-window))) + +(defmethod frame-current-buffer ((application-frame climacs)) "Return the current buffer." (buffer (car (windows application-frame))))