Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 52288:c701c5555888
(common-lisp-mode): New.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 20 Aug 2003 18:53:12 +0000 |
| parents | 4a7f0e1b3678 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 52287:aece5dd1efda | 52288:c701c5555888 |
|---|---|
| 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-mode-hooks 'lisp-mode-hook)) | 359 (run-mode-hooks 'lisp-mode-hook)) |
| 360 | |
| 361 ;; Used in old LispM code. | |
| 362 (defalias 'common-lisp-mode 'lisp-mode) | |
| 360 | 363 |
| 361 ;; This will do unless inf-lisp.el is loaded. | 364 ;; This will do unless inf-lisp.el is loaded. |
| 362 (defun lisp-eval-defun (&optional and-go) | 365 (defun lisp-eval-defun (&optional and-go) |
| 363 "Send the current defun to the Lisp process made by \\[run-lisp]." | 366 "Send the current defun to the Lisp process made by \\[run-lisp]." |
| 364 (interactive) | 367 (interactive) |