lisp/emacs-lisp/generic.el

1 ;;; generic.el --- defining simple major modes with comment and font-lock
8 ;; Keywords: generic, comment, font-lock
32 ;; which provide basic comment and font-lock support.  These modes are
49 ;; * List of keywords to font-lock.  Each keyword should be a string.
50 ;;   If you have additional keywords which should be highlighted in a
51 ;;   face different from `font-lock-keyword-face', you can use the
52 ;;   convenience function `generic-make-keywords-list' (which see),
55 ;; * Additional expressions to font-lock.  This should be a list of
57 ;;   `font-lock-keywords'.
87 ;; Be careful that your font-lock definitions are correct.  Getting
102 (defvar generic-font-lock-keywords nil
103   "Keywords for `font-lock-defaults' in a generic mode.")
104 (make-variable-buffer-local 'generic-font-lock-keywords)
105 (define-obsolete-variable-alias 'generic-font-lock-defaults 'generic-font-lock-keywords "22.1")
119 				    font-lock-list auto-mode-list
137 KEYWORD-LIST is a list of keywords to highlight with
138 `font-lock-keyword-face'.  Each keyword should be a string.
142 `font-lock-keywords'.
180 				,font-lock-list ,function-list)))))
184 				   font-lock-list function-list)
198     ;; Font-lock functionality.
199     ;; Font-lock-defaults is always set even if there are no keywords
200     ;; or font-lock expressions, so comments can be highlighted.
201     (setq generic-font-lock-keywords font-lock-list)
204 	    generic-font-lock-keywords))
205     (setq font-lock-defaults '(generic-font-lock-keywords))
216 Generic modes provide basic comment and font-lock functionality
218 own mode, but have comment characters, keywords, and the like.)
301 (defun generic-make-keywords-list (keyword-list face &optional prefix suffix)
302   "Return a `font-lock-keywords' construct that highlights KEYWORD-LIST.
305 expression that matches these keywords and concatenates it with
308 `font-lock-keywords'."