Mercurial > emacs
changeset 50264:251a71560199
Remove timestamp
Add dirtrack-cygwin-directory-function
| author | Peter Breton <pbreton@attbi.com> |
|---|---|
| date | Sat, 22 Mar 2003 12:49:03 +0000 |
| parents | 1f6e75676769 |
| children | e8baa2ffdd8f |
| files | lisp/dirtrack.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 "\\"))