diff lisp/emulation/cua-rect.el @ 91204:53108e6cea98

Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-294

--- a/lisp/emulation/cua-rect.el	Thu Dec 06 07:36:30 2007 +0000
+++ b/lisp/emulation/cua-rect.el	Thu Dec 06 09:51:45 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