# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1134119381 0
# Node ID 79aa532aaa4426ddfc99623228badb9afc6061cd
# Parent  28264c86d408b4a4bdb50d4acd37bd070515de69
(cua--extract-rectangle): Undo recent change re. \s in strings.

diff -r 28264c86d408 -r 79aa532aaa44 lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Fri Dec 09 08:57:58 2005 +0000
+++ b/lisp/emulation/cua-rect.el	Fri Dec 09 09:09:41 2005 +0000
@@ -641,11 +641,11 @@
 	     (if (= (point) (line-end-position))
 		 (setq bs (- r l)
 		       copy nil)
-	       (skip-chars-forward " \t" e)
+	       (skip-chars-forward "\s\t" e)
 	       (setq bs (- (min r (current-column)) l)
 		     s (point))
 	       (move-to-column r)
-	       (skip-chars-backward " \t" s)
+	       (skip-chars-backward "\s\t" s)
 	       (setq as (- r (max (current-column) l))
 		     e (point)))
        	     (setq row (if (and copy (> e s))