diff options
| author | Alan Mackenzie | 2014-08-09 20:54:04 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2014-08-09 20:54:04 +0000 |
| commit | aac6be13316f360bb2df46d6708ad9eea6059dc5 (patch) | |
| tree | 4d7481e3853df6bb838052bf9633dcbab8cdb68c | |
| parent | 1e0b702b8f1efd441a0d7fac764bf07e3d17df2e (diff) | |
| download | emacs-aac6be13316f360bb2df46d6708ad9eea6059dc5.tar.gz emacs-aac6be13316f360bb2df46d6708ad9eea6059dc5.zip | |
progmodes/cc-fonts.el (c-font-lock-declarators): Remove check for
top-level that can cause unacceptable slow-down in scrolling.
See email Subject: Huge {...} blocks in C/C++ again, from Dmitry Antipov
from 2013-10-14 in emacs-devel.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/progmodes/cc-fonts.el | 6 |
2 files changed, 8 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fa631f5b75..f62d0ee3b66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2014-08-09 Alan Mackenzie <acm@muc.de> | ||
| 2 | |||
| 3 | * progmodes/cc-fonts.el (c-font-lock-declarators): Remove check | ||
| 4 | for top-level that can cause unacceptable slow-down in scrolling. | ||
| 5 | See email Subject: Huge {...} blocks in C/C++ again, from Dmitry | ||
| 6 | Antipov from 2013-10-14 in emacs-devel. | ||
| 7 | |||
| 1 | 2014-08-08 RĂ¼diger Sonderfeld <ruediger@c-plusplus.de> | 8 | 2014-08-08 RĂ¼diger Sonderfeld <ruediger@c-plusplus.de> |
| 2 | 9 | ||
| 3 | * ibuffer.el (ibuffer-mode-map): Use toggle button for | 10 | * ibuffer.el (ibuffer-mode-map): Use toggle button for |
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el index 8ee8054876d..a107ef01250 100644 --- a/lisp/progmodes/cc-fonts.el +++ b/lisp/progmodes/cc-fonts.el | |||
| @@ -1128,11 +1128,7 @@ casts and declarations are fontified. Used on level 2 and higher." | |||
| 1128 | 1128 | ||
| 1129 | (setq next-pos (match-beginning 0) | 1129 | (setq next-pos (match-beginning 0) |
| 1130 | id-face (if (and (eq (char-after next-pos) ?\() | 1130 | id-face (if (and (eq (char-after next-pos) ?\() |
| 1131 | (not brackets-after-id) | 1131 | (not brackets-after-id)) |
| 1132 | (let (c-last-identifier-range) | ||
| 1133 | (save-excursion | ||
| 1134 | (goto-char next-pos) | ||
| 1135 | (c-at-toplevel-p)))) | ||
| 1136 | 'font-lock-function-name-face | 1132 | 'font-lock-function-name-face |
| 1137 | 'font-lock-variable-name-face) | 1133 | 'font-lock-variable-name-face) |
| 1138 | got-init (and (match-beginning 1) | 1134 | got-init (and (match-beginning 1) |