[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v |
Date: |
Fri, 07 Nov 2008 06:30:42 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/11/07 06:30:40
Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.231
retrieving revision 1.232
diff -u -b -r1.231 -r1.232
--- emacs-lisp/lisp-mode.el 4 Nov 2008 12:34:24 -0000 1.231
+++ emacs-lisp/lisp-mode.el 7 Nov 2008 06:30:39 -0000 1.232
@@ -193,9 +193,11 @@
font-lock-string-face))))
font-lock-comment-face))
-;; The LISP-SYNTAX argument is used by code in inf-lisp.el and is
-;; (uselessly) passed from pp.el, chistory.el, gnus-kill.el and score-mode.el
-(defun lisp-mode-variables (&optional lisp-syntax)
+(defun lisp-mode-variables (&optional lisp-syntax keywords-case-insensitive)
+ "Common initialization routine for lisp modes.
+The LISP-SYNTAX argument is used by code in inf-lisp.el and is
+(uselessly) passed from pp.el, chistory.el, gnus-kill.el and score-mode.el
+KEYWORDS-CASE-SENSITIVE means that for font-lock keywords will not be case
sensitive."
(when lisp-syntax
(set-syntax-table lisp-mode-syntax-table))
(setq local-abbrev-table lisp-mode-abbrev-table)
@@ -241,9 +243,9 @@
(setq multibyte-syntax-as-symbol t)
(set (make-local-variable 'syntax-begin-function) 'beginning-of-defun)
(setq font-lock-defaults
- '((lisp-font-lock-keywords
+ `((lisp-font-lock-keywords
lisp-font-lock-keywords-1 lisp-font-lock-keywords-2)
- nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) nil
+ nil ,keywords-case-insensitive (("+-*/.<>=!?$%_&~^:@" . "w")) nil
(font-lock-mark-block-function . mark-defun)
(font-lock-syntactic-face-function
. lisp-font-lock-syntactic-face-function))))
@@ -464,7 +466,7 @@
(use-local-map lisp-mode-map)
(setq major-mode 'lisp-mode)
(setq mode-name "Lisp")
- (lisp-mode-variables)
+ (lisp-mode-variables nil t)
(make-local-variable 'comment-start-skip)
(setq comment-start-skip
"\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Martin Rudalics, 2008/11/02
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Chong Yidong, 2008/11/02
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Martin Rudalics, 2008/11/04
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v,
Dan Nicolaescu <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Glenn Morris, 2008/11/18