514 |
(and (cdr type) (match-end (cdr type)) compilation-info-face) |
(and (cdr type) (match-end (cdr type)) compilation-info-face) |
515 |
compilation-error-face)) |
compilation-error-face)) |
516 |
|
|
517 |
|
;; Internal function for calculating the text properties of a directory |
518 |
|
;; change message. The directory property is important, because it is |
519 |
|
;; the stack of nested enter-messages. Relative filenames on the following |
520 |
|
;; lines are relative to the top of the stack. |
521 |
(defun compilation-directory-properties (idx leave) |
(defun compilation-directory-properties (idx leave) |
522 |
(if leave (setq leave (match-end leave))) |
(if leave (setq leave (match-end leave))) |
523 |
;; find previous stack, and push onto it, or if `leave' pop it |
;; find previous stack, and push onto it, or if `leave' pop it |