diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 79a6b4b43be..457177d7c4c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -514,6 +514,10 @@ Faces `compilation-error-face', `compilation-warning-face', | |||
| 514 | (and (cdr type) (match-end (cdr type)) compilation-info-face) | 514 | (and (cdr type) (match-end (cdr type)) compilation-info-face) |
| 515 | compilation-error-face)) | 515 | compilation-error-face)) |
| 516 | 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. | ||
| 517 | (defun compilation-directory-properties (idx leave) | 521 | (defun compilation-directory-properties (idx leave) |
| 518 | (if leave (setq leave (match-end leave))) | 522 | (if leave (setq leave (match-end leave))) |
| 519 | ;; find previous stack, and push onto it, or if `leave' pop it | 523 | ;; find previous stack, and push onto it, or if `leave' pop it |