# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1134075395 0
# Node ID 60adafc3124f3379331aab1ea287490d2c96139a
# Parent  4d2362509f2719702699a7b9f84917db791a2494
(cua--extract-rectangle): Don't use \s in strings.

diff -r 4d2362509f27 -r 60adafc3124f lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Thu Dec 08 20:56:15 2005 +0000
+++ b/lisp/emulation/cua-rect.el	Thu Dec 08 20:56:35 2005 +0000
@@ -641,11 +641,11 @@
 	     (if (= (point) (line-end-position))
 		 (setq bs (- r l)
 		       copy nil)
-	       (skip-chars-forward "\s\t" e)
+	       (skip-chars-forward " \t" e)
 	       (setq bs (- (min r (current-column)) l)
 		     s (point))
 	       (move-to-column r)
-	       (skip-chars-backward "\s\t" s)
+	       (skip-chars-backward " \t" s)
 	       (setq as (- r (max (current-column) l))
 		     e (point)))
        	     (setq row (if (and copy (> e s))