From f71d34b0a8cec575e8aa1727e2579e2afd00a0e4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 21 Apr 2004 22:37:16 +0000 Subject: [PATCH] (compilation-mode-font-lock-keywords): Minor sanity check on the `hyperlink' slot. --- lisp/progmodes/compile.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 00b9830516f..9aaa992ca76 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -703,6 +703,9 @@ FILE should be (FILENAME . DIRNAME) or nil." ,(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) -- 2.39.5