Mercurial > emacs

changeset 67419:79aa532aaa44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua--extract-rectangle): Undo recent change re. \s in strings.
author Kim F. Storm <storm@cua.dk>
date Fri, 09 Dec 2005 09:09:41 +0000
parents 28264c86d408
children 122aaab8f70e
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))