# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1021410634 0
# Node ID 7f069ec934846c752fd0b397cdd14c2be9ac7322
# Parent  eb7082dc04a00e69c22fb3611edc54591155161a
(cua--rectangle-operation):
Don't highlight empty lines in rectangles.

diff -r eb7082dc04a0 -r 7f069ec93484 lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Tue May 14 20:30:55 2002 +0000
+++ b/lisp/emulation/cua-rect.el	Tue May 14 21:10:34 2002 +0000
@@ -585,7 +585,8 @@
                   (if (car (cdr (cdr sel)))
                       (setq v (null v))))
                 (if visible
-                    (funcall fct p m l r v)
+		    (unless (eolp)
+			(funcall fct p m l r v))
                   (if v
                       (funcall fct p m l r)))))
           (set-marker m nil)