aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSimen Heggestøyl2015-02-05 15:29:54 -0500
committerStefan Monnier2015-02-05 15:29:54 -0500
commit8c80eb48170eb2f02adaae08442d187eeecfbefa (patch)
treebe202ab23aea9f07bfe011a1867334130ce25b63
parent6aa04a5570b50a68665e69231f3e36b2a4625f40 (diff)
downloademacs-8c80eb48170eb2f02adaae08442d187eeecfbefa.tar.gz
emacs-8c80eb48170eb2f02adaae08442d187eeecfbefa.zip
* lisp/textmodes/css-mode.el: Handle variable interpolation
Fixes: debbugs:19751 * lisp/textmodes/css-mode.el (css-fill-paragraph): Fix filling in presence of variable interpolation.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/css-mode.el9
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9838d68f7d3..62c4e9a937c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12015-02-05 Simen Heggestøyl <simenheg@gmail.com> (tiny change)
2
3 * textmodes/css-mode.el (css-fill-paragraph): Fix filling in presence
4 of variable interpolation (bug#19751).
5
12015-02-05 Era Eriksson <era+emacs@iki.fi> 62015-02-05 Era Eriksson <era+emacs@iki.fi>
2 7
3 * json.el (json-end-of-file): New error (bug#19768). 8 * json.el (json-end-of-file): New error (bug#19768).
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index c171bd50f62..fbaa486fd2e 100644
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -1,4 +1,4 @@
1;;; css-mode.el --- Major mode to edit CSS files -*- lexical-binding: t -*- 1;;; css-mode.el --- Major mode to edit CSS files -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 2006-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2006-2015 Free Software Foundation, Inc.
4 4
@@ -401,11 +401,16 @@
401 (cond 401 (cond
402 ;; This is a false positive inside a string or comment. 402 ;; This is a false positive inside a string or comment.
403 ((nth 8 (syntax-ppss)) nil) 403 ((nth 8 (syntax-ppss)) nil)
404 ;; This is a false positive when encountering an
405 ;; interpolated variable (bug#19751).
406 ((eq (char-before (- (point) 1)) ?#) nil)
404 ((eq (char-before) ?\}) 407 ((eq (char-before) ?\})
405 (save-excursion 408 (save-excursion
406 (forward-char -1) 409 (forward-char -1)
407 (skip-chars-backward " \t") 410 (skip-chars-backward " \t")
408 (unless (bolp) (newline)))) 411 (when (and (not (bolp))
412 (scss-smie--not-interpolation-p))
413 (newline))))
409 (t 414 (t
410 (while 415 (while
411 (progn 416 (progn