Current File : //usr/local/share/emacs/27.2/lisp/dirtrack.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315\316\317& \210\320\311!\210\310\321\302\322\306\301\314\323&\210\310\324\325\326\306\301\314\327&\210\310\330\331\332\306\301\314\333&\210\310\334\335\336\306\301\314\333&\210\310\337\302\340\306\301\314\341&\207" [custom-declare-group dirtrack nil "Directory tracking by watching the prompt." :prefix "dirtrack-" :group shell custom-declare-variable dirtrack-list (list "^emacs \\([a-zA-Z]:.*\\)>" 1) "List for directory tracking.\nFirst item is a regexp that describes where to find the path in a prompt.\nSecond is a number, the regexp group to match." :type (sexp (regexp :tag "Prompt Expression") (integer :tag "Regexp Group")) :version "24.1" make-variable-buffer-local dirtrack-debug "If non-nil, the function `dirtrack' will report debugging info." boolean dirtrack-debug-buffer "*Directory Tracking Log*" "Buffer in which to write directory tracking debug information." string dirtrack-directory-function (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." function dirtrack-canonicalize-function (if (memq system-type '(ms-dos windows-nt cygwin)) 'downcase 'identity) "Function to apply to the default directory for comparison purposes." dirtrack-directory-change-hook "Hook that is called when a directory change is made." hook] 10)
#@156 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) "\301\302\303\304#\227!\207" [dir file-name-as-directory subst-char-in-string 92 47] 5 (#$ . 1870)])
#@80 Return a canonical directory taken from a Cygwin path for comparison purposes.
(defalias 'dirtrack-cygwin-directory-function #[(dir) "\301\302\"\203 \303\304\"\305\303\306\"Q\207\207" [dir string-match "/cygdrive/\\([A-Z]\\)\\(.*\\)" match-string 1 ":" 2] 5 (#$ . 2188)])
#@95 Non-nil if Dirtrack mode is enabled.
Use the command `dirtrack-mode' to change this variable.
(defvar dirtrack-mode nil (#$ . 2471))
(make-variable-buffer-local 'dirtrack-mode)
#@608 Toggle directory tracking in shell buffers (Dirtrack mode).
If called interactively, enable Dirtrack mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
This method requires that your shell prompt contain the current
working directory at all times, and that you set the variable
`dirtrack-list' to match the prompt.
This is an alternative to `shell-dirtrack-mode', which works by
tracking `cd' and similar commands which change the shell working
directory.
(defalias 'dirtrack-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203\" \310\311\312\313\314$\210\202( \315\311\312\314#\210\316\317\n\2032 \320\2023 \321\"\210\322\323!\203X \304 \203G \304 \232\203X \324\325\326\n\203S \327\202T \330 #\210))\331 \210\n\207" [#1=#:last-message arg dirtrack-mode local current-message toggle prefix-numeric-value 0 add-hook comint-preoutput-filter-functions dirtrack nil t remove-hook run-hooks dirtrack-mode-hook dirtrack-mode-on-hook dirtrack-mode-off-hook called-interactively-p any " in current buffer" message "Dirtrack mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 2655) (list (or current-prefix-arg 'toggle))])
(defvar dirtrack-mode-hook nil)
(byte-code "\303\304N\204\f \305\303\304\306#\210\307\310\311\312\300!\205 \311\211%\210\313\314\315\311#\210\316\314\315\317#\210\320\321\315\311#\210\322\311\211\203R \n@\321 N\203K \315 N\204K \305\315 \321 N#\210\nA\211\2044 *\323\321\315\317#\207" [dirtrack-mode-map prop --dolist-tail-- dirtrack-mode-hook variable-documentation put "Hook run after entering or leaving `dirtrack-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode dirtrack-mode nil boundp defalias dirtrack-debug-toggle dirtrack-debug-mode make-obsolete "23.1" defvaralias dirtrack-debug (saved-value saved-variable-comment) make-obsolete-variable] 7)
#@107 Non-nil if Dirtrack-Debug mode is enabled.
Use the command `dirtrack-debug-mode' to change this variable.
(defvar dirtrack-debug-mode nil (#$ . 4719))
(make-variable-buffer-local 'dirtrack-debug-mode)
#@275 Toggle Dirtrack debugging.
If called interactively, enable Dirtrack-Debug mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(defalias 'dirtrack-debug-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203 \311\312 !!\210\313\314\n\203( \315\202) \316\"\210\317\320!\203N \305 \203= \305 \232\203N \321 \322\323\n\203I \324\202J \325\f#\210))\326 \210\n\207" [#1=#:last-message arg dirtrack-debug-mode dirtrack-debug-buffer local current-message toggle prefix-numeric-value 0 display-buffer get-buffer-create run-hooks dirtrack-debug-mode-hook dirtrack-debug-mode-on-hook dirtrack-debug-mode-off-hook called-interactively-p any " in current buffer" message "Dirtrack-Debug mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 4927) (list (or current-prefix-arg 'toggle))])
(defvar dirtrack-debug-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [dirtrack-debug-mode-map dirtrack-debug-mode-hook variable-documentation put "Hook run after entering or leaving `dirtrack-debug-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode dirtrack-debug-mode nil boundp] 6)
#@55 Insert strings at the end of `dirtrack-debug-buffer'.
(defalias 'dirtrack-debug-message #[(msg1 msg2) "\205 r\304 !q\210db\210\305\n! \306\261)\207" [dirtrack-debug-mode dirtrack-debug-buffer msg1 msg2 get-buffer-create substitute-command-keys "\n"] 3 (#$ . 6324)])
#@274 Determine the current directory from the process output for a prompt.
This filter function is used by `dirtrack-mode'. It looks for
the prompt specified by `dirtrack-list', and calls
`shell-process-cd' if the directory seems to have changed away
from `default-directory'.
(defalias 'dirtrack #[(input) "\203\240 `e=\204\240 \212\306 @\n\"\204 \307\310\n\"\210\202\237 \311 A@\n\"\312\211 \313\230\2032 \307\314\n\"\210\202\236 \315\f!\203\204
\f!! \316 ! \f\230\204[ \317 !\317\f!\230\203d \307\320 \"\210\202\200 \321\f!\203{ \322 !\210\323\324!\210\307\325\f\"\210\202\200 \307\326\f\"\210*\202\236 \306\327\f\330Q\211\"\203\236 \322\311\331 \"\fP!\210\323\324!\210*)\n\207" [dirtrack-mode dirtrack-list input temp prompt-path dirtrack-directory-function string-match dirtrack-debug-message "Input failed to match `dirtrack-list': " match-string nil "" "Prompt match gives empty string: " file-name-absolute-p shell-prefixed-directory-name expand-file-name "Not changing directory: " file-accessible-directory-p shell-process-cd run-hooks dirtrack-directory-change-hook "Changing directory to " "Not changing to non-existent directory: " "\\`\\(.*\\)\\(?:/.*\\)?\n\\(.*/\\)\\1\\(?:/.*\\)?\\'" "\n" 2 dirtrack-canonicalize-function default-directory current-dir orig-prompt-path] 6 (#$ . 6600)])
(provide 'dirtrack)
Mini Shell