/[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.5 by kfstorm, Sat May 25 00:08:36 2002 UTC revision 1.6 by kfstorm, Thu Jul 4 22:20:26 2002 UTC
# Line 575  If command is repeated at same position, Line 575  If command is repeated at same position,
575                (forward-char 1))                (forward-char 1))
576            (set-marker m (point))            (set-marker m (point))
577            (move-to-column l pad)            (move-to-column l pad)
578            (if fct            (if (and fct (>= (current-column) l) (<= (current-column) r))
579                (let ((v t) (p (point)))                (let ((v t) (p (point)))
580                  (when sel                  (when sel
581                    (if (car (cdr sel))                    (if (car (cdr sel))
# Line 614  If command is repeated at same position, Line 614  If command is repeated at same position,
614  (defun cua--delete-rectangle ()  (defun cua--delete-rectangle ()
615    (cua--rectangle-operation nil nil t 2    (cua--rectangle-operation nil nil t 2
616      '(lambda (s e l r)      '(lambda (s e l r)
617         (delete-region s (if (> e s) e (1+ e))))))         (if (and (> e s) (<= e (point-max)))
618               (delete-region s e)))))
619    
620  (defun cua--extract-rectangle ()  (defun cua--extract-rectangle ()
621    (let (rect)    (let (rect)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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