Mercurial > emacs
changeset 99432:9241443c239d
(lisp-mode-variables): Add new argument
to initialize font-lock keyword case sensitivity.
(lisp-mode): Use it.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 07 Nov 2008 06:30:17 +0000 |
| parents | fe571ea62851 |
| children | 526e8371e23f |
| files | lisp/ChangeLog lisp/emacs-lisp/lisp-mode.el |
| diffstat | 2 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")