[climacs-cvs] CVS climacs

[thenriksen]

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))))