WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/eshell
Viewing File: /usr/share/emacs/24.3/lisp/eshell/em-alias.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:58 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-alias.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!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\310\303&\210\312\320\321\322\316\323\310\303&\210\312\324\304\325\326\327\316\330\310\303&	\207" [require eshell custom-declare-group eshell-alias nil "Command aliases allow for easy definition of alternate commands." :tag "Command aliases" :group eshell-module custom-declare-variable eshell-aliases-file (expand-file-name "alias" eshell-directory-name) "The file in which aliases are kept.\nWhenever an alias is defined by the user, using the `alias' command,\nit will be written to this file.  Thus, alias definitions (and\ndeletions) are always permanent.  This approach was chosen for the\nsake of simplicity, since that's pretty much the only benefit to be\ngained by using this module." :type file eshell-bad-command-tolerance 3 "The number of failed commands to ignore before creating an alias." integer eshell-alias-load-hook "A hook that gets run when `eshell-alias' is loaded." :version "24.1" hook] 10)
#@465 A list of command aliases currently defined by the user.
Each element of this alias is a list of the form:

  (NAME DEFINITION)

Where NAME is the textual name of the alias, and DEFINITION is the
command string to replace that command with.

Note: this list should not be modified in your init file.
Rather, any desired alias definitions should be declared using
the `alias' command, which will automatically write them to the
file named by `eshell-aliases-file'.
(defvar eshell-command-aliases-list nil (#$ . 1564))
(put 'eshell-command-aliases-list 'risky-local-variable t)
#@36 An alist of command name failures.
(defvar eshell-failed-commands-alist nil (#$ . 2146))
#@37 Initialize the alias handling code.
(defalias 'eshell-alias-initialize #[nil "\300\301!\210\302\303\304\305\211$\210\306 \210\302\307\310\305\211$\210\300\311!\210\312\311\313\"\207" [make-local-variable eshell-failed-commands-alist add-hook eshell-alternate-command-hook eshell-fix-bad-commands t eshell-read-aliases-list eshell-named-command-hook eshell-maybe-replace-by-alias eshell-complex-commands add-to-list eshell-command-aliased-p] 5 (#$ . 2241)])
(defalias 'eshell-command-aliased-p #[(name) "\302	\"\207" [name eshell-command-aliases-list assoc] 3])
#@60 Define an ALIAS in the user's alias list using DEFINITION.
(defalias 'eshell/alias #[(&optional alias &rest definition) "\204&	\306\211\203\"\n@\307\310\311#\312\f\"\210)\nA\211\204\f*\202l
\2045\313\314	\"	\"\202i
;\203B\315\316
G\306
$\210\314	\"
C\317\320\321!\322#)D\211\203c\313	\"	B*\323 \210\306\207" [alias eshell-command-aliases-list --dolist-tail-- object eshell-output-handle definition nil apply format "alias %s %s\n" eshell-output-object delq assoc set-text-properties 0 mapconcat eshell-stringify eshell-flatten-list " " eshell-write-aliases-list args alias-def def] 7 (#$ . 2809)])
(autoload 'pcomplete-here "pcomplete")
#@51 Completion function for Eshell's `alias' command.
(defalias 'pcomplete/eshell-mode/alias #[nil "\300\301\302\211\211$\207" [pcomplete--here #[nil "\301!\207" [pcomplete-stub eshell-alias-completions] 2] nil] 5 (#$ . 3486)])
#@53 Read in an aliases list from `eshell-aliases-file'.
(defalias 'eshell-read-aliases-list #[nil "\304	!\2056\305\306!r\nq\210\307\216\310\311	!\210m\2042\312\313!\203,\314\315!\314\316!DB\315y\210\202,\211)\207" [eshell-aliases-file file #1=#:temp-buffer eshell-command-aliases-list file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil insert-file-contents re-search-forward "^alias\\s-+\\(\\S-+\\)\\s-+\\(.+\\)" match-string 1 2] 3 (#$ . 3717)])
#@59 Write out the current aliases into `eshell-aliases-file'.
(defalias 'eshell-write-aliases-list #[nil "\302\303!!\205\304\305\"\306 \210\307\310!)\207" [eshell-aliases-file eshell-current-handles file-writable-p file-name-directory eshell-create-handles overwrite eshell/alias eshell-close-handles 0] 3 (#$ . 4258)])
#@67 Check whether NAME is aliased.  Return the alias if there is one.
(defalias 'eshell-lookup-alias #[(name) "\302	\"\207" [name eshell-command-aliases-list assoc] 3 (#$ . 4585)])
(put 'eshell-lookup-alias 'byte-optimizer 'byte-compile-inline-expand)
(defvar eshell-prevent-alias-expansion nil)
#@67 If COMMAND has an alias definition, call that instead using ARGS.
(defalias 'eshell-maybe-replace-by-alias #[(command args) "\205	\235?\2055	\306\n\")\211\2054\307\310\311\312\313
DD\314\313DD\300\313	BDDE\315\fA@!E\")\207" [eshell-prevent-alias-expansion command name eshell-command-aliases-list alias eshell-last-command-name assoc throw eshell-replace-command let eshell-command-name quote eshell-command-arguments eshell-parse-command eshell-last-arguments] 10 (#$ . 4884)])
#@98 Find all possible completions for NAME.
These are all the command aliases which begin with NAME.
(defalias 'eshell-alias-completions #[(name) "\305	\305\211\203#@\306\307\fP\n@\"\203\n@BA\211\204\n*)\207" [completions eshell-command-aliases-list alias --dolist-tail-- name nil string-match "^"] 4 (#$ . 5381)])
#@68 If the user repeatedly a bad command NAME, make an alias for them.
(defalias 'eshell-fix-bad-commands #[(name) "\306\307!\204U\310	\"\211\204\311B	B\202T\nAW\203)\n\211AT\241\210\202T\312\313\314\"!\315P\316\f\"\210\317\320\321\322\323DD\324\323
DD\325\323BDDE\326\f!E\"\210))\207" [name eshell-failed-commands-alist entry eshell-bad-command-tolerance alias eshell-last-arguments nil file-name-directory assoc 1 read-string format "Define alias for \"%s\": " " $*" eshell/alias throw eshell-replace-command let eshell-command-name quote eshell-command-arguments eshell-prevent-alias-expansion eshell-parse-command] 11 (#$ . 5712)])
(provide 'em-alias)
F1l3 Manager
