[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dirtrack.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dirtrack.el |
Date: |
Fri, 04 Apr 2003 01:21:52 -0500 |
Index: emacs/lisp/dirtrack.el
diff -c emacs/lisp/dirtrack.el:1.12 emacs/lisp/dirtrack.el:1.13
*** emacs/lisp/dirtrack.el:1.12 Fri Jan 31 10:15:15 2003
--- emacs/lisp/dirtrack.el Sat Mar 22 07:49:03 2003
***************
*** 5,11 ****
;; Author: Peter Breton <address@hidden>
;; Created: Sun Nov 17 1996
;; Keywords: processes
- ;; Time-stamp: <2003-01-31 16:15:05 jbarranquero>
;; This file is part of GNU Emacs.
--- 5,10 ----
***************
*** 211,216 ****
--- 210,221 ----
(if (not (char-equal ?/ (string-to-char (substring directory -1))))
(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 "\\"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/dirtrack.el,
Miles Bader <=