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)