From af1a0140164f96d687b048a9074c5aa73372eafe Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 May 2002 21:11:10 +0000 Subject: [PATCH] (cua--rectangle-operation): Don't highlight empty lines in rectangles. --- lisp/ChangeLog | 3 +++ lisp/emulation/cua-rect.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4646be1c436..055c649df64 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-05-14 Kim F. Storm + * emulation/cua-rect.el (cua--rectangle-operation): + Don't highlight empty lines in rectangles. + * emulation/keypad.el: Improved commentary. (keypad-setup, keypad-shifted-setup): Added choice to setup Numeric keypad with decimal key; value is selected character. diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 777fefa58eb..a3e94dc207d 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -585,7 +585,8 @@ If command is repeated at same position, delete the rectangle." (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) -- 2.39.5