# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1226039417 0
# Node ID 9241443c239d154421fd79e178114633a6ae4546
# Parent  fe571ea62851a90ba41b254740470b02a9bd07f1
(lisp-mode-variables): Add new argument
to initialize font-lock keyword case sensitivity.
(lisp-mode): Use it.

diff -r fe571ea62851 -r 9241443c239d lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 07 05:25:49 2008 +0000
+++ b/lisp/ChangeLog	Fri Nov 07 06:30:17 2008 +0000
@@ -1,3 +1,9 @@
+2008-11-07  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* emacs-lisp/lisp-mode.el (lisp-mode-variables): Add new argument
+	to initialize font-lock keyword case sensitivity.
+	(lisp-mode): Use it.
+
 2008-11-06  Glenn Morris  <rgm@gnu.org>
 
 	* eshell/esh-maint.el: Remove unused file.
diff -r fe571ea62851 -r 9241443c239d lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Fri Nov 07 05:25:49 2008 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Fri Nov 07 06:30:17 2008 +0000
@@ -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]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")