diff options
| author | Stefan Monnier | 2004-04-21 22:37:16 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-04-21 22:37:16 +0000 |
| commit | f71d34b0a8cec575e8aa1727e2579e2afd00a0e4 (patch) | |
| tree | 978ea098d32dc7e07a8e218c31e0e04195f9d8ab | |
| parent | 7dcac3a665d052c79385f33f2cda4ccd6de0a421 (diff) | |
| download | emacs-f71d34b0a8cec575e8aa1727e2579e2afd00a0e4.tar.gz emacs-f71d34b0a8cec575e8aa1727e2579e2afd00a0e4.zip | |
(compilation-mode-font-lock-keywords):
Minor sanity check on the `hyperlink' slot.
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 703 | ,(if col `(match-string ,col))))) | 703 | ,(if col `(match-string ,col))))) |
| 704 | (,file compilation-error-face t)) | 704 | (,file compilation-error-face t)) |
| 705 | 705 | ||
| 706 | (unless (or (null (nth 5 item)) (integerp (nth 5 item))) | ||
| 707 | (error "HYPERLINK should be an integer: %s" (nth 5 item))) | ||
| 708 | |||
| 706 | `(,(nth 0 item) | 709 | `(,(nth 0 item) |
| 707 | 710 | ||
| 708 | ,@(when (integerp file) | 711 | ,@(when (integerp file) |