[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv11892/clfswm/clfswm

Modified Files:
	bindings-pager.lisp 
Log Message:
Change in pager documentation

--- /project/clfswm/cvsroot/clfswm/bindings-pager.lisp	2008/01/03 20:31:24	1.7
+++ /project/clfswm/cvsroot/clfswm/bindings-pager.lisp	2008/01/04 22:57:22	1.8
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Thu Jan  3 00:26:05 2008
+;;; #Date#: Fri Jan  4 23:56:09 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Bindings keys and mouse for pager mode
@@ -146,7 +146,7 @@
 
 (define-pager-key ("Up")
     (defun b-pager-move-or-pack-up ()
-      "Move, pack, fill or resize group up"
+      "Move cursor, pack, fill or resize group up"
       (let ((action *pager-arrow-action*))
 	(setf *pager-arrow-action* nil)
 	(case action
@@ -159,7 +159,7 @@
 
 (define-pager-key ("Down")
     (defun b-pager-move-or-pack-down ()
-      "Move, pack, fill or resize group down"
+      "Move cursor, pack, fill or resize group down"
       (let ((action *pager-arrow-action*))
 	(setf *pager-arrow-action* nil)
 	(case action
@@ -172,7 +172,7 @@
 
 (define-pager-key ("Right")
     (defun b-pager-move-or-pack-right ()
-      "Move, pack, fill or resize group right"
+      "Move cursor, pack, fill or resize group right"
       (let ((action *pager-arrow-action*))
 	(setf *pager-arrow-action* nil)
 	(case action
@@ -185,7 +185,7 @@
 
 (define-pager-key ("Left")
     (defun b-pager-move-or-pack-left ()
-      "Move, pack, fill or resize group left"
+      "Move cursor, pack, fill or resize group left"
       (let ((action *pager-arrow-action*))
 	(setf *pager-arrow-action* nil)
 	(case action