Commit 96736d92 authored by Glenn Morris's avatar Glenn Morris
Browse files

(css): New custom group.

(css-electrick-keys, css-selector, css-property)
(css-indent-offset): Specify custom group.
parent 3c8e09dc
......@@ -3,6 +3,13 @@
* calendar/holidays.el (holiday-list): Rename it back to
`list-holidays', but leave `holiday-list' as an alias.
* textmodes/bibtex-style.el (bibtex-style-indent-basic): Specify a
custom group.
* textmodes/css-mode.el (css): New custom group.
(css-electrick-keys, css-selector, css-property)
(css-indent-offset): Specify custom group.
2007-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs.el (cvs-tags-list, cvs-retrieve-revision, cvs-find-modif)
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment