diff options
| author | Alan Mackenzie | 2016-01-05 10:30:55 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2016-01-05 10:30:55 +0000 |
| commit | 229c3fa541398f6087147b7dc180b0b602c731dd (patch) | |
| tree | 200e61a94aa2e21d1a9f79fc826eca5a7f66b433 | |
| parent | f5c762c8785523a2d38088aa48452bffa4da69d6 (diff) | |
| download | emacs-229c3fa541398f6087147b7dc180b0b602c731dd.tar.gz emacs-229c3fa541398f6087147b7dc180b0b602c731dd.zip | |
Make C++ buffers writeable when writing their initial text properties.
This is a correction to yesterday's CC Mode patch.
* lisp/progmodes/cc-engine.el (c-before-change-check-<>-operators): Put
c-save-buffer-state around the function rather than a mere `let'.
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 2a35a647ff8..3301d415923 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -5596,9 +5596,10 @@ comment at the start of cc-engine.el for more info." | |||
| 5596 | ;; FIXME!!! This routine ignores the possibility of macros entirely. | 5596 | ;; FIXME!!! This routine ignores the possibility of macros entirely. |
| 5597 | ;; 2010-01-29. | 5597 | ;; 2010-01-29. |
| 5598 | (save-excursion | 5598 | (save-excursion |
| 5599 | (let ((beg-lit-limits (progn (goto-char beg) (c-literal-limits))) | 5599 | (c-save-buffer-state |
| 5600 | (end-lit-limits (progn (goto-char end) (c-literal-limits))) | 5600 | ((beg-lit-limits (progn (goto-char beg) (c-literal-limits))) |
| 5601 | new-beg new-end beg-limit end-limit) | 5601 | (end-lit-limits (progn (goto-char end) (c-literal-limits))) |
| 5602 | new-beg new-end beg-limit end-limit) | ||
| 5602 | ;; Locate the earliest < after the barrier before the changed region, | 5603 | ;; Locate the earliest < after the barrier before the changed region, |
| 5603 | ;; which isn't already marked as a paren. | 5604 | ;; which isn't already marked as a paren. |
| 5604 | (goto-char (if beg-lit-limits (car beg-lit-limits) beg)) | 5605 | (goto-char (if beg-lit-limits (car beg-lit-limits) beg)) |