1186 |
"Prepare the buffer for the compilation parsing commands to work. |
"Prepare the buffer for the compilation parsing commands to work. |
1187 |
Optional argument MINOR indicates this is called from |
Optional argument MINOR indicates this is called from |
1188 |
`compilation-minor-mode'." |
`compilation-minor-mode'." |
1189 |
(setq buffer-read-only t) |
(unless minor |
1190 |
|
(setq buffer-read-only t)) |
1191 |
(make-local-variable 'compilation-current-error) |
(make-local-variable 'compilation-current-error) |
1192 |
(make-local-variable 'compilation-messages-start) |
(make-local-variable 'compilation-messages-start) |
1193 |
(make-local-variable 'compilation-error-screen-columns) |
(make-local-variable 'compilation-error-screen-columns) |