aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorJuanma Barranquero2009-01-18 22:32:20 +0000
committerJuanma Barranquero2009-01-18 22:32:20 +0000
commit9e3fd593e8a293ca9e65e84d08636f832cb2845c (patch)
tree9306b62342b6a1f5712026daf384294e85a1bf0c /lisp/textmodes
parentae4c27d26fc25068bff8e9cb4dc14c7575c2a0c6 (diff)
downloademacs-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.el10
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."