[Emacs-diffs] /srv/bzr/emacs/trunk r104771: * textmodes/css-mode.el (css-proprietary-nmstart-re): Use `regexp-opt'.

[Deniz Dogan]

------------------------------------------------------------
revno: 104771
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Tue 2011-06-28 13:37:05 +0200
message:
  * textmodes/css-mode.el (css-proprietary-nmstart-re): Use `regexp-opt'.
modified:
  lisp/ChangeLog
  lisp/textmodes/css-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-28 11:23:01 +0000
+++ b/lisp/ChangeLog    2011-06-28 11:37:05 +0000
@@ -2,6 +2,7 @@
 
        * textmodes/css-mode.el (css-font-lock-keywords): Fix grouped
        selectors (Bug#5732).
+       (css-proprietary-nmstart-re): Use `regexp-opt'.
 
 2011-06-27  Jari Aalto  <address@hidden>
 

=== modified file 'lisp/textmodes/css-mode.el'
--- a/lisp/textmodes/css-mode.el        2011-06-28 11:23:01 +0000
+++ b/lisp/textmodes/css-mode.el        2011-06-28 11:37:05 +0000
@@ -213,7 +213,7 @@
 (defconst css-nmstart-re (concat "\\(?:[[:alpha:]]\\|" css-escapes-re "\\)"))
 (defconst css-ident-re (concat css-nmstart-re css-nmchar-re "*"))
 (defconst css-proprietary-nmstart-re ;; Vendor-specific properties.
-  "[-_]\\(?:ms\\|moz\\|o\\|webkit\\|khtml\\)-")
+  (concat "[-_]" (regexp-opt '("ms" "moz" "o" "khtml" "webkit")) "-"))
 (defconst css-name-re (concat css-nmchar-re "+"))
 
 (defface css-selector '((t :inherit font-lock-function-name-face))