Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 12682:66b3d052d4fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shared-lisp-mode-map): Don't bind TAB, just set indent-line-function.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Jul 1995 22:21:02 +0000 (1995-07-26)
parents e6b42a6ea8e6
children c50826e44362
comparison
equal deleted inserted replaced
12681:3a4ac2729fa5 12682:66b3d052d4fe
112 112
113 (if shared-lisp-mode-map 113 (if shared-lisp-mode-map
114 () 114 ()
115 (setq shared-lisp-mode-map (make-sparse-keymap)) 115 (setq shared-lisp-mode-map (make-sparse-keymap))
116 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp) 116 (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp)
117 (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify) 117 (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify))
118 (define-key shared-lisp-mode-map "\t" 'lisp-indent-line))
119 118
120 (defvar emacs-lisp-mode-map () 119 (defvar emacs-lisp-mode-map ()
121 "Keymap for Emacs Lisp mode. 120 "Keymap for Emacs Lisp mode.
122 All commands in shared-lisp-mode-map are inherited by this map.") 121 All commands in `shared-lisp-mode-map' are inherited by this map.")
123 122
124 (if emacs-lisp-mode-map 123 (if emacs-lisp-mode-map
125 () 124 ()
126 (let ((map (make-sparse-keymap "Emacs-Lisp"))) 125 (let ((map (make-sparse-keymap "Emacs-Lisp")))
127 (setq emacs-lisp-mode-map 126 (setq emacs-lisp-mode-map