mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kim F. Storm 2005-12-09 09:10:10 +00:00
parent 58090a8d28
commit 5592022932
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

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