comparison lisp/emulation/cua-rect.el @ 87020:52abd10af81e

(top-level): Move provide to end. Don't require cua-gmrk when compiling. (cua--cut-rectangle-to-global-mark) (cua--copy-rectangle-to-global-mark): Declare as functions.

87019:e460f7bcfb6d

;;; Commentary:

;;; Code:

(provide 'cua-rect)

(eval-when-compile
  (require 'cua-base)
  (require 'cua-gmrk)
)

;;; Rectangle support

(require 'rect)

     '(lambda (l r)
        (move-to-column l)
        ;; (setq cua-save-point (point))
        ))))

(defun cua-copy-rectangle-as-text (&optional arg delete)
  "Copy rectangle, but store as normal text."
  (interactive "P")
  (if cua--global-mark-active
      (if delete

  (cua--rect-M/H-key ?'	'cua-restrict-prefix-rectangle)
  (cua--rect-M/H-key ?/	'cua-restrict-regexp-rectangle)

  (setq cua--rectangle-initialized t))

;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
;;; cua-rect.el ends here

87020:52abd10af81e

;;; Commentary:

;;; Code:

(eval-when-compile
  (require 'cua-base))

;;; Rectangle support

(require 'rect)

     '(lambda (l r)
        (move-to-column l)
        ;; (setq cua-save-point (point))
        ))))

(declare-function cua--cut-rectangle-to-global-mark  "cua-gmrk" (as-text))
(declare-function cua--copy-rectangle-to-global-mark "cua-gmrk" (as-text))

(defun cua-copy-rectangle-as-text (&optional arg delete)
  "Copy rectangle, but store as normal text."
  (interactive "P")
  (if cua--global-mark-active
      (if delete

  (cua--rect-M/H-key ?'	'cua-restrict-prefix-rectangle)
  (cua--rect-M/H-key ?/	'cua-restrict-regexp-rectangle)

  (setq cua--rectangle-initialized t))

(provide 'cua-rect)

;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
;;; cua-rect.el ends here