# HG changeset patch
# User Peter Breton <pbreton@attbi.com>
# Date 1048337343 0
# Node ID 251a715601994ca2fe6614509e83fb692ef788d5
# Parent  1f6e756767693fbbf7682bfea99359afb04537f0
Remove timestamp
Add dirtrack-cygwin-directory-function

diff -r 1f6e75676769 -r 251a71560199 lisp/dirtrack.el
--- a/lisp/dirtrack.el	Sat Mar 22 12:43:50 2003 +0000
+++ b/lisp/dirtrack.el	Sat Mar 22 12:49:03 2003 +0000
@@ -5,7 +5,6 @@
 ;; Author: Peter Breton <pbreton@cs.umb.edu>
 ;; Created: Sun Nov 17 1996
 ;; Keywords: processes
-;; Time-stamp: <2003-01-31 16:15:05 jbarranquero>
 
 ;; This file is part of GNU Emacs.
 
@@ -212,6 +211,12 @@
 	(concat directory "/")
       directory)))
 
+(defun dirtrack-cygwin-directory-function (dir)
+  "Return a canonical directory taken from a Cygwin path for comparison purposes."
+  (if (string-match "/cygdrive/\\([A-Z]\\)\\(.*\\)" dir)
+      (concat (match-string 1 dir) ":" (match-string 2 dir))
+    dir))
+
 (defconst dirtrack-forward-slash  (regexp-quote "/"))
 (defconst dirtrack-backward-slash (regexp-quote "\\"))