Mercurial > emacs

comparison lisp/emulation/cua-rect.el @ 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 bb2f67d4e710
children 067115a6e738 7beb78bc1f8e
comparison
equal deleted inserted replaced
67418:28264c86d408 67419:79aa532aaa44
639 (goto-char s) 639 (goto-char s)
640 (move-to-column l) 640 (move-to-column l)
641 (if (= (point) (line-end-position)) 641 (if (= (point) (line-end-position))
642 (setq bs (- r l) 642 (setq bs (- r l)
643 copy nil) 643 copy nil)
644 (skip-chars-forward " \t" e) 644 (skip-chars-forward "\s\t" e)
645 (setq bs (- (min r (current-column)) l) 645 (setq bs (- (min r (current-column)) l)
646 s (point)) 646 s (point))
647 (move-to-column r) 647 (move-to-column r)
648 (skip-chars-backward " \t" s) 648 (skip-chars-backward "\s\t" s)
649 (setq as (- r (max (current-column) l)) 649 (setq as (- r (max (current-column) l))
650 e (point))) 650 e (point)))
651 (setq row (if (and copy (> e s)) 651 (setq row (if (and copy (> e s))
652 (buffer-substring-no-properties s e) 652 (buffer-substring-no-properties s e)
653 "")) 653 ""))