Mercurial > emacs
comparison lisp/progmodes/cc-defs.el @ 67350:946119cea694
(c-emacs-features): Don't assume point-min==1.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 Dec 2005 16:54:20 +0000 |
| parents | 04d2abb755d9 |
| children | e7ac0fc47db5 |
comparison
equal
deleted
inserted
replaced
| 67349:8fd060c85b66 | 67350:946119cea694 |
|---|---|
| 1398 | 1398 |
| 1399 ;; Find out if the `syntax-table' text property works. | 1399 ;; Find out if the `syntax-table' text property works. |
| 1400 (modify-syntax-entry ?< ".") | 1400 (modify-syntax-entry ?< ".") |
| 1401 (modify-syntax-entry ?> ".") | 1401 (modify-syntax-entry ?> ".") |
| 1402 (insert "<()>") | 1402 (insert "<()>") |
| 1403 (c-mark-<-as-paren 1) | 1403 (c-mark-<-as-paren (point-min)) |
| 1404 (c-mark->-as-paren 4) | 1404 (c-mark->-as-paren (+ 3 (point-min))) |
| 1405 (goto-char 1) | 1405 (goto-char (point-min)) |
| 1406 (c-forward-sexp) | 1406 (c-forward-sexp) |
| 1407 (if (= (point) 5) | 1407 (if (= (point) (+ 4 (point-min))) |
| 1408 (setq list (cons 'syntax-properties list)) | 1408 (setq list (cons 'syntax-properties list)) |
| 1409 (error (concat | 1409 (error (concat |
| 1410 "CC Mode is incompatible with this version of Emacs - " | 1410 "CC Mode is incompatible with this version of Emacs - " |
| 1411 "support for the `syntax-table' text property " | 1411 "support for the `syntax-table' text property " |
| 1412 "is required."))) | 1412 "is required."))) |
| 2034 match)) | 2034 match)) |
| 2035 | 2035 |
| 2036 | 2036 |
| 2037 (cc-provide 'cc-defs) | 2037 (cc-provide 'cc-defs) |
| 2038 | 2038 |
| 2039 ;;; arch-tag: 3bb2629d-dd84-4ff0-ad39-584be0fe3cda | 2039 ;; arch-tag: 3bb2629d-dd84-4ff0-ad39-584be0fe3cda |
| 2040 ;;; cc-defs.el ends here | 2040 ;;; cc-defs.el ends here |