* lisp/textmodes/css-mode.el (css-smie-rules): Fix indentation.

(css-mode): Use electric-indent-chars.

Fixes: debbugs:15467

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17ba29fd0aee33c9a6749bed906c0aab99648404..972eb2fe2d756286030d75455a6de1470d0e659f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-10-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * textmodes/css-mode.el (css-smie-rules): Fix indentation (bug#15467).
+       (css-mode): Use electric-indent-chars.
+
        * nxml/nxml-mode.el: Use lexical-binding and syntax-propertize.
        (font-lock-beg, font-lock-end): Move before first use.
        (nxml-mode): Use syntax-propertize-function.

diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 0f4daa9a35cbd4a1b99bf474b62b5bbbe54b3dd1..e82717258753f8a4f19c2c17ced1302d80409efc 100644 (file)
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -302,7 +302,7 @@
   (pcase (cons kind token)
     (`(:elem . basic) css-indent-offset)
     (`(:elem . arg) 0)
-    (`(:list-intro . "") t)             ;"" stands for BOB (bug#15467).
+    (`(:list-intro . ,(or `";" `"")) t) ;"" stands for BOB (bug#15467).
     (`(:before . "{") (if (smie-rule-hanging-p)
                          (smie-rule-parent 0)))))
 
@@ -321,12 +321,8 @@
   (smie-setup css-smie-grammar #'css-smie-rules
               :forward-token #'css-smie--forward-token
               :backward-token #'css-smie--backward-token)
-  (when css-electric-keys
-    (let ((fc (make-char-table 'auto-fill-chars)))
-      (set-char-table-parent fc auto-fill-chars)
-      (dolist (c css-electric-keys)
-        (aset fc c 'indent-according-to-mode))
-      (setq-local auto-fill-chars fc))))
+  (setq-local electric-indent-chars
+              (append css-electric-keys electric-indent-chars)))
 
 (defvar comment-continue)
 

diff --git a/test/indent/css-mode.css b/test/indent/css-mode.css
index f378753846090158beee218318baf1522c5fd8ca..9a2a15f6ba5429aec83f59bda9deafef5d37909d 100644 (file)
--- a/test/indent/css-mode.css
+++ b/test/indent/css-mode.css
@@ -1,3 +1,11 @@
 .xxx
 {
 }
+
+.x2
+{
+}
+
+div.x3
+{
+}