diff options
author | Glenn Morris <rgm@gnu.org> | 2007-05-23 08:09:37 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2007-05-23 08:09:37 +0000 |
commit | bd40f902ad693c8de5bccb556e8d44287b9c7215 (patch) | |
tree | 5e5fe9ef4a39eca806e448e89e16e83de73381f0 /lisp | |
parent | 1083cfb10e3e1474f4ea54b537816412ae677d14 (diff) | |
download | emacs-bd40f902ad693c8de5bccb556e8d44287b9c7215.tar.gz |
Nikolaj Schumacher <n_schumacher at web.de> (tiny change)
(compilation-handle-exit): `compilation-finish-function' may change
the current buffer.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d3e8ec85d05..9a630ace9aa 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1426,7 +1426,8 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'." process-status exit-status msg) (cons msg exit-status))) (omax (point-max)) - (opoint (point))) + (opoint (point)) + (cur-buffer (current-buffer))) ;; Record where we put the message, so we can ignore it later on. (goto-char omax) (insert ?\n mode-name " " (car status)) @@ -1447,8 +1448,8 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'." (goto-char opoint)) (with-no-warnings (if compilation-finish-function - (funcall compilation-finish-function (current-buffer) msg))) - (run-hook-with-args 'compilation-finish-functions (current-buffer) msg))) + (funcall compilation-finish-function cur-buffer msg))) + (run-hook-with-args 'compilation-finish-functions cur-buffer msg))) ;; Called when compilation process changes state. (defun compilation-sentinel (proc msg) |