diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2003-01-31 15:24:20 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2003-01-31 15:24:20 +0000 |
commit | c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1 (patch) | |
tree | 7d28300d64e41bf2aeed37bc8f1293f9fc52a36a /lisp/dirtrack.el | |
parent | 2454c12d458c60b871f6f36c3fd6ba752aad61bf (diff) | |
download | emacs-c60ee5e70f7ae20f1bbf7d0e2d36f40658f3dff1.tar.gz |
Cygwin support patch.
Diffstat (limited to 'lisp/dirtrack.el')
-rw-r--r-- | lisp/dirtrack.el | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el index 572435d357b..d8590f60add 100644 --- a/lisp/dirtrack.el +++ b/lisp/dirtrack.el @@ -5,7 +5,7 @@ ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Sun Nov 17 1996 ;; Keywords: processes -;; Time-stamp: <1999-02-21 01:27:24 pbreton> +;; Time-stamp: <2003-01-31 16:15:05 jbarranquero> ;; This file is part of GNU Emacs. @@ -42,8 +42,8 @@ ;; 1) Set your shell's prompt to contain the current working directory. ;; You may need to consult your shell's documentation to find out how to ;; do this. -;; -;; Note that directory tracking is done by matching regular expressions, +;; +;; Note that directory tracking is done by matching regular expressions, ;; therefore it is *VERY IMPORTANT* for your prompt to be easily ;; distinguishable from other output. If your prompt regexp is too general, ;; you will see error messages from the dirtrack filter as it attempts to cd @@ -52,16 +52,16 @@ ;; 2) Set the variable `dirtrack-list' to an appropriate value. This ;; should be a list of two elements: the first is a regular expression ;; which matches your prompt up to and including the pathname part. -;; The second is a number which tells which regular expression group to +;; The second is a number which tells which regular expression group to ;; match to extract only the pathname. If you use a multi-line prompt, ;; add 't' as a third element. Note that some of the functions in ;; 'comint.el' assume a single-line prompt (eg, comint-bol). -;; +;; ;; Determining this information may take some experimentation. Setting ;; the variable `dirtrack-debug' may help; it causes the directory-tracking ;; filter to log messages to the buffer `dirtrack-debug-buffer'. You can easily ;; toggle this setting with the `dirtrack-debug-toggle' function. -;; +;; ;; 3) Add a hook to shell-mode to enable the directory tracking: ;; ;; (add-hook 'shell-mode-hook @@ -83,26 +83,26 @@ ;; 'dirtrack-list' is set to (list "^\\([/~].*\\)\nemacs@[^%]+% *" 1 t) ;; ;; I'd appreciate other examples from people who use this package. -;; +;; ;; Here's one from Stephen Eglen: ;; ;; Running under tcsh: ;; (setq-default dirtrack-list '("^%E \\([^ ]+\\)" 1)) -;; +;; ;; It might be worth mentioning in your file that emacs sources start up ;; files of the form: ~/.emacs_<SHELL> where <SHELL> is the name of the ;; shell. So for example, I have the following in ~/.emacs_tcsh: -;; +;; ;; set prompt = "%%E %~ %h% " -;; +;; ;; This produces a prompt of the form: -;; %E /var/spool 10% -;; +;; %E /var/spool 10% +;; ;; This saves me from having to use the %E prefix in other non-emacs ;; shells. ;; ;; A final note: -;; +;; ;; I run LOTS of shell buffers through Emacs, sometimes as different users ;; (eg, when logged in as myself, I'll run a root shell in the same Emacs). ;; If you do this, and the shell prompt contains a ~, Emacs will interpret @@ -134,11 +134,11 @@ (defcustom dirtrack-list (list "^emacs \\([a-zA-Z]:.*\\)>" 1) "*List for directory tracking. First item is a regexp that describes where to find the path in a prompt. -Second is a number, the regexp group to match. Optional third item is -whether the prompt is multi-line. If nil or omitted, prompt is assumed to +Second is a number, the regexp group to match. Optional third item is +whether the prompt is multi-line. If nil or omitted, prompt is assumed to be on a single line." :group 'dirtrack - :type '(sexp (regexp :tag "Prompt Expression") + :type '(sexp (regexp :tag "Prompt Expression") (integer :tag "Regexp Group") (boolean :tag "Multiline Prompt") ) @@ -166,8 +166,8 @@ be on a single line." (make-variable-buffer-local 'dirtrackp) -(defcustom dirtrack-directory-function - (if (memq system-type (list 'ms-dos 'windows-nt)) +(defcustom dirtrack-directory-function + (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin)) 'dirtrack-windows-directory-function 'dirtrack-default-directory-function) "*Function to apply to the prompt directory for comparison purposes." @@ -175,8 +175,8 @@ be on a single line." :type 'function ) -(defcustom dirtrack-canonicalize-function - (if (memq system-type (list 'ms-dos 'windows-nt)) +(defcustom dirtrack-canonicalize-function + (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin)) 'downcase 'identity) "*Function to apply to the default directory for comparison purposes." :group 'dirtrack @@ -204,7 +204,7 @@ Such a directory ends with a forward slash." (defun dirtrack-windows-directory-function (dir) "Return a canonical directory for comparison purposes. -Such a directory is all lowercase, has forward-slashes as delimiters, +Such a directory is all lowercase, has forward-slashes as delimiters, and ends with a forward slash." (let ((directory dir)) (setq directory (downcase (dirtrack-replace-slash directory t))) @@ -217,13 +217,13 @@ and ends with a forward slash." (defun dirtrack-replace-slash (string &optional opposite) "Replace forward slashes with backwards ones. -If additional argument is non-nil, replace backwards slashes with +If additional argument is non-nil, replace backwards slashes with forward ones." - (let ((orig (if opposite - dirtrack-backward-slash + (let ((orig (if opposite + dirtrack-backward-slash dirtrack-forward-slash)) - (replace (if opposite - dirtrack-forward-slash + (replace (if opposite + dirtrack-forward-slash dirtrack-backward-slash)) (newstring string) ) @@ -266,7 +266,7 @@ You can toggle directory tracking by using the function `dirtrack-toggle'. If directory tracking does not seem to be working, you can use the function `dirtrack-debug-toggle' to turn on debugging output. -You can enable directory tracking by adding this function to +You can enable directory tracking by adding this function to `comint-output-filter-functions'. " (if (null dirtrackp) @@ -286,33 +286,33 @@ You can enable directory tracking by adding this function to ;; No match (if (null matched) (and dirtrack-debug - (dirtrack-debug-message - (format - "Input `%s' failed to match regexp: %s" + (dirtrack-debug-message + (format + "Input `%s' failed to match regexp: %s" input dirtrack-regexp))) - (setq prompt-path + (setq prompt-path (substring input (match-beginning match-num) (match-end match-num))) ;; Empty string (if (not (> (length prompt-path) 0)) (and dirtrack-debug - (dirtrack-debug-message "Match is empty string")) + (dirtrack-debug-message "Match is empty string")) ;; Transform prompts into canonical forms (setq prompt-path (funcall dirtrack-directory-function prompt-path)) (setq current-dir (funcall dirtrack-canonicalize-function current-dir)) (and dirtrack-debug - (dirtrack-debug-message + (dirtrack-debug-message (format "Prompt is %s\nCurrent directory is %s" - prompt-path current-dir))) + prompt-path current-dir))) ;; Compare them (if (or (string= current-dir prompt-path) - (string= current-dir + (string= current-dir (abbreviate-file-name prompt-path))) (and dirtrack-debug - (dirtrack-debug-message + (dirtrack-debug-message (format "Not changing directory"))) ;; It's possible that Emacs will think the directory ;; won't exist (eg, rlogin buffers) @@ -321,7 +321,7 @@ You can enable directory tracking by adding this function to (and (shell-process-cd prompt-path) (run-hooks 'dirtrack-directory-change-hook) dirtrack-debug - (dirtrack-debug-message + (dirtrack-debug-message (format "Changing directory to %s" prompt-path))) (error "Directory %s does not exist" prompt-path))) ))))) |