Nothing "serious", I just like colourful editing. I sent the file also as a wishlist bug (#279061) for the debian-el package. Cheers, -- W. Borgert <[EMAIL PROTECTED]>, http://people.debian.org/~debacle/
;;; preseed.el --- a major mode for editing d-i preseed files ;; 2004-10-31, W. Borgert <[EMAIL PROTECTED]> ;; Use this file under the terms of the GNU General Public License
(require 'font-lock) (defvar preseed-mode-abbrev-table nil "Abbreviation table used in d-i preseed buffers.") (define-abbrev-table 'preseed-mode-abbrev-table ()) (setq preseed-font-lock-keywords (eval-when-compile (list (list "\\(^\\s-+#.*\\)" '(1 font-lock-comment-face)) (list "^\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)" '(1 font-lock-keyword-face) '(2 font-lock-function-name-face) '(3 font-lock-type-face))))) (defun preseed-mode () "Major mode for editing d-i preseed files colourfully." (interactive) (kill-all-local-variables) (setq comment-start "#" comment-multi-line nil comment-start-skip "#+[\t ]*") (setq major-mode 'preseed-mode mode-name "Preseed" local-abbrev-table preseed-mode-abbrev-table) (run-hooks 'preseed-mode-hook) (set (make-local-variable 'font-lock-defaults) '(preseed-font-lock-keywords nil nil ((?_ . "w"))))) (provide 'preseed)