/[emacs]/emacs/lisp/dirtrack.el
ViewVC logotype

Diff of /emacs/lisp/dirtrack.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by lektu, Fri Jan 31 15:15:15 2003 UTC revision 1.13 by pbreton, Sat Mar 22 12:49:03 2003 UTC
# Line 5  Line 5 
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    
# Line 212  and ends with a forward slash." Line 211  and ends with a forward slash."
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26