Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 6b37e6ddd302
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
177 (set-keymap-name map 'narrowing-prefix) 177 (set-keymap-name map 'narrowing-prefix)
178 map)) 178 map))
179 (put 'narrow-to-region 'disabled t) 179 (put 'narrow-to-region 'disabled t)
180 (define-key global-map "\C-xnn" 'narrow-to-region) 180 (define-key global-map "\C-xnn" 'narrow-to-region)
181 (define-key global-map "\C-xnw" 'widen) 181 (define-key global-map "\C-xnw" 'widen)
182 (define-key global-map "\C-xnd" 'narrow-to-defun)
182 ;; Old v18 bindings 183 ;; Old v18 bindings
183 ;(define-key global-map "\C-xn" 'narrow-to-region) 184 ;(define-key global-map "\C-xn" 'narrow-to-region)
184 ;(define-key global-map "\C-xw" 'widen) 185 ;(define-key global-map "\C-xw" 'widen)
185 186
186 (define-key global-map "\C-j" 'newline-and-indent) 187 (define-key global-map "\C-j" 'newline-and-indent)
423 (define-key global-map "\C-x}" 'enlarge-window-horizontally) 424 (define-key global-map "\C-x}" 'enlarge-window-horizontally)
424 (define-key global-map "\C-x{" 'shrink-window-horizontally) 425 (define-key global-map "\C-x{" 'shrink-window-horizontally)
425 ;; New FSF19 bindings 426 ;; New FSF19 bindings
426 (define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer) 427 (define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer)
427 (define-key global-map "\C-x+" 'balance-windows) 428 (define-key global-map "\C-x+" 'balance-windows)
428 429 (define-key ctl-x-4-map "0" 'kill-buffer-and-window)
429 430
430 ;;(define-key global-map "\C-g" 'keyboard-quit) 431 ;;(define-key global-map "\C-g" 'keyboard-quit)
431 (let ((ch (quit-char))) 432 (let ((ch (quit-char)))
432 (if (or (characterp ch) (integerp ch)) 433 (if (or (characterp ch) (integerp ch))
433 (setq ch (char-to-string ch))) 434 (setq ch (char-to-string ch)))