# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1109880501 0
# Node ID ee6146798de1c7312a0c326c7b4f2d91887042ab
# Parent  932e4b52aa3936ee6e6266ed4fc4b334c8f57994
Add comment for compilation-directory-properties.

diff -r 932e4b52aa39 -r ee6146798de1 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Mar 03 16:29:19 2005 +0000
+++ b/lisp/progmodes/compile.el	Thu Mar 03 20:08:21 2005 +0000
@@ -514,6 +514,10 @@
       (and (cdr type) (match-end (cdr type)) compilation-info-face)
       compilation-error-face))
 
+;; Internal function for calculating the text properties of a directory
+;; change message.  The directory property is important, because it is
+;; the stack of nested enter-messages.  Relative filenames on the following
+;; lines are relative to the top of the stack.
 (defun compilation-directory-properties (idx leave)
   (if leave (setq leave (match-end leave)))
   ;; find previous stack, and push onto it, or if `leave' pop it