5 |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
6 |
;; Created: Sun Nov 17 1996 |
;; Created: Sun Nov 17 1996 |
7 |
;; Keywords: processes |
;; Keywords: processes |
|
;; Time-stamp: <2003-01-31 16:15:05 jbarranquero> |
|
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
211 |
(concat directory "/") |
(concat directory "/") |
212 |
directory))) |
directory))) |
213 |
|
|
214 |
|
(defun dirtrack-cygwin-directory-function (dir) |
215 |
|
"Return a canonical directory taken from a Cygwin path for comparison purposes." |
216 |
|
(if (string-match "/cygdrive/\\([A-Z]\\)\\(.*\\)" dir) |
217 |
|
(concat (match-string 1 dir) ":" (match-string 2 dir)) |
218 |
|
dir)) |
219 |
|
|
220 |
(defconst dirtrack-forward-slash (regexp-quote "/")) |
(defconst dirtrack-forward-slash (regexp-quote "/")) |
221 |
(defconst dirtrack-backward-slash (regexp-quote "\\")) |
(defconst dirtrack-backward-slash (regexp-quote "\\")) |
222 |
|
|