Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 51981:e363b422bcd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-lisp-mode): Use run-mode-hooks. (lisp-mode): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Jul 2003 09:58:06 +0000
parents d3d6b202a5f2
children 4a7f0e1b3678
comparison
equal deleted inserted replaced
51980:b7fa62a1a49d 51981:e363b422bcd4
318 (set-syntax-table emacs-lisp-mode-syntax-table) 318 (set-syntax-table emacs-lisp-mode-syntax-table)
319 (setq major-mode 'emacs-lisp-mode) 319 (setq major-mode 'emacs-lisp-mode)
320 (setq mode-name "Emacs-Lisp") 320 (setq mode-name "Emacs-Lisp")
321 (lisp-mode-variables) 321 (lisp-mode-variables)
322 (setq imenu-case-fold-search nil) 322 (setq imenu-case-fold-search nil)
323 (run-hooks 'emacs-lisp-mode-hook)) 323 (run-mode-hooks 'emacs-lisp-mode-hook))
324 (put 'emacs-lisp-mode 'custom-mode-group 'lisp) 324 (put 'emacs-lisp-mode 'custom-mode-group 'lisp)
325 325
326 (defvar lisp-mode-map 326 (defvar lisp-mode-map
327 (let ((map (make-sparse-keymap))) 327 (let ((map (make-sparse-keymap)))
328 (set-keymap-parent map lisp-mode-shared-map) 328 (set-keymap-parent map lisp-mode-shared-map)
354 "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *") 354 "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")
355 (make-local-variable 'font-lock-keywords-case-fold-search) 355 (make-local-variable 'font-lock-keywords-case-fold-search)
356 (setq font-lock-keywords-case-fold-search t) 356 (setq font-lock-keywords-case-fold-search t)
357 (setq imenu-case-fold-search t) 357 (setq imenu-case-fold-search t)
358 (set-syntax-table lisp-mode-syntax-table) 358 (set-syntax-table lisp-mode-syntax-table)
359 (run-hooks 'lisp-mode-hook)) 359 (run-mode-hooks 'lisp-mode-hook))
360 360
361 ;; This will do unless inf-lisp.el is loaded. 361 ;; This will do unless inf-lisp.el is loaded.
362 (defun lisp-eval-defun (&optional and-go) 362 (defun lisp-eval-defun (&optional and-go)
363 "Send the current defun to the Lisp process made by \\[run-lisp]." 363 "Send the current defun to the Lisp process made by \\[run-lisp]."
364 (interactive) 364 (interactive)