diff options
| author | Eli Zaretskii | 2001-12-05 18:41:34 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-12-05 18:41:34 +0000 |
| commit | a17c90638b08f5d3f2c4167ff7c93aa72f10e84d (patch) | |
| tree | e957db5795bdf270afeb4c98616b00fed5dbd5cc | |
| parent | 8bc242001530e1eaff75a08d97f19f92b20abe3e (diff) | |
| download | emacs-a17c90638b08f5d3f2c4167ff7c93aa72f10e84d.tar.gz emacs-a17c90638b08f5d3f2c4167ff7c93aa72f10e84d.zip | |
(cwarn-font-lock-match-assignment-in-expression):
Add shift-assignment operators to those highlighted, and highlight
the whole operator rather than just the "=". From Broadey Kevin
<Kevin.Broadey@motorola.com>.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/progmodes/cwarn.el | 4 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e20bdca5859..e5a5c011d10 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2001-12-05 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 2 | |||
| 3 | * progmodes/cwarn.el (cwarn-font-lock-match-assignment-in-expression): | ||
| 4 | Add shift-assignment operators to those highlighted, and highlight | ||
| 5 | the whole operator rather than just the "=". From Broadey Kevin | ||
| 6 | <Kevin.Broadey@motorola.com>. | ||
| 7 | |||
| 1 | 2001-12-04 Juanma Barranquero <lektu@terra.es> | 8 | 2001-12-04 Juanma Barranquero <lektu@terra.es> |
| 2 | 9 | ||
| 3 | * files.el (save-abbrevs, save-some-buffers): Don't ask the user | 10 | * files.el (save-abbrevs, save-some-buffers): Don't ask the user |
diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el index ebc65edf076..b1f890dea93 100644 --- a/lisp/progmodes/cwarn.el +++ b/lisp/progmodes/cwarn.el | |||
| @@ -394,7 +394,9 @@ brace." | |||
| 394 | (let ((res nil)) | 394 | (let ((res nil)) |
| 395 | (while | 395 | (while |
| 396 | (progn | 396 | (progn |
| 397 | (setq res (re-search-forward "[^!<>=]\\(=\\)[^=]" limit t)) | 397 | (setq res (re-search-forward |
| 398 | "[^!<>=]\\(\\([-+*/%&^|]\\|<<\\|>>\\)?=\\)[^=]" | ||
| 399 | limit t)) | ||
| 398 | (and res | 400 | (and res |
| 399 | (save-excursion | 401 | (save-excursion |
| 400 | (goto-char (match-beginning 1)) | 402 | (goto-char (match-beginning 1)) |