(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.

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 5c4bc011464d3004ed106de6d05051df1f78075d..f6b5033681519bac4d25d2398e1a36d35ca25298 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -33,12 +33,8 @@
 
 ;;; Code:
 
-(provide 'cua-rect)
-
 (eval-when-compile
-  (require 'cua-base)
-  (require 'cua-gmrk)
-)
+  (require 'cua-base))
 
 ;;; Rectangle support
 
@@ -1061,6 +1057,9 @@ The text previously in the rectangle is overwritten by the blanks."
         ;; (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")
@@ -1491,5 +1490,7 @@ With prefix arg, indent to that column."
 
   (setq cua--rectangle-initialized t))
 
+(provide 'cua-rect)
+
 ;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
 ;;; cua-rect.el ends here