mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(dcl-font-lock-keywords, dcl-font-lock-defaults): New vars.

Browse Source 
(dcl-mode): Make and init local var `font-lock-defaults'.
This commit is contained in:
Thien-Thi Nguyen 2003-03-06 23:14:23 +00:00
parent 74ad90d112
commit 334f206c56
2 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2003-03-07 Thien-Thi Nguyen <ttn@gnu.org>
* progmodes/dcl-mode.el (dcl-font-lock-keywords): New var.
(dcl-font-lock-defaults): Newvar.
(dcl-mode): Make and init local var `font-lock-defaults'.
2003-03-06 Kevin Rodgers <kevin.rodgers@ihs.com>
* ffap.el (dired-at-point): Check whether the user can create a

30
lisp/progmodes/dcl-mode.el
View File

@ -51,6 +51,7 @@
;;
;;
;; Ideas for improvement:
;; * Better font-lock support.
;; * Change meaning of `left margin' when dcl-tab-always-indent is nil.
;; Consider the following line (`_' is the cursor):
;; $ label: _ command
@ -71,6 +72,26 @@
;;; *** Customization *****************************************************
;; First, font lock. This is a minimal approach, please improve!
(defvar dcl-font-lock-keywords
'(("\\<\\(if\\|then\\|else\\|endif\\)\\>"
1 font-lock-keyword-face)
("\\<f[$][a-z]+\\>"
0 font-lock-builtin-face)
("[.]\\(eq\\|not\\|or\\|and\\|lt\\|gt\\|le\\|ge\\|eqs\\|nes\\)[.]"
0 font-lock-builtin-face))
"Font lock keyword specification for DCL mode.
Presently this includes some syntax, .OP.erators, and \"f$\" lexicals.")
(defvar dcl-font-lock-defaults
'(dcl-font-lock-keywords nil)
"Font lock specification for DCL mode.")
;; Now the rest.
(defgroup dcl nil
"Major mode for editing DCL command files."
:group 'languages)
@ -566,7 +587,10 @@ Data lines are not indented at all.
$ endloop1: ! This matches dcl-block-end-regexp
$ endif
$
"
There is some minimal font-lock support (see vars
`dcl-font-lock-defaults' and `dcl-font-lock-keywords')."
(interactive)
(kill-all-local-variables)
(set-syntax-table dcl-mode-syntax-table)
@ -609,6 +633,10 @@ $
(make-local-variable 'dcl-calc-cont-indent-function)
(make-local-variable 'dcl-electric-reindent-regexps)
;; font lock
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults dcl-font-lock-defaults)
(setq major-mode 'dcl-mode)
(setq mode-name "DCL")
(use-local-map dcl-mode-map)