Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents d95e72db5c07
children 461c7ba8286a
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
66 (put 'erase-buffer 'disabled t) ;from buffer.c 66 (put 'erase-buffer 'disabled t) ;from buffer.c
67 67
68 ;; FSFmacs casefiddle.c 68 ;; FSFmacs casefiddle.c
69 69
70 (define-key global-map "\C-x\C-u" 'upcase-region) 70 (define-key global-map "\C-x\C-u" 'upcase-region)
71 (put 'upcase-region 'disabled t) 71 ;; This is silly with zmacs regions
72 ;(put 'upcase-region 'disabled t)
72 (define-key global-map "\C-x\C-l" 'downcase-region) 73 (define-key global-map "\C-x\C-l" 'downcase-region)
73 (put 'downcase-region 'disabled t) 74 ;; This is silly with zmacs regions
75 ;(put 'downcase-region 'disabled t)
74 (define-key global-map "\M-u" 'upcase-region-or-word) 76 (define-key global-map "\M-u" 'upcase-region-or-word)
75 (define-key global-map "\M-l" 'downcase-region-or-word) 77 (define-key global-map "\M-l" 'downcase-region-or-word)
76 (define-key global-map "\M-c" 'capitalize-region-or-word) 78 (define-key global-map "\M-c" 'capitalize-region-or-word)
77 79
78 ;; FSFmacs cmds.c 80 ;; FSFmacs cmds.c
195 (define-key global-map "\C-x=" 'what-cursor-position) 197 (define-key global-map "\C-x=" 'what-cursor-position)
196 (define-key global-map "\M-:" 'eval-expression) 198 (define-key global-map "\M-:" 'eval-expression)
197 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. 199 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
198 (define-key global-map "\M-\e:" 'eval-expression) 200 (define-key global-map "\M-\e:" 'eval-expression)
199 ;(define-key global-map "\M-\e" 'eval-expression) 201 ;(define-key global-map "\M-\e" 'eval-expression)
200 (put 'eval-expression 'disabled t) 202 ;; Do we really need to disable this now that it is harder to type
203 ;; by accident?
204 ;; (put 'eval-expression 'disabled t)
201 ;; Changed from C-x ESC so that function keys work following C-x. 205 ;; Changed from C-x ESC so that function keys work following C-x.
202 (define-key global-map "\C-x\e\e" 'repeat-complex-command) 206 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
203 ;(define-key global-map "\C-x\e" 'repeat-complex-command) 207 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
204 (define-key global-map "\C-xu" 'advertised-undo) 208 (define-key global-map "\C-xu" 'advertised-undo)
205 ;; Many people are used to typing C-/ on X terminals and getting C-_. 209 ;; Many people are used to typing C-/ on X terminals and getting C-_.