From: Kim F. Storm <storm@cua.dk>
Date: Fri, 9 Dec 2005 09:10:10 +0000 (+0000)
Subject: (cua--extract-rectangle): Undo recent change re. \s in strings.
X-Git-Tag: emacs-pretest-22.0.90~5414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=559202293294bb5d124f6567d5ffbbf509821f29;p=emacs.git

(cua--extract-rectangle): Undo recent change re. \s in strings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc9d5a3ca7a..d6d3a5488c6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1273,9 +1273,6 @@
 	(cua--init-rectangles): Always bind C-return to toggle rectangle.
 	Pass ?\s instead of 'space to cua--M/H-key and cua--rect-M/H-key.
 
-	* emulation/cua-rect.el (cua--extract-rectangle): Don't use \s
-	in strings.
-
 	* ido.el: Move Acknowledgements and History after Commentary.
 	Minor changes to Commentary.
 
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 46974089dc2..aa82e148aff 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -641,11 +641,11 @@ If command is repeated at same position, delete the rectangle."
 	     (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))