[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.5 
emacs/lisp/emulation/cua-rect.el:1.6
*** emacs/lisp/emulation/cua-rect.el:1.5        Fri May 24 20:08:36 2002
--- emacs/lisp/emulation/cua-rect.el    Thu Jul  4 18:20:26 2002
***************
*** 575,581 ****
                (forward-char 1))
            (set-marker m (point))
            (move-to-column l pad)
!           (if fct
                (let ((v t) (p (point)))
                  (when sel
                    (if (car (cdr sel))
--- 575,581 ----
                (forward-char 1))
            (set-marker m (point))
            (move-to-column l pad)
!           (if (and fct (>= (current-column) l) (<= (current-column) r))
                (let ((v t) (p (point)))
                  (when sel
                    (if (car (cdr sel))
***************
*** 614,620 ****
  (defun cua--delete-rectangle ()
    (cua--rectangle-operation nil nil t 2
      '(lambda (s e l r)
!        (delete-region s (if (> e s) e (1+ e))))))
  
  (defun cua--extract-rectangle ()
    (let (rect)
--- 614,621 ----
  (defun cua--delete-rectangle ()
    (cua--rectangle-operation nil nil t 2
      '(lambda (s e l r)
!        (if (and (> e s) (<= e (point-max)))
!          (delete-region s e)))))
  
  (defun cua--extract-rectangle ()
    (let (rect)