Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 65200:67e480d2dc8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-comment-face, font-lock-doc-face, font-lock-string-face, font-lock-keywords-case-fold-search): Add defvars. (emacs-lisp-mode-syntax-table): "?\ " -> "?\s".
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 29 Aug 2005 13:38:40 +0000
parents 5b1a238fcbb4
children e7b6d13be107 a3716f7538f2
comparison
equal deleted inserted replaced
65199:23741bfb23af 65200:67e480d2dc8c
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.