Mercurial > emacs

diff lisp/emulation/cua-rect.el @ 45297:7f069ec93484

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 829beb9a6a4b
children b80d723ad7cc
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)