HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rudimentary support for vc-pull and vc-merge in Git and Mercurial.
[bpt/emacs.git]
/
lisp
/
dirtrack.el
diff --git
a/lisp/dirtrack.el
b/lisp/dirtrack.el
index
4e29c51
..
b30b7ac
100644
(file)
--- a/
lisp/dirtrack.el
+++ b/
lisp/dirtrack.el
@@
-1,7
+1,6
@@
;;; dirtrack.el --- Directory Tracking by watching the prompt
;;; dirtrack.el --- Directory Tracking by watching the prompt
-;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2001-2011 Free Software Foundation, Inc.
;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Nov 17 1996
;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Nov 17 1996
@@
-144,7
+143,7
@@
be on a single line."
:type 'string)
(defcustom dirtrack-directory-function
:type 'string)
(defcustom dirtrack-directory-function
- (if (memq system-type
(list 'ms-dos 'windows-nt '
cygwin))
+ (if (memq system-type
'(ms-dos windows-nt
cygwin))
'dirtrack-windows-directory-function
'file-name-as-directory)
"Function to apply to the prompt directory for comparison purposes."
'dirtrack-windows-directory-function
'file-name-as-directory)
"Function to apply to the prompt directory for comparison purposes."
@@
-152,7
+151,7
@@
be on a single line."
:type 'function)
(defcustom dirtrack-canonicalize-function
:type 'function)
(defcustom dirtrack-canonicalize-function
- (if (memq system-type
(list 'ms-dos 'windows-nt '
cygwin))
+ (if (memq system-type
'(ms-dos windows-nt
cygwin))
'downcase 'identity)
"Function to apply to the default directory for comparison purposes."
:group 'dirtrack
'downcase 'identity)
"Function to apply to the default directory for comparison purposes."
:group 'dirtrack
@@
-269,5
+268,4
@@
function `dirtrack-debug-mode' to turn on debugging output."
(provide 'dirtrack)
(provide 'dirtrack)
-;; arch-tag: 168de071-be88-4937-aff6-2aba9f328d5a
;;; dirtrack.el ends here
;;; dirtrack.el ends here