Mercurial > hg > xemacs-beta
changeset 686:c82f9db998d7
[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'.
| author | didierv |
|---|---|
| date | Mon, 03 Dec 2001 18:02:50 +0000 |
| parents | 9a0959b535de |
| children | d8c768dcca7a |
| files | ChangeLog etc/NEWS lisp/ChangeLog lisp/keydefs.el lisp/rect.el |
| diffstat | 5 files changed, 15 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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
--- 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>
--- 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.
--- 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."