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

diff -r c889a153ce43 -r b34ac8963d00 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed May 16 14:08:48 2007 +0000
+++ b/lisp/progmodes/compile.el	Wed May 16 15:35:18 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)