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

2 files changed, 2 insertions, 5 deletions

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))