Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 878:5b1c5b4286e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Jul 1992 02:56:28 +0000
parents 20674ae6bf52
children c205d560cc22
comparison
equal deleted inserted replaced
877:e0dde8b90613 878:5b1c5b4286e7
111 111
112 (if emacs-lisp-mode-map 112 (if emacs-lisp-mode-map
113 () 113 ()
114 (setq emacs-lisp-mode-map 114 (setq emacs-lisp-mode-map
115 (nconc (make-sparse-keymap) shared-lisp-mode-map)) 115 (nconc (make-sparse-keymap) shared-lisp-mode-map))
116 (define-key emacs-lisp-mode-map "\e\t" 'lisp-complete-symbol)
116 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun)) 117 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun))
117 118
118 (defun emacs-lisp-mode () 119 (defun emacs-lisp-mode ()
119 "Major mode for editing Lisp code to run in Emacs. 120 "Major mode for editing Lisp code to run in Emacs.
120 Commands: 121 Commands:
176 (if lisp-interaction-mode-map 177 (if lisp-interaction-mode-map
177 () 178 ()
178 (setq lisp-interaction-mode-map 179 (setq lisp-interaction-mode-map
179 (nconc (make-sparse-keymap) shared-lisp-mode-map)) 180 (nconc (make-sparse-keymap) shared-lisp-mode-map))
180 (define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun) 181 (define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun)
182 (define-key lisp-interaction-mode-map "\e\t" 'lisp-complete-symbol)
181 (define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp)) 183 (define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp))
182 184
183 (defun lisp-interaction-mode () 185 (defun lisp-interaction-mode ()
184 "Major mode for typing and evaluating Lisp forms. 186 "Major mode for typing and evaluating Lisp forms.
185 Like Lisp mode except that \\[eval-print-last-sexp] evals the Lisp expression 187 Like Lisp mode except that \\[eval-print-last-sexp] evals the Lisp expression