;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@333 The file in which aliases are kept. Whenever an alias is defined by the user, using the `alias' command, it will be written to this file. Thus, alias definitions (and deletions) are always permanent. This approach was chosen for the sake of simplicity, since that's pretty much the only benefit to be gained by using this module.#@2 #@67 The number of failed commands to ignore before creating an alias.#@53 A hook that gets run when `eshell-alias' is loaded.#@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'. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\322\323\310\303& \210\312\324\314\315\325DD\326\322\327\310\303&\210\312\330\314\315\331DD\332\320\333\322\334\310\303& \207" [require esh-mode 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 funcall function #[0 "\301\302\"\207" [eshell-directory-name expand-file-name "alias"] 3 (#$ . 420)] (#$ . 84) :version "30.1" :type (choice (const :tag "Don't save aliases" nil) file) eshell-bad-command-tolerance #[0 "\300\207" [3] 1 (#$ . 420)] (#$ . 426) integer eshell-alias-load-hook #[0 "\300\207" [nil] 1 (#$ . 420)] (#$ . 497) "24.1" hook] 10) (defvar eshell-command-aliases-list nil (#$ . 555))#@36 An alist of command name failures. (put 'eshell-command-aliases-list 'risky-local-variable t) (defvar eshell-failed-commands-alist nil (#$ . 1865))#@37 Initialize the alias handling code. (defalias 'eshell-alias-initialize #[0 "\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 (#$ . 2018)])#@13 (fn NAME) (defalias 'eshell-command-aliased-p #[257 "\301\"\207" [eshell-command-aliases-list assoc] 4 (#$ . 2478)])#@99 Define an ALIAS in the user's alias list using DEFINITION. (fn &optional ALIAS &rest DEFINITION) (defalias 'eshell/alias #[384 "\204\211\203\211@\302\303\304#\305 \"\266A\202\210\202^\211\204-\306\307\"\"\202[\211;\203:\310\311G\312$\210\307\"C\313!\314\315\316#\266\202D\203U\306\"\211B\266\317 \210\312\207" [eshell-command-aliases-list eshell-output-handle apply format "alias %s %s\n" eshell-output-object delq assoc set-text-properties 0 nil flatten-tree mapconcat eshell-stringify " " eshell-write-aliases-list] 10 (#$ . 2604)])#@51 Completion function for Eshell's `alias' command. (autoload 'pcomplete-here "pcomplete") (defalias 'pcomplete/eshell-mode/alias #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301!\207" [pcomplete-stub eshell-alias-completions] 2] nil] 5 (#$ . 3180)])#@117 Read in an aliases list from `eshell-aliases-file'. This is useful after manually editing the contents of the file. (defalias 'eshell-read-aliases-list #[0 "\205=\302!\205=\303\304\305\"r\211q\210\306\307\"\216\310\311!\210m\2047\312\313!\2031\314\315!\314\316!D B\315y\210\202 +\262\211\207" [eshell-aliases-file eshell-command-aliases-list file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil insert-file-contents re-search-forward "^alias\\s-+\\(\\S-+\\)\\s-+\\(.+\\)" match-string 1 2] 4 (#$ . 3446) nil])#@59 Write out the current aliases into `eshell-aliases-file'. (defalias 'eshell-write-aliases-list #[0 "\205\302\303!!\205\304\305\"\306 \210\307\310\311\")\207" [eshell-aliases-file eshell-current-handles file-writable-p file-name-directory eshell-create-handles overwrite eshell/alias eshell-close-handles 0 nil] 3 (#$ . 4054)])#@78 Check whether NAME is aliased. Return the alias if there is one. (fn NAME) (defalias 'eshell-lookup-alias #[257 "\301\"\207" [eshell-command-aliases-list assoc] 4 (#$ . 4394)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-lookup-alias speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defvar eshell-prevent-alias-expansion nil)#@16 (fn COMMAND) (defalias 'eshell-maybe-replace-by-alias--which #[257 "\205\211\235?\205\211\302 \"\262\211\205\303A@\304R\262\207" [eshell-prevent-alias-expansion eshell-command-aliases-list assoc " is an alias, defined as \"" "\""] 6 (#$ . 4769)])#@67 Call COMMAND's alias definition, if it exists. (fn COMMAND ARGS) (defalias 'eshell-maybe-replace-by-alias #[514 "\205\235?\2055\304 \"\262\211\2053\305\306\307\310\311\nDD\312\311 DD\300\311 BDDE\313A@!E\"\262\207" [eshell-prevent-alias-expansion eshell-command-aliases-list eshell-last-command-name eshell-last-arguments assoc throw eshell-replace-command let eshell-command-name quote eshell-command-arguments eshell-parse-command] 12 (#$ . 5036)])#@109 Find all possible completions for NAME. These are all the command aliases which begin with NAME. (fn NAME) (put 'eshell-maybe-replace-by-alias 'eshell-which-function 'eshell-maybe-replace-by-alias--which) (defalias 'eshell-alias-completions #[257 "\301\211\203\211@\302\303P@\"\203\211@B\262\210A\202\210\207" [eshell-command-aliases-list nil string-match "^"] 7 (#$ . 5508)])#@79 If the user repeatedly a bad command NAME, make an alias for them. (fn NAME) (defalias 'eshell-fix-bad-commands #[257 "\304!\204T\305\"\211\204\306BB\210\202T\211A W\203)\211AT\241\266\202T\307\310\311\"!\312P\313\"\210\314\315\316\317\320DD\321\320\nDD\303\320 BDDE\322!E\"\266\323\207" [eshell-failed-commands-alist eshell-bad-command-tolerance eshell-last-arguments eshell-prevent-alias-expansion 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-parse-command nil] 12 (#$ . 5902)]) (provide 'em-alias)