Changeset 4111 for trunk/lisp/dirtrack.el

Timestamp:

07/16/06 08:36:52 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/dirtrack.el (modified) (12 diffs)

trunk/lisp/dirtrack.el

@@ -30 +30 @@
-;;
-;; This is yet another attempt at a directory-tracking package for
-
+ 
-;; that you can customize your shell's prompt to contain the
-
+ 
-;; almost every type of Bourne and C shell on Unix, the native shells on
-;; Windows95 (COMMAND.COM) and Windows NT (CMD.EXE), and most 3rd party
-
+ 
-;; will be useless to you.
-;;
@@ -46 +46 @@
-;; Note that directory tracking is done by matching regular expressions,
-;; therefore it is *VERY IMPORTANT* for your prompt to be easily
-
+ 
-;; you will see error messages from the dirtrack filter as it attempts to cd
-;; to non-existent directories.
-;;
-
+ 
-;; 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
-
-
+ 
+ 
-;; 'comint.el' assume a single-line prompt (eg, comint-bol).
-;;
-
+ 
-;; the variable `dirtrack-debug' may help; it causes the directory-tracking
-
+ 
-;; toggle this setting with the `dirtrack-debug-toggle' function.
-;;
@@ -66 +66 @@
-;;
-;; (add-hook 'shell-mode-hook
-
-
-
-
+
-;;
-;; You may wish to turn ordinary shell tracking off by calling
@@ -108 +105 @@
-;;   If you do this, and the shell prompt contains a ~, Emacs will interpret
-;;   this relative to the user which owns the Emacs process, not the user
-
+ 
-;;   (typically it reports that it is unable to cd to a directory
-;;   with a ~ in it).
@@ -114 +111 @@
-;;   The same behavior can occur if you use dirtrack with remote filesystems
-;;   (using telnet, rlogin, etc) as Emacs will be checking the local
-
+ 
-;;   but also affects file completion, etc.
-
@@ -133 +130 @@
-
-(defcustom dirtrack-list (list "^emacs \\([a-zA-Z]:.*\\)>" 1)
-*
+
-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
@@ -141 +138 @@
-  :type  '(sexp (regexp  :tag "Prompt Expression")
-                (integer :tag "Regexp Group")
-
-
-
+
-
-(make-variable-buffer-local 'dirtrack-list)
-
-(defcustom dirtrack-debug nil
-
-
-
-
+
+
+
-
-(defcustom dirtrack-debug-buffer "*Directory Tracking Log*"
-  "Buffer to write directory tracking debug information."
-  :group 'dirtrack
-
-
+
-
-(defcustom dirtrackp t
-
-
-
-
+
+
+
-
-(make-variable-buffer-local 'dirtrackp)
@@ -170 +162 @@
-  (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
-      'dirtrack-windows-directory-function
-
-
-
-
-
+
+
+
+
-
-(defcustom dirtrack-canonicalize-function
-  (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
-      'downcase 'identity)
-
-
-
-
+
+
+
-
-(defcustom dirtrack-directory-change-hook nil
-  "Hook that is called when a directory change is made."
-  :group 'dirtrack
-
-
+
-
-
@@ -195 +184 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun dirtrack-default-directory-function (dir)
-  "Return a canonical directory for comparison purposes.
-Such a directory ends with a forward slash."
-  (let ((directory dir))
-    (if (not (char-equal ?/ (string-to-char (substring directory -1))))
-        (concat directory "/")
-      directory)))
-
-(defun dirtrack-windows-directory-function (dir)
@@ -207 +189 @@
-Such a directory is all lowercase, has forward-slashes as delimiters,
-and ends with a forward slash."
-
-
-
-
-
+
-
-(defun dirtrack-cygwin-directory-function (dir)
@@ -219 +197 @@
-    dir))
-
-(defconst dirtrack-forward-slash  (regexp-quote "/"))
-(defconst dirtrack-backward-slash (regexp-quote "\\"))
-
-(defun dirtrack-replace-slash (string &optional opposite)
-  "Replace forward slashes with backwards ones.
-If additional argument is non-nil, replace backwards slashes with
-forward ones."
-  (let ((orig     (if opposite
-                      dirtrack-backward-slash
-                    dirtrack-forward-slash))
-        (replace  (if opposite
-                      dirtrack-forward-slash
-                    dirtrack-backward-slash))
-        (newstring string)
-        )
-    (while (string-match orig newstring)
-      (setq newstring (replace-match replace nil t newstring)))
-  newstring))
-
-;; Copied from shell.el
-(defun dirtrack-toggle ()
-  "Enable or disable Dirtrack directory tracking in a shell buffer."
-  (interactive)
-
+
+
+
-  (message "Directory tracking %s" (if dirtrackp "ON" "OFF")))
-
@@ -274 +235 @@
-
-You can enable directory tracking by adding this function to
-
-
-
+
+
+
+
-      nil
-    (let (prompt-path
-          matched
-          (current-dir default-directory)
-          (dirtrack-regexp    (nth 0 dirtrack-list))
-          (match-num          (nth 1 dirtrack-list))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-  input)
-
-(provide 'dirtrack)
-
-;
+
-;;; dirtrack.el ends here