708 |
(save-excursion |
(save-excursion |
709 |
(beginning-of-line) |
(beginning-of-line) |
710 |
(when (c-syntactic-re-search-forward |
(when (c-syntactic-re-search-forward |
711 |
;; This regexp avoids matches on ==. |
c-assignment-op-regexp |
712 |
"\\(\\=\\|[^=]\\)=\\([^=]\\|$\\)" |
(c-point 'eol) t t t) |
713 |
(c-point 'eol) t t) |
(setq equalp (- (or (match-beginning 1) |
714 |
(setq equalp (- (match-beginning 2) (c-point 'boi)))))) |
(match-end 0)) |
715 |
|
(c-point 'boi)))))) |
716 |
|
|
717 |
(save-excursion |
(save-excursion |
718 |
(goto-char startpos) |
(goto-char startpos) |
719 |
(if (or (if (c-syntactic-re-search-forward |
(if (or (if (c-syntactic-re-search-forward |
720 |
"\\(\\=\\|[^=]\\)=\\([^=]\\|$\\)" |
c-assignment-op-regexp |
721 |
(min endpos (c-point 'eol)) t t) |
(min endpos (c-point 'eol)) t t t) |
722 |
(progn |
(progn |
723 |
(goto-char (match-beginning 2)) |
(goto-char (or (match-beginning 1) |
724 |
|
(match-end 0))) |
725 |
nil) |
nil) |
726 |
t) |
t) |
727 |
(save-excursion |
(save-excursion |