mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(cua--extract-rectangle): Don't use \s in strings.

Browse source
This commit is contained in:
Kim F. Storm 2005-12-08 20:56:35 +00:00
parent c4d0833571
commit ea707ec6a0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emulation/cua-rect.el
View file

@ -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 "\s\t" e)
(skip-chars-forward " \t" e)
(setq bs (- (min r (current-column)) l)
s (point))
(move-to-column r)
(skip-chars-backward "\s\t" s)
(skip-chars-backward " \t" s)
(setq as (- r (max (current-column) l))
e (point)))
(setq row (if (and copy (> e s))