From: Kim F. Storm Date: Tue, 14 May 2002 21:11:10 +0000 (+0000) Subject: (cua--rectangle-operation): X-Git-Tag: ttn-vms-21-2-B4~15055 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af1a0140164f96d687b048a9074c5aa73372eafe;p=emacs.git (cua--rectangle-operation): Don't highlight empty lines in rectangles. --- 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)