mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(compilation-mode-font-lock-keywords):

Browse Source 
Minor sanity check on the `hyperlink' slot.
This commit is contained in:
Stefan Monnier 2004-04-21 22:37:16 +00:00
parent 7dcac3a665
commit f71d34b0a8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/compile.el
View File

@ -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)