Mercurial > hg > xemacs-beta

comparison lisp/modes/simula.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 0293115a14e9
children 28f395d8dc7a
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
121 (define-key simula-mode-map "\C-c\C-p" 'simula-previous-statement) 121 (define-key simula-mode-map "\C-c\C-p" 'simula-previous-statement)
122 (define-key simula-mode-map "\C-c\C-d" 'simula-forward-down-level) 122 (define-key simula-mode-map "\C-c\C-d" 'simula-forward-down-level)
123 (define-key simula-mode-map "\C-c\C-n" 'simula-next-statement) 123 (define-key simula-mode-map "\C-c\C-n" 'simula-next-statement)
124 ;(define-key simula-mode-map "\C-c\C-g" 'simula-goto-definition) 124 ;(define-key simula-mode-map "\C-c\C-g" 'simula-goto-definition)
125 ;(define-key simula-mode-map "\C-c\C-h" 'simula-standard-help) 125 ;(define-key simula-mode-map "\C-c\C-h" 'simula-standard-help)
126 (define-key simula-mode-map "\177" 'backward-delete-char-untabify) 126 ;; GDF - Don't mess with DEL
127 ;; (define-key simula-mode-map "\177" 'backward-delete-char-untabify)
127 (define-key simula-mode-map ":" 'simula-electric-label) 128 (define-key simula-mode-map ":" 'simula-electric-label)
128 (define-key simula-mode-map "\t" 'simula-indent-command)) 129 (define-key simula-mode-map "\t" 'simula-indent-command))
129 130
130 (defvar simula-mode-abbrev-table nil 131 (defvar simula-mode-abbrev-table nil
131 "Abbrev table in SIMULA mode buffers") 132 "Abbrev table in SIMULA mode buffers")