Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 20459:90f306f86f5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use imenu-case-fold-search.
author Dave Love <fx@gnu.org>
date Fri, 12 Dec 1997 17:10:08 +0000
parents 3627bd4b83d9
children ccf251830c66
comparison
equal deleted inserted replaced
20458:ad0d2c5040a0 20459:90f306f86f5d
210 (use-local-map emacs-lisp-mode-map) 210 (use-local-map emacs-lisp-mode-map)
211 (set-syntax-table emacs-lisp-mode-syntax-table) 211 (set-syntax-table emacs-lisp-mode-syntax-table)
212 (setq major-mode 'emacs-lisp-mode) 212 (setq major-mode 'emacs-lisp-mode)
213 (setq mode-name "Emacs-Lisp") 213 (setq mode-name "Emacs-Lisp")
214 (lisp-mode-variables nil) 214 (lisp-mode-variables nil)
215 (setq imenu-case-fold-search nil)
215 (run-hooks 'emacs-lisp-mode-hook)) 216 (run-hooks 'emacs-lisp-mode-hook))
216 217
217 (defvar lisp-mode-map () 218 (defvar lisp-mode-map ()
218 "Keymap for ordinary Lisp mode. 219 "Keymap for ordinary Lisp mode.
219 All commands in `shared-lisp-mode-map' are inherited by this map.") 220 All commands in `shared-lisp-mode-map' are inherited by this map.")
240 (kill-all-local-variables) 241 (kill-all-local-variables)
241 (use-local-map lisp-mode-map) 242 (use-local-map lisp-mode-map)
242 (setq major-mode 'lisp-mode) 243 (setq major-mode 'lisp-mode)
243 (setq mode-name "Lisp") 244 (setq mode-name "Lisp")
244 (lisp-mode-variables t) 245 (lisp-mode-variables t)
246 (setq imenu-case-fold-search t)
245 (set-syntax-table lisp-mode-syntax-table) 247 (set-syntax-table lisp-mode-syntax-table)
246 (run-hooks 'lisp-mode-hook)) 248 (run-hooks 'lisp-mode-hook))
247 249
248 ;; This will do unless shell.el is loaded. 250 ;; This will do unless shell.el is loaded.
249 (defun lisp-eval-defun nil 251 (defun lisp-eval-defun nil