-;;; generic-x.el --- Extra Modes for generic-mode
+;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*-
;; Copyright (C) 1997, 1998 Free Software Foundation, Inc.
(list ?#)
nil
'(("^\\s-*\\(<.*>\\)" 1 'font-lock-constant-face)
- ("^\\(\\sw+\\)\\s-" 1 'font-lock-variable-name-face))
+ ("^\\s-*\\(\\sw+\\)\\s-" 1 'font-lock-variable-name-face))
(list "srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
(list
(function
(1 font-lock-keyword-face)
(2 font-lock-constant-face nil t))
;; system variables
- (eval-when-compile
- (generic-make-keywords-list
- installshield-system-variables-list
- 'font-lock-variable-name-face "[^_]" "[^_]"))
+ (generic-make-keywords-list
+ installshield-system-variables-list
+ 'font-lock-variable-name-face "[^_]" "[^_]")
;; system functions
(generic-make-keywords-list
installshield-system-functions-list
'font-lock-function-name-face "[^_]" "[^_]")
;; type keywords
- (eval-when-compile
- (generic-make-keywords-list
- installshield-types-list
- 'font-lock-type-face "[^_]" "[^_]"))
+ (generic-make-keywords-list
+ installshield-types-list
+ 'font-lock-type-face "[^_]" "[^_]")
;; function argument constants
- (eval-when-compile
- (generic-make-keywords-list
- installshield-funarg-constants-list
- 'font-lock-variable-name-face "[^_]" "[^_]")) ; is this face the best choice?
+ (generic-make-keywords-list
+ installshield-funarg-constants-list
+ 'font-lock-variable-name-face "[^_]" "[^_]") ; is this face the best choice?
)
(list "\\.[rR][uU][lL]$")
(list
"if"
"ignore"
"set"
+ "source"
"unset"
)
'(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
(2 font-lock-constant-face) (3 font-lock-variable-name-face))
("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
- (2 font-lock-constant-face) (3 font-lock-variable-name-face)))
+ (2 font-lock-constant-face) (3 font-lock-variable-name-face))
+ ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
+ (2 font-lock-variable-name-face)))
(list "\\.mailrc\\'")
nil
"Mode for mailrc files.")
("\t+" . 'show-tabs-tab-face)))
(defface show-tabs-tab-face
- '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
- (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
+ '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
+ (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
(((class color) (background light)) (:foreground "red"))
(((class color) (background dark)) (:foreground "red"))
- (t (:bold t)))
+ (t (:weight bold)))
"Font Lock mode face used to highlight TABs."
:group 'show-tabs)
(defface show-tabs-space-face
- '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
- (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
+ '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
+ (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
(((class color) (background light)) (:foreground "yellow"))
(((class color) (background dark)) (:foreground "yellow"))
- (t (:bold t)))
+ (t (:weight bold)))
"Font Lock mode face used to highlight spaces."
:group 'show-tabs)