Mercurial > emacs

changeset 87020:52abd10af81e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Glenn Morris <rgm@gnu.org>
date Tue, 04 Dec 2007 03:48:27 +0000
parents e460f7bcfb6d
children f4056febc5ff
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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