Mercurial > emacs
comparison lisp/progmodes/cc-defs.el @ 88011:670e666fb738
(c-save-buffer-state): Bind buffer-file-name and buffer-file-truename to
nil, to prevent primitives generating "buffer is read only" messages.
| author | Alan Mackenzie <acm@muc.de> |
|---|---|
| date | Sat, 26 Jan 2008 20:28:46 +0000 |
| parents | 107ccd98fa12 |
| children | 6261d56c5984 |
comparison
equal
deleted
inserted
replaced
| 88010:9d2588ddfc8d | 88011:670e666fb738 |
|---|---|
| 423 The return value is the value of the last form in BODY." | 423 The return value is the value of the last form in BODY." |
| 424 `(let* ((modified (buffer-modified-p)) (buffer-undo-list t) | 424 `(let* ((modified (buffer-modified-p)) (buffer-undo-list t) |
| 425 (inhibit-read-only t) (inhibit-point-motion-hooks t) | 425 (inhibit-read-only t) (inhibit-point-motion-hooks t) |
| 426 before-change-functions after-change-functions | 426 before-change-functions after-change-functions |
| 427 deactivate-mark | 427 deactivate-mark |
| 428 buffer-file-name buffer-file-truename ; Prevent primitives checking | |
| 429 ; for file modification | |
| 428 ,@varlist) | 430 ,@varlist) |
| 429 (unwind-protect | 431 (unwind-protect |
| 430 (progn ,@body) | 432 (progn ,@body) |
| 431 (and (not modified) | 433 (and (not modified) |
| 432 (buffer-modified-p) | 434 (buffer-modified-p) |