From 96736d92c6b22cbdaa1192e48f6968a045b319ce Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 15 Sep 2007 20:45:41 +0000 Subject: (css): New custom group. (css-electrick-keys, css-selector, css-property) (css-indent-offset): Specify custom group. --- lisp/textmodes/css-mode.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'lisp/textmodes/css-mode.el') diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index b00fc356cce..e90fa615039 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) + (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)) -- cgit v1.2.3 From fb7d927563e41543ed9951e8d7c961f7b2f3eaa2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Sep 2007 01:48:23 +0000 Subject: (css-electric-keys): electrick->electric. (css-mode): Update correspondingly. --- lisp/ChangeLog | 8 ++++++-- lisp/textmodes/css-mode.el | 6 +++--- 2 files changed, 9 insertions(+), 5 deletions(-) (limited to 'lisp/textmodes/css-mode.el') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dffaebff3c0..d451c2e9ec9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-09-18 Stefan Monnier + + * textmodes/css-mode.el (css-electric-keys): electrick->electric. + (css-mode): Update correspondingly. + 2007-09-18 Stefan Monnier * vc-arch.el (vc-arch-extra-menu-map): New var and fun. @@ -15,8 +20,7 @@ * vc.el: Document new VC operation `extra-menu'. - * vc-hooks.el (vc-default-extra-menu, vc-menu-map-filter): New - function. + * vc-hooks.el (vc-default-extra-menu, vc-menu-map-filter): New fun. 2007-09-17 Dan Nicolaescu diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index f686215d31c..d21559411e7 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -169,7 +169,7 @@ "word-spacing" "z-index") "Identifiers for properties.") -(defcustom css-electrick-keys '(?\} ?\;) ;; '() +(defcustom css-electric-keys '(?\} ?\;) ;; '() "Self inserting keys which should trigger re-indentation." :type '(repeat character) :options '((?\} ?\;))) @@ -263,10 +263,10 @@ (set (make-local-variable 'indent-line-function) 'css-indent-line) (set (make-local-variable 'fill-paragraph-function) 'css-fill-paragraph) - (when css-electrick-keys + (when css-electric-keys (let ((fc (make-char-table 'auto-fill-chars))) (set-char-table-parent fc auto-fill-chars) - (dolist (c css-electrick-keys) + (dolist (c css-electric-keys) (aset fc c 'indent-according-to-mode)) (set (make-local-variable 'auto-fill-chars) fc)))) -- cgit v1.2.3