Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 90225:a3716f7538f2
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-79
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 519-530)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 106-111)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 06 Sep 2005 00:25:20 +0000 |
parents | 2d92f5c9d6ae 67e480d2dc8c |
children | aa89c814f853 |
comparison
equal
deleted
inserted
replaced
90224:2d92f5c9d6ae | 90225:a3716f7538f2 |
---|---|
27 | 27 |
28 ;; The base major mode for editing Lisp code (used also for Emacs Lisp). | 28 ;; The base major mode for editing Lisp code (used also for Emacs Lisp). |
29 ;; This mode is documented in the Emacs manual. | 29 ;; This mode is documented in the Emacs manual. |
30 | 30 |
31 ;;; Code: | 31 ;;; Code: |
32 | |
33 (defvar font-lock-comment-face) | |
34 (defvar font-lock-doc-face) | |
35 (defvar font-lock-keywords-case-fold-search) | |
36 (defvar font-lock-string-face) | |
32 | 37 |
33 (defvar lisp-mode-abbrev-table nil) | 38 (defvar lisp-mode-abbrev-table nil) |
34 | 39 |
35 (defvar emacs-lisp-mode-syntax-table | 40 (defvar emacs-lisp-mode-syntax-table |
36 (let ((table (make-syntax-table))) | 41 (let ((table (make-syntax-table))) |
48 (setq i (1+ i))) | 53 (setq i (1+ i))) |
49 (setq i (1+ ?z)) | 54 (setq i (1+ ?z)) |
50 (while (< i 128) | 55 (while (< i 128) |
51 (modify-syntax-entry i "_ " table) | 56 (modify-syntax-entry i "_ " table) |
52 (setq i (1+ i))) | 57 (setq i (1+ i))) |
53 (modify-syntax-entry ? " " table) | 58 (modify-syntax-entry ?\s " " table) |
54 (modify-syntax-entry ?\t " " table) | 59 (modify-syntax-entry ?\t " " table) |
55 (modify-syntax-entry ?\f " " table) | 60 (modify-syntax-entry ?\f " " table) |
56 (modify-syntax-entry ?\n "> " table) | 61 (modify-syntax-entry ?\n "> " table) |
57 ;;; This is probably obsolete since nowadays such features use overlays. | 62 ;;; This is probably obsolete since nowadays such features use overlays. |
58 ;;; ;; Give CR the same syntax as newline, for selective-display. | 63 ;;; ;; Give CR the same syntax as newline, for selective-display. |