diff options
| author | Peter Breton <pbreton@attbi.com> | 2003-03-22 12:49:03 +0000 |
|---|---|---|
| committer | Peter Breton <pbreton@attbi.com> | 2003-03-22 12:49:03 +0000 |
| commit | b9e316dd7fab2adca0cd51b51332d708852d6c30 (patch) | |
| tree | e316115f6d834e6a4e4aff5c9681739a0b6ed25a /lisp/dirtrack.el | |
| parent | 570896112a3e2aa6a1d90d398d6932c780545575 (diff) | |
| download | emacs-b9e316dd7fab2adca0cd51b51332d708852d6c30.tar.gz | |
Remove timestamp
Add dirtrack-cygwin-directory-function
Diffstat (limited to 'lisp/dirtrack.el')
| -rw-r--r-- | lisp/dirtrack.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el index d8590f60add..75fbf244f9d 100644 --- a/lisp/dirtrack.el +++ b/lisp/dirtrack.el @@ -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 @@ and ends with a forward slash." (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 "\\")) |