Mercurial > emacs
changeset 84579:ef7b976de171
(css): New custom group.
(css-electrick-keys, css-selector, css-property)
(css-indent-offset): Specify custom group.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 15 Sep 2007 20:45:34 +0000 |
| parents | 173641dec626 |
| children | 4968c5b03197 |
| files | lisp/textmodes/css-mode.el |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/css-mode.el Sat Sep 15 20:44:17 2007 +0000 +++ b/lisp/textmodes/css-mode.el Sat Sep 15 20:45:34 2007 +0000 @@ -33,6 +33,10 @@ ;;; Code: +(defgroup css nil + "Cascading Style Sheets (CSS) editing mode." + :group 'languages) + (defun css-extract-keyword-list (res) (with-temp-buffer (url-insert-file-contents "http://www.w3.org/TR/REC-CSS2/css2.txt") @@ -172,7 +176,8 @@ (defcustom css-electrick-keys '(?\} ?\;) ;; '() "Self inserting keys which should trigger re-indentation." :type '(repeat character) - :options '((?\} ?\;))) + :options '((?\} ?\;)) + :group 'css) (defvar css-mode-syntax-table (let ((st (make-syntax-table))) @@ -207,9 +212,11 @@ (defconst css-name-re (concat css-nmchar-re "+")) (defface css-selector '((t :inherit font-lock-function-name-face)) - "Face to use for selectors.") + "Face to use for selectors." + :group 'css) (defface css-property '((t :inherit font-lock-variable-name-face)) - "Face to use for properties.") + "Face to use for properties." + :group 'css) (defvar css-font-lock-keywords `(("!\\s-*important" . font-lock-builtin-face) @@ -390,7 +397,8 @@ (defcustom css-indent-offset 4 "Basic size of one indentation step." - :type 'integer) + :type 'integer + :group 'css) (defun css-indent-calculate () (let ((ppss (syntax-ppss))