# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196740107 0
# Node ID 52abd10af81ebf84c4ba4eea44226695f4f8f53a
# Parent  e460f7bcfb6df8ca94ed0ebb72f0cd9b1c16e974
(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 -r e460f7bcfb6d -r 52abd10af81e lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Tue Dec 04 03:47:26 2007 +0000
+++ b/lisp/emulation/cua-rect.el	Tue Dec 04 03:48:27 2007 +0000
@@ -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 @@
         ;; (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 @@
 
   (setq cua--rectangle-initialized t))
 
+(provide 'cua-rect)
+
 ;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
 ;;; cua-rect.el ends here