diff options
Diffstat (limited to 'lisp/textmodes/css-mode.el')
| -rw-r--r-- | lisp/textmodes/css-mode.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index dd04f9db5af..60ba63f3a59 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -33,6 +33,10 @@ ;;; Code: +(defgroup css nil + "Cascading Style Sheets (CSS) editing mode." + :group 'languages) + (eval-when-compile (require 'cl)) (defun css-extract-keyword-list (res) @@ -175,7 +179,8 @@ "Self inserting keys which should trigger re-indentation." :version "22.2" :type '(repeat character) - :options '((?\} ?\;))) + :options '((?\} ?\;)) + :group 'css) (defvar css-mode-syntax-table (let ((st (make-syntax-table))) @@ -210,9 +215,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) @@ -250,11 +257,9 @@ (defvar css-font-lock-defaults '(css-font-lock-keywords nil t)) -(unless (fboundp 'prog-mode) (defalias 'prog-mode 'fundamental-mode)) - ;;;###autoload (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode)) ;;;###autoload -(define-derived-mode css-mode prog-mode "CSS" +(define-derived-mode css-mode fundamental-mode "CSS" "Major mode to edit Cascading Style Sheets." (set (make-local-variable 'font-lock-defaults) css-font-lock-defaults) (set (make-local-variable 'comment-start) "/*") @@ -352,7 +357,7 @@ (map-char-table (lambda (c v) ;; Turn punctuation (code = 1) into symbol (code = 1). (if (eq (car-safe v) 1) - (aset st c (cons 3 (cdr v))))) + (set-char-table-range st c (cons 3 (cdr v))))) st) st)) @@ -396,7 +401,8 @@ (defcustom css-indent-offset 4 "Basic size of one indentation step." :version "22.2" - :type 'integer) + :type 'integer + :group 'css) (defun css-indent-calculate () (let ((ppss (syntax-ppss)) |