Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90225:a3716f7538f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.