Mercurial > emacs
comparison lisp/textmodes/css-mode.el @ 81288:a8ba55c33235
(css-navigation-syntax-table):
Use set-char-table-range so it also works in the unicode branch.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 08 Jun 2007 21:57:46 +0000 |
| parents | 9a267b605d8a |
| children | b98604865ea0 |
comparison
equal
deleted
inserted
replaced
| 81287:adbf60b3cc56 | 81288:a8ba55c33235 |
|---|---|
| 345 (defconst css-navigation-syntax-table | 345 (defconst css-navigation-syntax-table |
| 346 (let ((st (make-syntax-table css-mode-syntax-table))) | 346 (let ((st (make-syntax-table css-mode-syntax-table))) |
| 347 (map-char-table (lambda (c v) | 347 (map-char-table (lambda (c v) |
| 348 ;; Turn punctuation (code = 1) into symbol (code = 1). | 348 ;; Turn punctuation (code = 1) into symbol (code = 1). |
| 349 (if (eq (car-safe v) 1) | 349 (if (eq (car-safe v) 1) |
| 350 (aset st c (cons 3 (cdr v))))) | 350 (set-char-table-range st c (cons 3 (cdr v))))) |
| 351 st) | 351 st) |
| 352 st)) | 352 st)) |
| 353 | 353 |
| 354 (defun css-backward-sexp (n) | 354 (defun css-backward-sexp (n) |
| 355 (let ((forward-sexp-function nil)) | 355 (let ((forward-sexp-function nil)) |