Mercurial > emacs
comparison lisp/progmodes/compile.el @ 4757:c21680a58d1e
(compile-internal): Back out jimb change of making buffer read-only. It
is non-ergonomic.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:00:37 +0000 |
| parents | 0c4a8158f062 |
| children | 4d6ab37798ff |
comparison
equal
deleted
inserted
replaced
| 4756:1079bcdb68b4 | 4757:c21680a58d1e |
|---|---|
| 311 (setq outwin (display-buffer outbuf)) | 311 (setq outwin (display-buffer outbuf)) |
| 312 (save-excursion | 312 (save-excursion |
| 313 (set-buffer outbuf) | 313 (set-buffer outbuf) |
| 314 (compilation-mode) | 314 (compilation-mode) |
| 315 (buffer-disable-undo (current-buffer)) | 315 (buffer-disable-undo (current-buffer)) |
| 316 (setq buffer-read-only t) | 316 ;; (setq buffer-read-only t) ;;; Non-ergonomic. |
| 317 (set (make-local-variable 'compilation-parse-errors-function) parser) | 317 (set (make-local-variable 'compilation-parse-errors-function) parser) |
| 318 (set (make-local-variable 'compilation-error-message) error-message) | 318 (set (make-local-variable 'compilation-error-message) error-message) |
| 319 (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) | 319 (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) |
| 320 (setq default-directory thisdir | 320 (setq default-directory thisdir |
| 321 compilation-directory-stack (list default-directory)) | 321 compilation-directory-stack (list default-directory)) |
| 612 (setq compilation-parsing-end 1))) | 612 (setq compilation-parsing-end 1))) |
| 613 (if (and compilation-error-list | 613 (if (and compilation-error-list |
| 614 (or (not limit-search) | 614 (or (not limit-search) |
| 615 (> compilation-parsing-end limit-search)) | 615 (> compilation-parsing-end limit-search)) |
| 616 (or (not find-at-least) | 616 (or (not find-at-least) |
| 617 (> (length compilation-error-list) find-at-least))) | 617 (>= (length compilation-error-list) find-at-least))) |
| 618 ;; Since compilation-error-list is non-nil, it points to a specific | 618 ;; Since compilation-error-list is non-nil, it points to a specific |
| 619 ;; error the user wanted. So don't move it around. | 619 ;; error the user wanted. So don't move it around. |
| 620 nil | 620 nil |
| 621 (switch-to-buffer compilation-last-buffer) | 621 (switch-to-buffer compilation-last-buffer) |
| 622 (set-buffer-modified-p nil) | 622 (set-buffer-modified-p nil) |