# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1179330237 0
# Node ID 5648db4524f79b26373549d2ad9c5e24eab22b5f
# Parent  2a95a247e1ec05620b9a012ce1425287623773d8
(compilation-handle-exit): Quote first argument of `run-hook-with-args'.

diff -r 2a95a247e1ec -r 5648db4524f7 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed May 16 14:05:36 2007 +0000
+++ b/lisp/progmodes/compile.el	Wed May 16 15:43:57 2007 +0000
@@ -1448,7 +1448,7 @@
     (with-no-warnings
       (if compilation-finish-function
 	  (funcall compilation-finish-function (current-buffer) msg)))
-    (run-hook-with-args compilation-finish-functions (current-buffer) msg)))
+    (run-hook-with-args 'compilation-finish-functions (current-buffer) msg)))
 
 ;; Called when compilation process changes state.
 (defun compilation-sentinel (proc msg)