Mercurial > emacs
changeset 101279:1d661f541768
* textmodes/css-mode.el (css-backward-sexp): Stop once
it reaches the beginning of the buffer. (Bug#1949)
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 18 Jan 2009 22:32:20 +0000 |
| parents | 5f5536e16f6b |
| children | 1e2f606ca81f |
| files | lisp/ChangeLog lisp/textmodes/css-mode.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jan 18 21:02:59 2009 +0000 +++ b/lisp/ChangeLog Sun Jan 18 22:32:20 2009 +0000 @@ -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';
--- a/lisp/textmodes/css-mode.el Sun Jan 18 21:02:59 2009 +0000 +++ b/lisp/textmodes/css-mode.el Sun Jan 18 22:32:20 2009 +0000 @@ -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."