version 1.36, 1999/11/20 12:12:52
|
version 1.37, 2000/03/18 21:27:38
|
Line 990 The region is sent terminated by a newli
|
Line 990 The region is sent terminated by a newli
|
; (define-key global-map '(shift button3) 'mouse-function-menu) |
; (define-key global-map '(shift button3) 'mouse-function-menu) |
)) |
)) |
|
|
|
;;; Highlighting |
|
|
|
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
|
(require 'hilit19) |
|
(require 'hl319)) |
|
|
|
(hilit-set-mode-patterns |
|
'(forth-mode) |
|
(append |
|
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
|
'(("( [^)]* -- [^)]* )" nil decl)) |
|
'(("( -- [^)]* )" nil decl)) |
|
'(("( [^)]* -- )" nil decl)) |
|
'(("( -- )" nil decl)) |
|
'(("( " ")" comment)) |
|
'(("\" [^\"]*\"" nil string)) |
|
'(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword)) |
|
'((": *[^ ]*" nil defun)) |
|
'(("Defer *[^ ]*" nil defun)) |
|
'(("Variable *[^ ]*" nil define)) |
|
'(("Constant *[^ ]*" nil define)) |
|
'(("include *[^ ]*" nil include)) |
|
'(("require *[^ ]*" nil include)) |
|
'(("[ ]\\$[0-9A-Fa-f]+" nil formula)) |
|
'(("[ ]&[0-9]+" nil formula)) |
|
'(("[ ][0-9]+" nil formula)) |
|
'(("[ ]%[01]+" nil formula)) |
|
'(("[ ]'[^ ]+" nil formula)) |
|
'((":noname" nil defun)))) |
|
|
;; end |
;; end |
|
|