Mercurial > emacs
comparison lisp/progmodes/cc-mode.el @ 77612:5562ebba19df
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:39:11 +0000 |
parents | a0da91c5a123 |
children | 5131a632194a 70bf32a0f523 |
comparison
equal
deleted
inserted
replaced
77611:3276457694ac | 77612:5562ebba19df |
---|---|
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)) |