Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
94686171
Commit
94686171
authored
Nov 07, 2008
by
Dan Nicolaescu
Browse files
(lisp-mode-variables): Add new argument
to initialize font-lock keyword case sensitivity. (lisp-mode): Use it.
parent
14760e95
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
6 deletions
+14
-6
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+8
-6
No files found.
lisp/ChangeLog
View file @
94686171
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.
...
...
lisp/emacs-lisp/lisp-mode.el
View file @
94686171
...
...
@@ -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 @@ if that value is non-nil."
(
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]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment