changeset 45297:7f069ec93484

(cua--rectangle-operation): Don't highlight empty lines in rectangles.
author Kim F. Storm <storm@cua.dk>
date Tue, 14 May 2002 21:10:34 +0000
parents eb7082dc04a0
children 539cd2d3c083
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)