# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1081744561 0
# Node ID 1e00569924bf22ec32792219a7a3d411311e477c
# Parent  e16241d08bbc11c6fd5faf4cbaf343efb4169203
(compilation-mode-font-lock-keywords): Fix test not to treat nil as a function.

diff -r e16241d08bbc -r 1e00569924bf lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Apr 12 04:23:38 2004 +0000
+++ b/lisp/progmodes/compile.el	Mon Apr 12 04:36:01 2004 +0000
@@ -679,7 +679,7 @@
 	  (if (consp line) (setq end-line (cdr line) line (car line)))
 	  (if (consp col)	(setq end-col (cdr col)	  col (car col)))
 	  
-	  (if (symbolp line)
+	  (if (functionp line)
 	      ;; The old compile.el had here an undocumented hook that
 	      ;; allowed `line' to be a function that computed the actual
 	      ;; error location.  Let's do our best.