comparison lisp/emulation/cua-rect.el @ 46180:fe05a48a78e1

(cua--rectangle-operation): Don't call FCT if current column is outside rectangle. (cua--delete-rectangle): Do nothing if zero width or out of bounds.

46179:6e82e521d3ab

               (backward-char 1))
          (if (and tabpad (not pad) (looking-at "\t"))
              (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))
                      (setq v (looking-at (car sel)))
                    (setq v (re-search-forward (car sel) m t))

      (cua--rectangle-operation nil nil t t)))

(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)
    (cua--rectangle-operation nil nil nil 1
     '(lambda (s e l r)

46180:fe05a48a78e1

               (backward-char 1))
          (if (and tabpad (not pad) (looking-at "\t"))
              (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))
                      (setq v (looking-at (car sel)))
                    (setq v (re-search-forward (car sel) m t))

      (cua--rectangle-operation nil nil t t)))

(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)
    (cua--rectangle-operation nil nil nil 1
     '(lambda (s e l r)