[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el

[Kim F . Storm]

Index: emacs/lisp/emulation/cua-rect.el
diff -c emacs/lisp/emulation/cua-rect.el:1.18 
emacs/lisp/emulation/cua-rect.el:1.19
*** emacs/lisp/emulation/cua-rect.el:1.18       Tue May 17 22:39:30 2005
--- emacs/lisp/emulation/cua-rect.el    Mon Jun  6 13:19:15 2005
***************
*** 755,761 ****
        (sit-for 0)  ; make window top/bottom reliable
        (cua--rectangle-operation nil t nil nil nil ; do not tabify
          '(lambda (s e l r v)
!            (let ((rface (if v 'cua-rectangle-face 
'cua-rectangle-noselect-face))
                   overlay bs ms as)
             (when (cua--rectangle-virtual-edges)
               (let ((lb (line-beginning-position))
--- 755,761 ----
        (sit-for 0)  ; make window top/bottom reliable
        (cua--rectangle-operation nil t nil nil nil ; do not tabify
          '(lambda (s e l r v)
!            (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect))
                   overlay bs ms as)
             (when (cua--rectangle-virtual-edges)
               (let ((lb (line-beginning-position))