/[emacs]/emacs/lisp/emulation/cua-rect.el
ViewVC logotype

Diff of /emacs/lisp/emulation/cua-rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by kfstorm, Tue May 17 22:39:30 2005 UTC revision 1.19 by kfstorm, Mon Jun 6 13:19:15 2005 UTC
# Line 755  If command is repeated at same position, Line 755  If command is repeated at same position,
755        (sit-for 0)  ; make window top/bottom reliable        (sit-for 0)  ; make window top/bottom reliable
756        (cua--rectangle-operation nil t nil nil nil ; do not tabify        (cua--rectangle-operation nil t nil nil nil ; do not tabify
757          '(lambda (s e l r v)          '(lambda (s e l r v)
758             (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face))             (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect))
759                   overlay bs ms as)                   overlay bs ms as)
760               (when (cua--rectangle-virtual-edges)               (when (cua--rectangle-virtual-edges)
761                 (let ((lb (line-beginning-position))                 (let ((lb (line-beginning-position))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26