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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc9d5a3ca7a7b0340c67c6b3a3793de4f2f587d7..d6d3a5488c681004fa4c2540fcad8c78d6b13090 100644 (file)
--- 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 46974089dc248a29b17207f8c41f43a6cbd06695..aa82e148aff4a7a41b875505d2e90515fd28ad71 100644 (file)
--- 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))