sawfish r4305 - in trunk: . lisp/sawfish/wm

[chrisb svn gnome org]

Author: chrisb
Date: Thu Nov 20 20:28:20 2008
New Revision: 4305
URL: http://svn.gnome.org/viewvc/sawfish?rev=4305&view=rev

Log:
forgot one hunk of the viewport scroll patch


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/viewport.jl

Modified: trunk/lisp/sawfish/wm/viewport.jl
==============================================================================
--- trunk/lisp/sawfish/wm/viewport.jl	(original)
+++ trunk/lisp/sawfish/wm/viewport.jl	Thu Nov 20 20:28:20 2008
@@ -67,8 +67,8 @@
   (defvar viewport-x-offset 0)
   (defvar viewport-y-offset 0)
 
-  (define (set-viewport x y)
-    ;; move W to its new position
+  (define (warp-viewport x y)
+    "Change view by incrementing the coordinates of the x,y position."
     (define (move-window w)
       (unless (window-get w 'sticky-viewport)
 	(let ((pos (window-position w)))