[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv16417

Modified Files:
	gui.lisp 
Log Message:
Added `current-point' and `current-buffer' convenience functions.


--- /project/climacs/cvsroot/climacs/gui.lisp	2006/03/25 22:29:12	1.205
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/03/26 14:17:04	1.206
@@ -180,6 +180,14 @@
 (defun current-window ()
   (car (windows *application-frame*)))
 
+(defun current-point ()
+  "Return the current panes point."
+  (point (current-window)))
+
+(defun current-buffer ()
+  "Return the current buffer."
+  (buffer (current-window)))
+
 (defmethod redisplay-frame-panes :around ((frame climacs) &rest args)
   (declare (ignore args))
   (let ((buffers (remove-duplicates (loop for pane in (windows frame)