;ELC ;;; Compiled by rms@psilocin.gnu.org on Sat Mar 21 01:19:16 1998 ;;; from file /gd/gnu/emacs/lisp/dirtrack.el ;;; in Emacs version 20.2.83.3 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dirtrack.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'dirtrack nil "Directory tracking by watching the prompt." :prefix "dirtrack-" :group 'shell) #@272 *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 be on a single line. (custom-declare-variable 'dirtrack-list '(list "^emacs \\([a-zA-Z]:.*\\)>" 1) '(#$ . -648) :group 'dirtrack :type '(sexp (regexp :tag "Prompt Expression") (integer :tag "Regexp Group") (boolean :tag "Multiline Prompt"))) (make-variable-buffer-local 'dirtrack-list) #@66 *If non-nil, the function `dirtrack' will report debugging info. (custom-declare-variable 'dirtrack-debug 'nil '(#$ . -1190) :group 'dirtrack :type 'boolean) #@55 Buffer to write directory tracking debug information. (custom-declare-variable 'dirtrack-debug-buffer '"*Directory Tracking Log*" '(#$ . 1354) :group 'dirtrack :type 'string) #@60 *If non-nil, directory tracking via `dirtrack' is enabled. (custom-declare-variable 'dirtrackp 't '(#$ . -1535) :group 'dirtrack :type 'boolean) (make-variable-buffer-local 'dirtrackp) #@69 *Function to apply to the prompt directory for comparison purposes. (custom-declare-variable 'dirtrack-directory-function '(if (memq system-type (list 'ms-dos 'windows-nt)) 'dirtrack-windows-directory-function 'dirtrack-default-directory-function) '(#$ . -1726) :group 'dirtrack :type 'function) #@70 *Function to apply to the default directory for comparison purposes. (custom-declare-variable 'dirtrack-canonicalize-function '(if (memq system-type (list 'ms-dos 'windows-nt)) 'downcase 'identity) '(#$ . -2028) :group 'dirtrack :type 'function) #@99 Return a canonical directory for comparison purposes. Such a directory ends with a forward slash. (defalias 'dirtrack-default-directory-function #[(dir) "ÂÃÄ ÅÆO!\"„ ÇP‚ )‡" [dir directory char-equal 47 string-to-char -1 nil "/"] 6 (#$ . 2280)]) #@157 Return a canonical directory for comparison purposes. Such a directory is all lowercase, has forward-slashes as delimiters, and ends with a forward slash. (defalias 'dirtrack-windows-directory-function #[(dir) " Ã\"—ÄÅÆ ÇÈO!\"„ ÉP‚ )‡" [dir directory dirtrack-replace-slash t char-equal 47 string-to-char -1 nil "/"] 6 (#$ . 2539)]) (byte-code "ÃÄ!À BÃÅ! BÇ" [dirtrack-forward-slash current-load-list dirtrack-backward-slash regexp-quote "/" "\\"] 2) #@127 Replace forward slashes with backwards ones. If additional argument is non-nil, replace backwards slashes with forward ones. (defalias 'dirtrack-replace-slash #[(string &optional opposite) "ƒ ‚ \nƒ\n‚ \nÆ\n\f\"ƒ)Ç ÈÉ\f$‚\f+‡" [opposite dirtrack-backward-slash dirtrack-forward-slash string newstring replace string-match replace-match nil t orig] 5 (#$ . 3012)]) #@66 Enable or disable Dirtrack directory tracking in a shell buffer. (defalias 'dirtrack-toggle #[nil "?Áƒ ÂÄ\"‡" [dirtrackp message "Directory tracking %s" "ON" "OFF"] 3 (#$ . 3400) nil]) (defalias 'dirtrack-debug-message #[(string) "pÄ! qˆdbˆ ÅPcˆ\nq*‡" [dirtrack-debug-buffer debug-buf buf string get-buffer-create "\n"] 3]) (defalias 'dirtrack #[(input) "…ÈÆ Æ\n@\nA@Ç\n8`e=?…ÆŠdbˆ ƒ2È É#‚:ÊyˆË !„M…ÅÌÍÎ \"!‚ÅÏ\f”\f•\"‰GÊV„g…ÅÌÐ!‚Å!!ƒ„ÌÍÑ#!ˆ˜„–Ò!˜ƒ£…ÅÌÍÓ!!‚ÅÔ!ƒÀÕ!…Å…ÅÌÍÖ\"!‚Å×Ø\").‡" [dirtrackp default-directory dirtrack-list multi-line match-num dirtrack-regexp nil 2 re-search-backward t 0 looking-at dirtrack-debug-message format "Failed to match regexp: %s" buffer-substring-no-properties "Match is empty string" "Prompt is %s\nCurrent directory is %s" abbreviate-file-name "Not changing directory" file-accessible-directory-p shell-process-cd "Changing directory to %s" error "Directory %s does not exist" matched current-dir prompt-path comint-last-output-start dirtrack-debug dirtrack-directory-function dirtrack-canonicalize-function] 8]) (provide 'dirtrack)