Mercurial > hg > xemacs-beta

comparison lisp/keydefs.el @ 686:c82f9db998d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 11502791fc1c
children d1ecd411af4c
comparison
equal deleted inserted replaced
685:9a0959b535de 686:c82f9db998d7
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the 22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;; All the global bindings should be here so that one can reload things 26 ;; All the global bindings should be here so that one can reload things
27 ;; like files.el without trashing one's personal bindings. 27 ;; like files.el without trashing one's personal bindings.
338 (define-key global-map "\C-xrc" 'clear-rectangle) 338 (define-key global-map "\C-xrc" 'clear-rectangle)
339 (define-key global-map "\C-xrk" 'kill-rectangle) 339 (define-key global-map "\C-xrk" 'kill-rectangle)
340 (define-key global-map "\C-xry" 'yank-rectangle) 340 (define-key global-map "\C-xry" 'yank-rectangle)
341 (define-key global-map "\C-xro" 'open-rectangle) 341 (define-key global-map "\C-xro" 'open-rectangle)
342 (define-key global-map "\C-xrt" 'string-rectangle) 342 (define-key global-map "\C-xrt" 'string-rectangle)
343 (define-key global-map "\C-xrp" 'replace-rectangle)
343 (define-key global-map "\C-xrw" 'window-configuration-to-register) 344 (define-key global-map "\C-xrw" 'window-configuration-to-register)
344 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register) 345 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
345 346
346 (define-key global-map "\M-q" 'fill-paragraph-or-region) 347 (define-key global-map "\M-q" 'fill-paragraph-or-region)
347 ;(define-key global-map "\M-q" 'fill-paragraph) 348 ;(define-key global-map "\M-q" 'fill-paragraph)
509 510
510 ;;; These aren't bound to kbd macros like "\C-b" so that they have the 511 ;;; These aren't bound to kbd macros like "\C-b" so that they have the
511 ;; expected behavior even in, for example, vi-mode. 512 ;; expected behavior even in, for example, vi-mode.
512 513
513 ;; We use here symbolic names, assuming that the corresponding keys will 514 ;; We use here symbolic names, assuming that the corresponding keys will
514 ;; generate these keysyms. This is not true on Suns, but x-win-sun.el 515 ;; generate these keysyms. This is not true on Suns, but x-win-sun.el
515 ;; fixes that. If it turns out that the semantics of these keys should 516 ;; fixes that. If it turns out that the semantics of these keys should
516 ;; differ from server to server, this should be moved into server-specific 517 ;; differ from server to server, this should be moved into server-specific
517 ;; files, but these appear to be the standard Motif and PC bindings. 518 ;; files, but these appear to be the standard Motif and PC bindings.
518 519
519 ;; movement by units 520 ;; movement by units