From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Thu, 3 Mar 2005 20:08:21 +0000 (+0000)
Subject: Add comment for compilation-directory-properties.
X-Git-Tag: ttn-vms-21-2-B4~2030
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=deda0c65589cbe4e125503dacfd2deeaaf228e61;p=emacs.git

Add comment for compilation-directory-properties.
---

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',
       (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