Mercurial > emacs
comparison lisp/progmodes/cc-mode.el @ 80822:6e4cf6b4a898
Stefan Monnier <monnier at iro.umontreal.ca>
(c-before-change): Use point-min rather than 1.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 28 Apr 2007 20:37:52 +0000 |
| parents | a0da91c5a123 |
| children | 5131a632194a 70bf32a0f523 |
comparison
equal
deleted
inserted
replaced
| 80821:b3612f6b331d | 80822:6e4cf6b4a898 |
|---|---|
| 520 (memq (c-get-char-property (1- (point)) 'face) | 520 (memq (c-get-char-property (1- (point)) 'face) |
| 521 '(font-lock-comment-face font-lock-string-face)))) | 521 '(font-lock-comment-face font-lock-string-face)))) |
| 522 (setq lim (max (point-min) (1- (point)))) | 522 (setq lim (max (point-min) (1- (point)))) |
| 523 | 523 |
| 524 ;; Look for the latest `c-type' property before end1 | 524 ;; Look for the latest `c-type' property before end1 |
| 525 (when (and (> end1 1) | 525 (when (and (> end1 (point-min)) |
| 526 (setq type-pos | 526 (setq type-pos |
| 527 (if (get-text-property (1- end1) 'c-type) | 527 (if (get-text-property (1- end1) 'c-type) |
| 528 end1 | 528 end1 |
| 529 (previous-single-property-change end1 'c-type nil lim)))) | 529 (previous-single-property-change end1 'c-type nil lim)))) |
| 530 (setq type (get-text-property (max (1- type-pos) lim) 'c-type)) | 530 (setq type (get-text-property (max (1- type-pos) lim) 'c-type)) |