Mercurial > hg > xemacs-beta

comparison lisp/modes/ada-mode.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents ac2d302a0011
children 28f395d8dc7a
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
3306 (define-key ada-mode-map "\C-c\C-c" 'compile) 3306 (define-key ada-mode-map "\C-c\C-c" 'compile)
3307 3307
3308 ;; Casing 3308 ;; Casing
3309 (define-key ada-mode-map "\C-c\C-r" 'ada-adjust-case-region) 3309 (define-key ada-mode-map "\C-c\C-r" 'ada-adjust-case-region)
3310 (define-key ada-mode-map "\C-c\C-b" 'ada-adjust-case-buffer) 3310 (define-key ada-mode-map "\C-c\C-b" 'ada-adjust-case-buffer)
3311 3311 ;; GDF - don't rebind the DEL key
3312 (define-key ada-mode-map "\177" 'backward-delete-char-untabify) 3312 ;; (define-key ada-mode-map "\177" 'backward-delete-char-untabify)
3313 3313
3314 ;; Use predefined function of emacs19 for comments (RE) 3314 ;; Use predefined function of emacs19 for comments (RE)
3315 (define-key ada-mode-map "\C-c;" 'comment-region) 3315 (define-key ada-mode-map "\C-c;" 'comment-region)
3316 (define-key ada-mode-map "\C-c:" 'ada-uncomment-region) 3316 (define-key ada-mode-map "\C-c:" 'ada-uncomment-region)
3317 3317