Mercurial > hg > xemacs-beta

comparison lisp/modes/scheme.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
119 119
120 (defvar scheme-mode-line-process "") 120 (defvar scheme-mode-line-process "")
121 121
122 (defun scheme-mode-commands (map) 122 (defun scheme-mode-commands (map)
123 (define-key map "\t" 'scheme-indent-line) 123 (define-key map "\t" 'scheme-indent-line)
124 (define-key map "\177" 'backward-delete-char-untabify) 124 ;; GDF - Don't rebind the delete key
125 ;; (define-key map "\177" 'backward-delete-char-untabify)
125 (define-key map "\e\C-q" 'scheme-indent-sexp)) 126 (define-key map "\e\C-q" 'scheme-indent-sexp))
126 127
127 (defvar scheme-mode-map nil) 128 (defvar scheme-mode-map nil)
128 (if (not scheme-mode-map) 129 (if (not scheme-mode-map)
129 (progn 130 (progn