# HG changeset patch
# User didierv
# Date 1007402570 0
# Node ID c82f9db998d71875411fe137141f98a368f5b6bb
# Parent  9a0959b535debb2a508b1f7cdc04c46db7494a74
[xemacs-hg @ 2001-12-03 18:02:47 by didierv]
etc/NEWS: advertise `C-x r p' (replace-rectangle) in global map.

rect.el, keydefs.el: autoload and bind `replace-rectangle' to `C-x r p'.

diff -r 9a0959b535de -r c82f9db998d7 ChangeLog
--- a/ChangeLog	Mon Dec 03 17:17:26 2001 +0000
+++ b/ChangeLog	Mon Dec 03 18:02:50 2001 +0000
@@ -1,3 +1,7 @@
+2001-12-03  Didier Verna  <didier@xemacs.org>
+
+	* etc/NEWS: advertise `C-x r p' (replace-rectangle) in global map.
+
 2001-08-29  Jered Floyd  <jered@MIT.EDU>
 
 	* configure.in (moduledir,sitemoduledir,archlibdir):
diff -r 9a0959b535de -r c82f9db998d7 etc/NEWS
--- a/etc/NEWS	Mon Dec 03 17:17:26 2001 +0000
+++ b/etc/NEWS	Mon Dec 03 18:02:50 2001 +0000
@@ -418,7 +418,7 @@
 replaces the region rectangle.  Otherwise, the command does not delete
 or overwrite any existing text.  For those who want that feature but do
 not use pending-delete-mode, a new function, `replace-rectangle', is
-available.
+available, and bound to `C-x r p'.
 
 As a side effect, the FORCE argument to `move-to-column' now
 understands the special value `coerce', which means that the line
diff -r 9a0959b535de -r c82f9db998d7 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 03 17:17:26 2001 +0000
+++ b/lisp/ChangeLog	Mon Dec 03 18:02:50 2001 +0000
@@ -1,3 +1,8 @@
+2001-12-03  Didier Verna  <didier@xemacs.org>
+
+	* rect.el: autoload `replace-rectangle'.
+	* keydefs.el (global-map): bind it to `C-x r p'.
+
 2001-11-29 Charles G Waldman <cgw@xemacs.org>
 
 	* startup.el (initial-scratch-message): be correct about case
@@ -22,7 +27,7 @@
 
 	* package-get.el (package-entries-are-signed): New.
 	(package-get-continue-update-base): New.
-	(package-get-update-base-from-buffer): Use them.  Fix PGP code. 
+	(package-get-update-base-from-buffer): Use them.  Fix PGP code.
 
 2001-11-29  Adrian Aichner  <adrian@xemacs.org>
 
diff -r 9a0959b535de -r c82f9db998d7 lisp/keydefs.el
--- a/lisp/keydefs.el	Mon Dec 03 17:17:26 2001 +0000
+++ b/lisp/keydefs.el	Mon Dec 03 18:02:50 2001 +0000
@@ -19,7 +19,7 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the 
+;; along with XEmacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
@@ -340,6 +340,7 @@
 (define-key global-map "\C-xry" 'yank-rectangle)
 (define-key global-map "\C-xro" 'open-rectangle)
 (define-key global-map "\C-xrt" 'string-rectangle)
+(define-key global-map "\C-xrp" 'replace-rectangle)
 (define-key global-map "\C-xrw" 'window-configuration-to-register)
 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
 
@@ -511,7 +512,7 @@
 ;; expected behavior even in, for example, vi-mode.
 
 ;; We use here symbolic names, assuming that the corresponding keys will
-;; generate these keysyms.  This is not true on Suns, but x-win-sun.el 
+;; generate these keysyms.  This is not true on Suns, but x-win-sun.el
 ;; fixes that.  If it turns out that the semantics of these keys should
 ;; differ from server to server, this should be moved into server-specific
 ;; files, but these appear to be the standard Motif and PC bindings.
diff -r 9a0959b535de -r c82f9db998d7 lisp/rect.el
--- a/lisp/rect.el	Mon Dec 03 17:17:26 2001 +0000
+++ b/lisp/rect.el	Mon Dec 03 18:02:50 2001 +0000
@@ -310,6 +310,7 @@
   (apply-on-rectangle 'string-rectangle-line start end string
                       (and (boundp 'pending-delete-mode) pending-delete-mode)))
 
+;;;###autoload
 (defun replace-rectangle (start end string)
   "Like `string-rectangle', but unconditionally replace the original region,
 as if `pending-delete-mode' were active."