Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 0d2f883870bc
children b980b6286996
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
70 (put 'erase-buffer 'disabled t) ;from buffer.c 70 (put 'erase-buffer 'disabled t) ;from buffer.c
71 71
72 ;; FSFmacs casefiddle.c 72 ;; FSFmacs casefiddle.c
73 73
74 (define-key global-map "\C-x\C-u" 'upcase-region) 74 (define-key global-map "\C-x\C-u" 'upcase-region)
75 (put 'upcase-region 'disabled t) 75 ;; This is silly with zmacs regions
76 ;(put 'upcase-region 'disabled t)
76 (define-key global-map "\C-x\C-l" 'downcase-region) 77 (define-key global-map "\C-x\C-l" 'downcase-region)
77 (put 'downcase-region 'disabled t) 78 ;; This is silly with zmacs regions
79 ;(put 'downcase-region 'disabled t)
78 (define-key global-map "\M-u" 'upcase-region-or-word) 80 (define-key global-map "\M-u" 'upcase-region-or-word)
79 (define-key global-map "\M-l" 'downcase-region-or-word) 81 (define-key global-map "\M-l" 'downcase-region-or-word)
80 (define-key global-map "\M-c" 'capitalize-region-or-word) 82 (define-key global-map "\M-c" 'capitalize-region-or-word)
81 83
82 ;; FSFmacs cmds.c 84 ;; FSFmacs cmds.c
196 (define-key global-map "\C-x=" 'what-cursor-position) 198 (define-key global-map "\C-x=" 'what-cursor-position)
197 (define-key global-map "\M-:" 'eval-expression) 199 (define-key global-map "\M-:" 'eval-expression)
198 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. 200 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
199 (define-key global-map "\M-\e:" 'eval-expression) 201 (define-key global-map "\M-\e:" 'eval-expression)
200 ;(define-key global-map "\M-\e" 'eval-expression) 202 ;(define-key global-map "\M-\e" 'eval-expression)
201 (put 'eval-expression 'disabled t) 203 ;; Do we really need to disable this now that it is harder to type
204 ;; by accident?
205 ;; (put 'eval-expression 'disabled t)
202 ;; Changed from C-x ESC so that function keys work following C-x. 206 ;; Changed from C-x ESC so that function keys work following C-x.
203 (define-key global-map "\C-x\e\e" 'repeat-complex-command) 207 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
204 ;(define-key global-map "\C-x\e" 'repeat-complex-command) 208 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
205 (define-key global-map "\C-xu" 'advertised-undo) 209 (define-key global-map "\C-xu" 'advertised-undo)
206 ;; Many people are used to typing C-/ on X terminals and getting C-_. 210 ;; Many people are used to typing C-/ on X terminals and getting C-_.
238 (define-key global-map "\C-x\C-@" 'pop-global-mark) 242 (define-key global-map "\C-x\C-@" 'pop-global-mark)
239 (define-key global-map [(control x) (control ? )] 'pop-global-mark) 243 (define-key global-map [(control x) (control ? )] 'pop-global-mark)
240 244
241 (define-key global-map "\C-n" 'next-line) 245 (define-key global-map "\C-n" 'next-line)
242 (define-key global-map "\C-p" 'previous-line) 246 (define-key global-map "\C-p" 'previous-line)
243 (define-key global-map "\C-x\C-n" 'set-goal-column) 247 ;(define-key global-map "\C-x\C-n" 'set-goal-column)
244 ;; XEmacs: 248 ;; XEmacs:
245 ;;; Many people have said they rarely use this feature, and often type 249 ;;; Many people have said they rarely use this feature, and often type
246 ;;; it by accident. Maybe it shouldn't even be on a key. 250 ;;; it by accident. Maybe it shouldn't even be on a key.
247 (put 'set-goal-column 'disabled t) 251 ;;; Done. -hniksic
252 ;(put 'set-goal-column 'disabled t)
248 253
249 (define-key global-map [menu] 'execute-extended-command) 254 (define-key global-map [menu] 'execute-extended-command)
250 (define-key global-map [find] 'search-forward) 255 (define-key global-map [find] 'search-forward)
251 256
252 (define-key global-map "\C-t" 'transpose-chars) 257 (define-key global-map "\C-t" 'transpose-chars)