878 |
;; (set (make-local-variable 'page-delimiter) "--- [^\t]+\t") |
;; (set (make-local-variable 'page-delimiter) "--- [^\t]+\t") |
879 |
;; compile support |
;; compile support |
880 |
|
|
881 |
;;;; compile support is not good enough yet. Also it can be annoying |
;;;; compile support is not good enough yet. It should be merged |
882 |
;; and should thus only be enabled conditionally. |
;;;; with diff.el's support. |
883 |
;; (set (make-local-variable 'compilation-file-regexp-alist) |
(set (make-local-variable 'compilation-file-regexp-alist) |
884 |
;; diff-file-regexp-alist) |
diff-file-regexp-alist) |
885 |
;; (set (make-local-variable 'compilation-error-regexp-alist) |
(set (make-local-variable 'compilation-error-regexp-alist) |
886 |
;; diff-error-regexp-alist) |
diff-error-regexp-alist) |
887 |
;; (when (string-match "\\.rej\\'" (or buffer-file-name "")) |
(when (string-match "\\.rej\\'" (or buffer-file-name "")) |
888 |
;; (set (make-local-variable 'compilation-current-file) |
(set (make-local-variable 'compilation-current-file) |
889 |
;; (substring buffer-file-name 0 (match-beginning 0)))) |
(substring buffer-file-name 0 (match-beginning 0)))) |
890 |
;; (compilation-shell-minor-mode 1) |
;; Be careful not to change compilation-last-buffer when we're just |
891 |
|
;; doing a C-x v = (for example). |
892 |
|
(let ((compilation-last-buffer compilation-last-buffer)) |
893 |
|
(compilation-shell-minor-mode 1)) |
894 |
|
|
895 |
(when (and (> (point-max) (point-min)) diff-default-read-only) |
(when (and (> (point-max) (point-min)) diff-default-read-only) |
896 |
(toggle-read-only t)) |
(toggle-read-only t)) |