[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el |
Date: |
Thu, 04 Jul 2002 18:20:26 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,
Kim F. Storm <=