1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9d2544628d0..de90c2aa378 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -679,7 +679,7 @@ Faces `compilation-error-face', `compilation-warning-face',
           (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.