Font locking for apt-sources.el

[address@hidden]

Hi,

I'm trying to improve font locking in apt-sources.el (available in
debian-el package).
What do think of the following code:


(defvar apt-sources-font-lock-keywords
  (list
   ;; Comments
   '("#.*$" . font-lock-comment-face)
   '("\\(^deb \\|^deb-src \\)" . font-lock-constant-face)
   '("\\(^deb \\|^deb-src
\\)\\(\\(http://\\|https://\\|ftp://\\|ssh://\\|rsh://copy://\\|cdrom:\\(\\[.*]\\)?\\|file:/\\)[^
\]+\\)" . (2 font-lock-variable-name-face))
   '("\\(^deb \\|^deb-src \\)\\([^ ]+\\|\\(cdrom:\\[.*][^ ]\\)\\)
\\(\\(experimental\\|unstable\\|testing\\|stable\\|etch\\|\woody\\sarge\\|sid\\|\\(\\(warty\\|hoary\\|breezy\\|dapper\\)\\(-updates\\|-security\\)?\\)\\)\\(/[^
\n]*\\)*\\)\\( \\|$\\)"\ . (4 font-lock-type-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(main\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(contrib\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(non-free\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(restricted\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(universe\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
   '("\\(^deb \\|^deb-src \\)\\([^ \n]+ \\)\\{2,\\}\\(multiverse\\(
\\|$\\)\\)" . (3 font-lock-keyword-face))
)

--
Jiri Pejchal