diff options
| author | Kim F. Storm <[email protected]> | 2002-05-14 21:11:10 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2002-05-14 21:11:10 +0000 |
| commit | af1a0140164f96d687b048a9074c5aa73372eafe (patch) | |
| tree | 114fdccd55656fb881bf3b300881ff5a84e88086 /lisp/emulation | |
| parent | 6df44fac4b2117145b1bab2899cf9b34dffe6d0e (diff) | |
(cua--rectangle-operation):
Don't highlight empty lines in rectangles.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 777fefa58e..a3e94dc207 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) |