Mercurial > emacs
comparison lisp/progmodes/compile.el @ 55080:b8afe141e350
(compilation-mode-font-lock-keywords):
Minor sanity check on the `hyperlink' slot.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 21 Apr 2004 22:37:16 +0000 |
| parents | 0cdcedeb25c5 |
| children | 2a263df48184 |
comparison
equal
deleted
inserted
replaced
| 55079:94d5cc4f2843 | 55080:b8afe141e350 |
|---|---|
| 700 (funcall ',line (cons (match-string ,file) | 700 (funcall ',line (cons (match-string ,file) |
| 701 (cons default-directory | 701 (cons default-directory |
| 702 ',(nthcdr 4 item))) | 702 ',(nthcdr 4 item))) |
| 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 | |
| 706 (unless (or (null (nth 5 item)) (integerp (nth 5 item))) | |
| 707 (error "HYPERLINK should be an integer: %s" (nth 5 item))) | |
| 705 | 708 |
| 706 `(,(nth 0 item) | 709 `(,(nth 0 item) |
| 707 | 710 |
| 708 ,@(when (integerp file) | 711 ,@(when (integerp file) |
| 709 `((,file ,(if (consp type) | 712 `((,file ,(if (consp type) |