Mercurial > hg > xemacs-beta

comparison lisp/modes/lisp-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 cca96a509cfe
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
200 () 200 ()
201 (setq shared-lisp-mode-map (make-sparse-keymap)) 201 (setq shared-lisp-mode-map (make-sparse-keymap))
202 ;; XEmacs changes 202 ;; XEmacs changes
203 (set-keymap-name shared-lisp-mode-map 'shared-lisp-mode-map) 203 (set-keymap-name shared-lisp-mode-map 'shared-lisp-mode-map)
204 (define-key shared-lisp-mode-map "\M-;" 'lisp-indent-for-comment) 204 (define-key shared-lisp-mode-map "\M-;" 'lisp-indent-for-comment)
205 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp) 205 ;; GDF - don't rebind the DEL key
206 (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify)) 206 ;; (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify)
207
208 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp))
207 209
208 (defvar emacs-lisp-mode-map () 210 (defvar emacs-lisp-mode-map ()
209 "Keymap for Emacs Lisp mode. 211 "Keymap for Emacs Lisp mode.
210 All commands in `shared-lisp-mode-map' are inherited by this map.") 212 All commands in `shared-lisp-mode-map' are inherited by this map.")
211 213