From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 16 May 2007 15:37:45 +0000 (+0000)
Subject: (compilation-handle-exit): Quote first argument of `run-hook-with-args'.
X-Git-Tag: emacs-pretest-22.0.990~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dbf4670d9ac3f8438d65d015baf77e9d6585bb3;p=emacs.git

(compilation-handle-exit): Quote first argument of `run-hook-with-args'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 292fb001de2..7268a63fe29 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-16  Nikolaj Schumacher  <n_schumacher@web.de>  (tiny change)
+
+	* progmodes/compile.el (compilation-handle-exit): Quote first
+	argument of `run-hook-with-args'.
+
 2007-05-16  Juanma Barranquero  <lekktu@gmail.com>
 
 	* buff-menu.el (Buffer-menu-sort-column):
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 23e4f176fee..d3e8ec85d05 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1448,7 +1448,7 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
     (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)