summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f0100d8)
* lisp/vc/vc-dispatcher.el (vc-compilation-mode): Avoid making
compilation-error-regexp-alist void, or local while let-bound.
2013-06-15 Glenn Morris <rgm@gnu.org>
2013-06-15 Glenn Morris <rgm@gnu.org>
+ * vc/vc-dispatcher.el (vc-compilation-mode): Avoid making
+ compilation-error-regexp-alist void, or local while let-bound.
+
* progmodes/make-mode.el (makefile-mode-syntax-table):
Treat "=" as punctuation. (Bug#14614)
* progmodes/make-mode.el (makefile-mode-syntax-table):
Treat "=" as punctuation. (Bug#14614)
(defun vc-compilation-mode (backend)
"Setup `compilation-mode' after with the appropriate `compilation-error-regexp-alist'."
(defun vc-compilation-mode (backend)
"Setup `compilation-mode' after with the appropriate `compilation-error-regexp-alist'."
(let* ((error-regexp-alist
(vc-make-backend-sym backend 'error-regexp-alist))
(let* ((error-regexp-alist
(vc-make-backend-sym backend 'error-regexp-alist))
- (compilation-error-regexp-alist
- (and (boundp error-regexp-alist)
- (symbol-value error-regexp-alist))))
- (compilation-mode)
+ (error-regexp-alist (and (boundp error-regexp-alist)
+ (symbol-value error-regexp-alist))))
+ (let ((compilation-error-regexp-alist error-regexp-alist))
+ (compilation-mode))
(set (make-local-variable 'compilation-error-regexp-alist)
(set (make-local-variable 'compilation-error-regexp-alist)
- compilation-error-regexp-alist)))
(defun vc-set-async-update (process-buffer)
"Set a `vc-exec-after' action appropriate to the current buffer.
(defun vc-set-async-update (process-buffer)
"Set a `vc-exec-after' action appropriate to the current buffer.