emacs-diffs
[Top][All Lists]
Advanced

[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 "\\"))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]