# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1082587036 0
# Node ID b8afe141e350a5c47c40846ca8e052c35d74e866
# Parent  94d5cc4f28432492c2d070e96ac2f7d74252f114
(compilation-mode-font-lock-keywords):
Minor sanity check on the `hyperlink' slot.

diff -r 94d5cc4f2843 -r b8afe141e350 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed Apr 21 22:36:22 2004 +0000
+++ b/lisp/progmodes/compile.el	Wed Apr 21 22:37:16 2004 +0000
@@ -703,6 +703,9 @@
 			     ,(if col `(match-string ,col)))))
 		(,file compilation-error-face t))
 
+	    (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
+	      (error "HYPERLINK should be an integer: %s" (nth 5 item)))
+
 	    `(,(nth 0 item)
 
 	      ,@(when (integerp file)