| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/dirtrack.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:15 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/dirtrack.el
;;; in Emacs version 24.3.1
;;; 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 (#$ . 2013)])
#@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 (#$ . 2331)])
(byte-code "\302\303\304\305#\210\306\303\304\307#\210\310\311\304\305#\210\312\305\211\2038 @\311N\2031 \304N\2041 \313\304\311N#\210 A\211\204 *\314\311\304\307#\207" [prop --dolist-tail-- defalias dirtrack-toggle dirtrack-mode nil make-obsolete "23.1" defvaralias dirtrackp (saved-value saved-variable-comment) put make-obsolete-variable] 6)
#@95 Non-nil if Dirtrack mode is enabled.
Use the command `dirtrack-mode' to change this variable.
(defvar dirtrack-mode nil (#$ . 2969))
(make-variable-buffer-local 'dirtrack-mode)
#@526 Toggle directory tracking in shell buffers (Dirtrack mode).
With a prefix argument ARG, enable Dirtrack mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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) "\303 \304=\203 \n?\202 \305 !\306V\211\203\" \307\310\311\312\313$\210\202( \314\310\311\313#\210\315\316\n\2032 \317\2023 \320\"\210\321\322!\203T \303 \203G \303 \232\203T \323\324\n\203Q \325\202R \326\"\210)\327 \210\n\207" [#1=#:last-message arg dirtrack-mode 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 message "Dirtrack mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 3153) (list (or current-prefix-arg 'toggle))])
(byte-code "\303\304\305\306\300!\205\n \305\211%\210\307\310\311\305#\210\312\310\311\313#\210\314\315\311\305#\210\316\305\211\203F \n@\315 N\203? \311 N\204? \317\311 \315 N#\210\nA\211\204( *\320\315\311\313#\207" [dirtrack-mode-map prop --dolist-tail-- 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) put 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 (#$ . 4809))
(make-variable-buffer-local 'dirtrack-debug-mode)
#@192 Toggle Dirtrack debugging.
With a prefix argument ARG, enable Dirtrack debugging if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'dirtrack-debug-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203 \310\311 !!\210\312\313\n\203( \314\202) \315\"\210\316\317!\203J \304 \203= \304 \232\203J \320\321\n\203G \322\202H \323\"\210)\324 \210\n\207" [#1=#:last-message arg dirtrack-debug-mode dirtrack-debug-buffer 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 message "Dirtrack-Debug mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 5017) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [dirtrack-debug-mode-map 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\n \305\261)\207" [dirtrack-debug-mode dirtrack-debug-buffer msg1 msg2 get-buffer-create "\n"] 3 (#$ . 5982)])
#@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 (#$ . 6229)])
(provide 'dirtrack)