diff options
| author | Juanma Barranquero | 2009-01-18 22:32:20 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2009-01-18 22:32:20 +0000 |
| commit | 9e3fd593e8a293ca9e65e84d08636f832cb2845c (patch) | |
| tree | 9306b62342b6a1f5712026daf384294e85a1bf0c /lisp/textmodes | |
| parent | ae4c27d26fc25068bff8e9cb4dc14c7575c2a0c6 (diff) | |
| download | emacs-9e3fd593e8a293ca9e65e84d08636f832cb2845c.tar.gz emacs-9e3fd593e8a293ca9e65e84d08636f832cb2845c.zip | |
* textmodes/css-mode.el (css-backward-sexp): Stop once
it reaches the beginning of the buffer. (Bug#1949)
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/css-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index fdc9349639a..70dc3ca5706 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el | |||
| @@ -92,7 +92,7 @@ | |||
| 92 | ;; vice-versa). | 92 | ;; vice-versa). |
| 93 | (t nil))) | 93 | (t nil))) |
| 94 | elems)) | 94 | elems)) |
| 95 | 95 | ||
| 96 | 96 | ||
| 97 | (defun css-extract-props-and-vals () | 97 | (defun css-extract-props-and-vals () |
| 98 | (with-temp-buffer | 98 | (with-temp-buffer |
| @@ -108,7 +108,7 @@ | |||
| 108 | (progn | 108 | (progn |
| 109 | (re-search-forward "[ \t\n]+|[ \t\n]+<a href=\"cascade.html#value-def-inherit\" class=\"noxref\"><span class=\"value-inst-inherit\">inherit</span></a>") | 109 | (re-search-forward "[ \t\n]+|[ \t\n]+<a href=\"cascade.html#value-def-inherit\" class=\"noxref\"><span class=\"value-inst-inherit\">inherit</span></a>") |
| 110 | (match-beginning 0))))) | 110 | (match-beginning 0))))) |
| 111 | ;; | 111 | ;; |
| 112 | (push (cons prop (css-extract-parse-val-grammar vals-string props)) | 112 | (push (cons prop (css-extract-parse-val-grammar vals-string props)) |
| 113 | props))))) | 113 | props))))) |
| 114 | props))) | 114 | props))) |
| @@ -313,7 +313,7 @@ | |||
| 313 | (fill-paragraph justify) | 313 | (fill-paragraph justify) |
| 314 | ;; Don't try filling again. | 314 | ;; Don't try filling again. |
| 315 | t))) | 315 | t))) |
| 316 | 316 | ||
| 317 | ((and (null (nth 8 ppss)) | 317 | ((and (null (nth 8 ppss)) |
| 318 | (or (nth 1 ppss) | 318 | (or (nth 1 ppss) |
| 319 | (and (ignore-errors | 319 | (and (ignore-errors |
| @@ -373,7 +373,7 @@ | |||
| 373 | (save-excursion | 373 | (save-excursion |
| 374 | (forward-comment (- (point-max))) | 374 | (forward-comment (- (point-max))) |
| 375 | ;; FIXME: We should also skip punctuation. | 375 | ;; FIXME: We should also skip punctuation. |
| 376 | (not (memq (char-before) '(?\; ?\{))))))))))) | 376 | (not (or (bobp) (memq (char-before) '(?\; ?\{)))))))))))) |
| 377 | 377 | ||
| 378 | (defun css-forward-sexp (n) | 378 | (defun css-forward-sexp (n) |
| 379 | (let ((forward-sexp-function nil)) | 379 | (let ((forward-sexp-function nil)) |
| @@ -457,7 +457,7 @@ | |||
| 457 | (if (looking-at "\\s(") | 457 | (if (looking-at "\\s(") |
| 458 | (css-indent-calculate) | 458 | (css-indent-calculate) |
| 459 | (css-indent-calculate-virtual)))))))))) | 459 | (css-indent-calculate-virtual)))))))))) |
| 460 | 460 | ||
| 461 | 461 | ||
| 462 | (defun css-indent-line () | 462 | (defun css-indent-line () |
| 463 | "Indent current line according to CSS indentation rules." | 463 | "Indent current line according to CSS indentation rules." |