procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* textmodes/css-mode.el (css-backward-sexp): Stop once

Browse source 
it reaches the beginning of the buffer.  (Bug#1949)
This commit is contained in:
Juanma Barranquero 2009-01-18 22:32:20 +00:00
parent ae4c27d26f
commit 9e3fd593e8
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-01-18 Juanma Barranquero <lekktu@gmail.com>
* textmodes/css-mode.el (css-backward-sexp): Stop once it reaches
the beginning of the buffer. (Bug#1949)
2009-01-18 Markus Triska <markus.triska@gmx.at>
* linum.el (linum-update-window): Use `delq' instead of `delete';

10
lisp/textmodes/css-mode.el
View file

@ -92,7 +92,7 @@
;; vice-versa).
(t nil)))
elems))
(defun css-extract-props-and-vals ()
(with-temp-buffer
@ -108,7 +108,7 @@
(progn
(re-search-forward "[ \t\n]+|[ \t\n]+<a href=\"cascade.html#value-def-inherit\" class=\"noxref\"><span class=\"value-inst-inherit\">inherit</span></a>")
(match-beginning 0)))))
;;
;;
(push (cons prop (css-extract-parse-val-grammar vals-string props))
props)))))
props)))
@ -313,7 +313,7 @@
(fill-paragraph justify)
;; Don't try filling again.
t)))
((and (null (nth 8 ppss))
(or (nth 1 ppss)
(and (ignore-errors
@ -373,7 +373,7 @@
(save-excursion
(forward-comment (- (point-max)))
;; FIXME: We should also skip punctuation.
(not (memq (char-before) '(?\; ?\{)))))))))))
(not (or (bobp) (memq (char-before) '(?\; ?\{))))))))))))
(defun css-forward-sexp (n)
(let ((forward-sexp-function nil))
@ -457,7 +457,7 @@
(if (looking-at "\\s(")
(css-indent-calculate)
(css-indent-calculate-virtual))))))))))
(defun css-indent-line ()
"Indent current line according to CSS indentation rules."