/[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.7.6.3 by miles, Sat Sep 4 09:14:25 2004 UTC revision 1.7.6.4 by miles, Thu Sep 9 09:36:32 2004 UTC
# Line 778  If command is repeated at same position, Line 778  If command is repeated at same position,
778          '(lambda (s e l r v)          '(lambda (s e l r v)
779             (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face))             (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face))
780                   overlay bs ms as)                   overlay bs ms as)
              (if (= s e) (setq e (1+ e)))  
781               (when (cua--rectangle-virtual-edges)               (when (cua--rectangle-virtual-edges)
782                 (let ((lb (line-beginning-position))                 (let ((lb (line-beginning-position))
783                       (le (line-end-position))                       (le (line-end-position))

Legend:
Removed from v.1.7.6.3  
changed lines
  Added in v.1.7.6.4

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