--- move-resize.jl-orig	Sat Oct 21 04:24:13 2000
+++ move-resize.jl	Tue Feb 20 20:24:36 2001
@@ -81,7 +81,12 @@
     :type (choice region border grab border-grab)
     :user-level expert
     :group move)
-  
+
+  (defcustom resize-area-cells 2
+    "Number of cells in the window"
+    :type (number 2 5)
+    :group move)
+
   (defcustom move-snap-edges t
     "Snap window position to edges of other windows while moving."
     :group move
@@ -420,19 +425,19 @@
 		 (setq tem (cdr (assq tem fp-edges-alist))))
 	    (setq move-resize-moving-edges (copy-sequence tem))
 	  (cond ((<= (- move-resize-old-ptr-x move-resize-old-x)
-		     (/ move-resize-old-width 3))
+		     (/ move-resize-old-width resize-area-cells))
 		 (setq move-resize-moving-edges
 		       (cons 'left move-resize-moving-edges)))
 		((>= (- move-resize-old-ptr-x move-resize-old-x)
-		     (* (/ move-resize-old-width 3) 2))
+		     (* (/ move-resize-old-width resize-area-cells) (1- resize-area-cells)))
 		 (setq move-resize-moving-edges
 		       (cons 'right move-resize-moving-edges))))
 	  (cond ((<= (- move-resize-old-ptr-y move-resize-old-y)
-		     (/ move-resize-old-height 3))
+		     (/ move-resize-old-height resize-area-cells))
 		 (setq move-resize-moving-edges
 		       (cons 'top move-resize-moving-edges)))
 		((>= (- move-resize-old-ptr-y move-resize-old-y)
-		     (* (/ move-resize-old-height 3) 2))
+		     (* (/ move-resize-old-height resize-area-cells) (1- resize-area-cells)))
 		 (setq move-resize-moving-edges
 		       (cons 'bottom move-resize-moving-edges)))))))
     (when (null move-resize-moving-edges)