mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(top-level): Move provide to end.

Browse Source 
Don't require cua-gmrk when compiling.
(cua--cut-rectangle-to-global-mark)
(cua--copy-rectangle-to-global-mark): Declare as functions.
This commit is contained in:
Glenn Morris 2007-12-04 03:48:27 +00:00
parent 88a25b1883
commit 2c0f856464
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emulation/cua-rect.el
View File

@ -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