;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


#@97 Return a list of the defuns in the visible porition of the buffer.
Keep any preceding comments.
(defalias 'snarf-defuns #[nil "\304\305\211\211\212eb\210\306\307d\310#\203A \311\224\312 \210\313 \314y\210`eV\2034 \315\316!\2034 `\314y\210\202  \317	\"\nBb\210\202\f )\n,\207" [end start results fname "snarf-defuns" nil re-search-forward "^(defun \\([[:graph:]]+\\) " t 0 mark-defun mark -1 looking-at ";" buffer-substring-no-properties] 4 (#$ . 87)])
#@59 Return a copy of the given list of DEFUNS sorted by name.
(defalias 'sort-defuns #[(defuns) "\304\305\211\306\307\"\310	\311\"\306\312\"+\207" [sorted-list sortable-list fname defuns "sort-defuns" nil mapcar #[(d) "\303 \304\216\305\306	\"\205 \307\310	\"*\211	)B\207" [save-match-data-internal d defun-name match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "(defun \\([[:graph:]]+\\) " match-string-no-properties 1] 4] sort #[(l r) "@	@\231\207" [l r] 2] cdr] 3 (#$ . 555)])
#@80 Replace the visible portion of the current buffer with its defuns, but sorted.
(defalias 'sort-defuns-in-buffer #[nil "\302\303\304 !ed|\210\305\306\"*\207" [defuns fname "sort-defuns-in-buffer" sort-defuns snarf-defuns mapc #[(d) "\301\261\207" [d "\n"] 2]] 3 (#$ . 1101) nil])
(byte-code "\300\301!\210\300\302!\207" [require dired dired-aux] 2)
#@62 Regular expression to match the permission flags in `ls -l'.
(defvar *cpio-dired-permission-flags-regexp* dired-permission-flags-regexp (#$ . 1460))
(defvar *mon-re* "jan\\|feb\\|mar\\|apr\\|may\\|jun\\|jul\\|aug\\|sep\\|oct\\|nov\\|dec")
(byte-code "\301\302\207" [*mon-re* "jan\\|feb\\|mar\\|apr\\|may\\|jun\\|jul\\|aug\\|sep\\|oct\\|nov\\|dec" nil] 1)
#@43 RE to match the date/time field in ls -l.
(defvar *cpio-dired-date-time-regexp* nil (#$ . 1822))
(byte-code "\302\303Q\304\207" [*mon-re* *cpio-dired-date-time-regexp* "\\(?:" "\\)\\s-+[[:digit:]]\\{2\\}\\s-+\\(?:[[:digit:]]\\{2\\}:[[:digit:]]\\{2\\}\\|[[:digit:]]\\{4\\}\\)" nil] 3)
#@69 Regular expression to match the "ls -l" portion of an entry's line.
(defvar *cpio-dired-inner-entry-regexp* (concat "\\([-dpstrwx]\\{10\\}\\)\\s-+[[:digit:]]+\\s-+\\([[:alnum:]]+\\)\\s-+\\([[:alnum:]]+\\)\\s-+[[:digit:]]+\\s-+\\(" *cpio-dired-date-time-regexp* "\\)\\s-+\\([[:graph:]]+\\)") (#$ . 2114))
(byte-code "\302\303Q\304\207" [*cpio-dired-date-time-regexp* *cpio-dired-inner-entry-regexp* "\\([-dpstrwx]\\{10\\}\\)\\s-+[[:digit:]]+\\s-+\\([[:alnum:]]+\\)\\s-+\\([[:alnum:]]+\\)\\s-+[[:digit:]]+\\s-+\\(" "\\)\\s-+\\([[:graph:]]+\\)" nil] 3)
#@64 Regular expression to match an entry's line in cpio-dired-mode
(defvar *cpio-dired-entry-regexp* (concat "..\\(" *cpio-dired-permission-flags-regexp* "\\)\\s-+[[:digit:]]+\\s-+\\([[:alnum:]]+\\)\\s-+\\([[:alnum:]]+\\)\\s-+[[:digit:]]+\\s-+\\(" *cpio-dired-date-time-regexp* "\\)\\s-+\\([[:graph:]]+\\)") (#$ . 2672))
(byte-code "\302P\303\207" [*cpio-dired-inner-entry-regexp* *cpio-dired-entry-regexp* ".." nil] 2)
#@55 Index of the mode match in *cpio-dired-entry-regexp*.
(defvar *cpio-dired-mode-idx* 1 (#$ . 3096))
(byte-code "\301\211\207" [*cpio-dired-mode-idx* 1] 2)
#@55 Index of the user match in *cpio-dired-entry-regexp*.
(defvar *cpio-dired-user-idx* 2 (#$ . 3257))
(byte-code "\301\211\207" [*cpio-dired-user-idx* 2] 2)
#@56 Index of the group match in *cpio-dired-entry-regexp*.
(defvar *cpio-dired-group-idx* 3 (#$ . 3418))
(byte-code "\301\211\207" [*cpio-dired-group-idx* 3] 2)
#@60 Index of the date/time match in *cpio-dired-entry-regexp*.
(defvar *cpio-dired-date/time-idx* 4 (#$ . 3582))
(byte-code "\301\211\207" [*cpio-dired-date/time-idx* 4] 2)
#@61 Index of the entry name match in *cpio-dired-entry-regexp*.
(defvar *cpio-dired-name-idx* 5 (#$ . 3758))
(byte-code "\301\211\207" [*cpio-dired-name-idx* 5] 2)
#@117 In cpio-dired, the current mark character.
This is what the do-commands look for, and what the mark-commands store.
(defconst cpio-dired-marker-char 42 (#$ . 3926))
#@66 In cpio-dired, a string corresponding to cpio-dired-marker-char.
(defconst cpio-dired-marker-str (char-to-string cpio-dired-marker-char) (#$ . 4097))
#@46 Character used to flag entries for deletion.
(defvar cpio-dired-del-marker 68 (#$ . 4253))
(byte-code "\301\211\207" [cpio-dired-del-marker 68] 2)
#@65 In cpio-dired, a string corresponding to cpio-dired-del-marker.
(defvar cpio-dired-del-str (char-to-string cpio-dired-del-marker) (#$ . 4407))
(byte-code "\302!\302\207" [cpio-dired-del-marker cpio-dired-del-str char-to-string] 2)
#@45 Character used to flag entries for copying.
(defvar cpio-dired-keep-marker-copy 67 (#$ . 4646))
(byte-code "\301\211\207" [cpio-dired-keep-marker-copy 67] 2)
#@71 In cpio-dired, a string corresponding to cpio-dired-keep-marker-copy.
(defvar cpio-dired-keep-marker-copy-str 67 (#$ . 4811))
(byte-code "\301\211\207" [cpio-dired-keep-marker-copy-str 67] 2)
#@46 Character used to flag entries for renaming.
(defvar cpio-dired-keep-marker-rename 82 (#$ . 5010))
(byte-code "\301\211\207" [cpio-dired-keep-marker-rename 82] 2)
#@73 In cpio-dired, a string corresponding to cpio-dired-keep-marker-rename.
(defvar cpio-dired-keep-marker-rename-str (char-to-string cpio-dired-keep-marker-rename) (#$ . 5180))
(byte-code "\302!\302\207" [cpio-dired-keep-marker-rename cpio-dired-keep-marker-rename-str char-to-string] 2)
#@72 Regexp for optional initial inode and file size as made by `ls -i -s'.
(defvar cpio-dired-re-inode-size "[0-9 	]*" (#$ . 5473))
(byte-code "\301\302\207" [cpio-dired-re-inode-size "[0-9 	]*" nil] 1)
#@81 Regexp matching a marked line.
Important: the match ends just after the marker.
(defvar cpio-dired-re-mark "^[^ \n]" (#$ . 5679))
(byte-code "\301\302\207" [cpio-dired-re-mark "^[^ \n]" nil] 1)
(defvar cpio-dired-re-maybe-mark "^. ")
(byte-code "\301\302\207" [cpio-dired-re-maybe-mark "^. " nil] 1)
(defvar cpio-dired-re-dir (concat cpio-dired-re-maybe-mark cpio-dired-re-inode-size "d[^:]"))
(byte-code "	\303Q\304\207" [cpio-dired-re-maybe-mark cpio-dired-re-inode-size cpio-dired-re-dir "d[^:]" nil] 3)
(defvar cpio-dired-re-sym (concat cpio-dired-re-maybe-mark cpio-dired-re-inode-size "l[^:]"))
(byte-code "	\303Q\304\207" [cpio-dired-re-maybe-mark cpio-dired-re-inode-size cpio-dired-re-sym "l[^:]" nil] 3)
(defvar cpio-dired-re-exe (mapconcat #[(x) "\302	Q\207" [cpio-dired-re-maybe-mark x " "] 3] '("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|"))
(byte-code "\301\302\303\304#\301\207" [cpio-dired-re-exe mapconcat #[(x) "\302	Q\207" [cpio-dired-re-maybe-mark x " "] 3] ("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|"] 4)
(defvar cpio-dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
(byte-code "\301\302\207" [cpio-dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w]." nil] 1)
(defvar cpio-dired-re-dot "^.* \\.\\.?/?$")
(byte-code "\301\302\207" [cpio-dired-re-dot "^.* \\.\\.?/?$" nil] 1)
#@57 Additional expressions to highlight in cpio-dired mode.
(defvar cpio-dired-font-lock-keywords (byte-code "\306D\307\310	!\311Q\312D\307\310\n!\311Q\313D\314D\f\315D\316\317\320\321R\322D\257\207" [cpio-dired-re-mark cpio-dired-marker-char cpio-dired-del-marker cpio-dired-re-dir cpio-dired-re-sym cpio-dired-re-maybe-mark (0 cpio-dired-mark-face) "^[" char-to-string "]" (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-marked-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-flagged-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-directory-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-symlink-face)) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") '(".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-ignored-face))) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)[*=|]$") '(".+" (progn (end-of-line) (unless (get-text-property (1- (point)) 'mouse-face) (cpio-dired-move-to-entry-name))) nil (0 cpio-dired-ignored-face))) " " ".*:$" (".+" (cpio-dired-move-to-entry-name) nil (0 'default)) cpio-dired-re-perms] 11) (#$ . 7130))
(byte-code "\306D\307\310	!\311Q\312D\307\310\n!\311Q\313D\314D\f\315D\316\317\320\321R\322D\257\310\207" [cpio-dired-re-mark cpio-dired-marker-char cpio-dired-del-marker cpio-dired-re-dir cpio-dired-re-sym cpio-dired-re-maybe-mark (0 cpio-dired-mark-face) "^[" char-to-string "]" (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-marked-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-flagged-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-directory-face)) (".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-symlink-face)) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") '(".+" (cpio-dired-move-to-entry-name) nil (0 cpio-dired-ignored-face))) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)[*=|]$") '(".+" (progn (end-of-line) (unless (get-text-property (1- (point)) 'mouse-face) (cpio-dired-move-to-entry-name))) nil (0 cpio-dired-ignored-face))) " " ".*:$" (".+" (cpio-dired-move-to-entry-name) nil (0 'default)) cpio-dired-re-perms cpio-dired-font-lock-keywords] 11)
#@52 Name of the entry whose contents are being edited.
(defvar cpio-entry-name nil (#$ . 9373))
(byte-code "\301\211\207" [cpio-entry-name nil] 2)
#@55 Regular expression to match an entry for a directory.
(defconst *cpio-dirline-re* "^..d" (#$ . 9523))
(byte-code "\301\302\207" [*cpio-dirline-re* "^..d" nil] 1)
#@44 History of copies made in cpio-dired-mode.
(defvar *cpio-dired-copy-history* nil (#$ . 9692))
(byte-code "\301\211\207" [*cpio-dired-copy-history* nil] 2)
#@37 History of M-x cpio-dired-do-chgrp.
(defvar *cpio-dired-do-chgrp-history* nil (#$ . 9854))
(byte-code "\301\211\207" [*cpio-dired-do-chgrp-history* nil] 2)
#@37 History of M-x cpio-dired-do-chown.
(defvar *cpio-dired-do-chown-history* nil (#$ . 10017))
(byte-code "\301\211\207" [*cpio-dired-do-chown-history* nil] 2)
#@38 History of M-x cpio-dired-do-rename.
(defvar *cpio-dired-do-rename-history* nil (#$ . 10181))
(byte-code "\301\211\207" [*cpio-dired-do-rename-history* nil] 2)
#@81 The number of lines in the cpio-dired buffer devoted to the dired-style header.
(defvar *cpio-dired-head-offset* 2 (#$ . 10348))
(byte-code "\301\211\207" [*cpio-dired-head-offset* 2] 2)
#@74 The [subordinate] buffer used to present the curent catalog
à la dired.
(defvar *cpio-dired-buffer* nil (#$ . 10542))
(byte-code "\301\302\300!\210\303\304\301\305\306\307\306\310&\210\311\312\313\314\306\304\315\316&\207" [*cpio-dired-buffer* nil make-variable-buffer-local custom-declare-group cpio-dired-faces "Faces used by Dired." :group dired faces custom-declare-face cpio-dired-header ((t (:inherit font-lock-type-face))) "Face used for directory headers." :version "22.1"] 8)
#@39 Face name used for directory headers.
(defvar cpio-dired-header-face 'cpio-dired-header (#$ . 11037))
(byte-code "\301\302\303\304\305\306\307\310\311&\207" [cpio-dired-header-face cpio-dired-header custom-declare-face cpio-dired-mark ((t (:inherit font-lock-constant-face))) "Face used for Dired marks." :group cpio-dired-faces :version "22.1"] 8)
#@33 Face name used for Dired marks.
(defvar cpio-dired-mark-face 'cpio-dired-mark (#$ . 11394))
(custom-declare-face 'cpio-dired-marked '((t (:inherit warning))) "Face used for marked files." :group 'cpio-dired-faces :version "22.1")
#@34 Face name used for marked files.
(defvar cpio-dired-marked-face 'cpio-dired-marked (#$ . 11630))
(custom-declare-face 'cpio-dired-flagged '((t (:inherit error))) "Face used for files flagged for deletion." :group 'cpio-dired-faces :version "22.1")
#@48 Face name used for files flagged for deletion.
(defvar cpio-dired-flagged-face 'cpio-dired-flagged (#$ . 11884))
(byte-code "\301\302\303\304\305\306\307\310\311&\207" [cpio-dired-flagged-face cpio-dired-flagged custom-declare-face cpio-dired-warning ((t (:inherit font-lock-warning-face))) "Face used to highlight a part of a buffer that needs user attention." :group cpio-dired-faces :version "22.1"] 8)
#@66 Face name used for a part of a buffer that needs user attention.
(defvar cpio-dired-warning-face 'cpio-dired-warning (#$ . 12298))
(custom-declare-face 'cpio-dired-perm-write '((((type w32 pc)) :inherit default) (t (:inherit font-lock-comment-delimiter-face))) "Face used to highlight permissions of group- and world-writable files." :group 'cpio-dired-faces :version "22.2")
#@68 Face name used for permissions of group- and world-writable files.
(defvar cpio-dired-perm-write-face 'cpio-dired-perm-write (#$ . 12680))
(byte-code "\301\302\303\304\305\306\307\310\311&\207" [cpio-dired-perm-write-face cpio-dired-perm-write custom-declare-face cpio-dired-directory ((t (:inherit font-lock-function-name-face))) "Face used for subdirectories." :group cpio-dired-faces :version "22.1"] 8)
#@36 Face name used for subdirectories.
(defvar cpio-dired-directory-face 'cpio-dired-directory (#$ . 13095))
(byte-code "\301\302\303\304\305\306\307\310\311&\207" [cpio-dired-directory-face cpio-dired-directory custom-declare-face cpio-dired-symlink ((t (:inherit font-lock-keyword-face))) "Face used for symbolic links." :group cpio-dired-faces :version "22.1"] 8)
#@36 Face name used for symbolic links.
(defvar cpio-dired-symlink-face 'cpio-dired-symlink (#$ . 13466))
(byte-code "\301\302\303\304\305\306\307\310\311&\207" [cpio-dired-symlink-face cpio-dired-symlink custom-declare-face cpio-dired-ignored ((t (:inherit shadow))) "Face used for files suffixed with `completion-ignored-extensions'." :group cpio-dired-faces :version "22.1"] 8)
#@73 Face name used for files suffixed with `completion-ignored-extensions'.
(defvar cpio-dired-ignored-face 'cpio-dired-ignored (#$ . 13850))
(byte-code "\301\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\315\316&\210\302\317\313\320\306\307\315\316&\210\302\321\313\322\306\307\315\316&\210\302\323\324\325\306\326\315\316&\207" [cpio-dired-ignored-face cpio-dired-ignored custom-declare-variable cpio-dired-trivial-filenames dired-trivial-filenames "Regexp of entries to skip when finding the first meaningful entry of a directory." :group cpio-dired :version "22.1" cpio-dired-hide-details-hide-information-lines nil "Non-nil means 'cpio-dired-hide-information-lines' hides all but header and file lines." :type boolean cpio-dired-hide-details-hide-symlink-targets "Non-nil means `hides symbolic link targets." cpio-dired-hide-details-information "Non-hil means `dired-hide-details-mode' hides all but header and file lines." cpio-try-names t "Non-nil means that GIDs and UIDs are displayed as integers." cpio] 8)
#@41 Get the entry name on the current line.
(defalias 'cpio-dired-get-entry-name #[nil "\304\212\305 \210\306 \307\216\310\n!\205 \311!,\207" [fname save-match-data-internal *cpio-dired-entry-regexp* *cpio-dired-name-idx* "cpio-dired-get-filename" beginning-of-line match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at match-string-no-properties] 2 (#$ . 14890)])
#@38 Toggle cpio-dired-hide-details-mode.
(defalias 'cpio-dired-hide-details-update-invisibility-spec #[nil "\304	\203\n \305\202 \306\307!\210	\203 \n\203 \305\202 \306\310!\210	\2030 \2030 \311\312!\2040 \305\2021 \306\313!)\207" [fname cpio-dired-hide-details-mode cpio-dired-hide-details-hide-information-lines cpio-dired-hide-details-hide-symlink-targets "cpio-dired-hide-details-update-invisibility-spec" add-to-invisibility-spec remove-from-invisibility-spec cpio-dired-hide-details-detail cpio-dired-hide-details-information derived-mode-p cpio-dired-mode cpio-dired-hide-details-link] 2 (#$ . 15308)])
#@66 Read the contents of the given ENTRY-NAME, but don't display it.
(defalias 'cpio-dired-find-entry-noselect #[(entry-name) "\303\304\305!!	\203 \306	!\203 	\2023 	\2032 \307	!\210\304\305!!r	q\210\310!c\210)	\2023 \311*\207" [entry-name target-buffer fname "cpio-dired-find-entry-noselect" get-buffer-create cpio-contents-buffer-name buffer-live-p kill-buffer cpio-contents nil] 4 (#$ . 15926)])
#@35 Delete the entries in the list L.
(defalias 'cpio-internal-do-deletions #[(l) "\303	\203 r	q\210\304\n!)\202 \305\306\n\")\207" [fname *cab-parent* l "cpio-internal-do-deletions" cpio-internal-do-deletions mapc cpio-internal-do-deletion] 3 (#$ . 16335)])
#@103 Remove the entry with name ENTRY-NAME from a cpio-archive.
CONTRACT: You're in that archive's buffer.
(defalias 'cpio-internal-do-deletion #[(entry-name) "\306\307\211\211\211\203 rq\210\310!)\202` \311\"\211\204, \312\313\f#\210A\314H\315A\316H\317\320!!\\S\"T\307\n	|\210)\321\311\"\"\211-\207" [entry-attrs end-marker start-marker entry-info fname *cab-parent* "cpio-internal-do-deletion" nil cpio-internal-do-deletion assoc error "%s(): Could not get entry information for %s." 1 cg-round-up 2 cpio-entry-size cpio-entry-attrs delete entry-name *cpio-catalog* *cpio-padding-modulus* buffer-read-only bro-before] 5 (#$ . 16600)])
#@98 Return a list of entries marked with CHAR, or,
if none are so marked, then the next ARG entries.
(defalias 'cpio-dired-marked-entries #[(char arg) "\305\306\307\212eb\210\310\311\312\"d\313#\203 \314 	B\202\n )	\204: \212\fW\2039 \314 	B\315\316!\210T\211\202$ )	+\207" [i files fname char arg "cpio-dired-marked-entries" nil 0 re-search-forward format "^\\%c" t cpio-dired-get-entry-name cpio-dired-next-line 1] 5 (#$ . 17282)])
#@351 Add an entry to a cpio archive using the given ATTRS with the given CONTENTS.

CONTRACT: The archive buffer has no trailer.

The optional argument CPIO-DIRED-BUFFER is just there
to make the recursive call this function inside the archive buffer sensible.

If the optional argument MARK, a character, is not NIL,
then use that to mark the new entry.
(defalias 'cpio-dired-add-contents #[(attrs contents &optional cpio-dired-buffer mark) "\204 p\306\307\310	!\307\211\211\203, rq\210\311	$)\202\247 \312\307\"\313 \210\314	\"\307\315 db\210c\210\315 db\210\316!\210)\f	I\210\fI\210\f\nI\210\317\f!\210\fB\211\235\204\210 \320C\")rq\210\212db\210\307\321	\"\322\261\210\211+.\207" [cpio-dired-buffer attrs contents-start-marker header-start-marker new-catalog-entry entry-name "cpio-dired-add-contents" nil cpio-entry-name cpio-dired-add-contents make-vector cpio-delete-trailer cpio-make-header-string point-max-marker cpio-insert-padded-contents cpio-set-entry-unmodified append cpio-dired-format-entry "\n" header-string fname *cab-parent* contents mark *cpio-catalog-entry-length* buffer-read-only bro-before *cpio-catalog-entry-attrs-idx* *cpio-catalog-entry-header-start-idx* *cpio-catalog-entry-contents-start-idx* #1=#:x *cpio-catalog*] 7 (#$ . 17729)])
#@71 Return a list of the marked entries in the current cpio-dired buffer.
(defalias 'cpio-dired-get-marked-entries #[(&optional arg) "\306\307\310 \311\f\312\230\204 \313\314\"\210\212eb\210\315	d\316#\203( \317 \nB\202 )\n\204K \212\2044 \320W\203J \317 \nB\321\320!\210T\211\2025 )\n\203S \n\202V \317 C,\207" [i regexp results fname mode-name arg "cpio-dired-get-marked-entries" nil cpio-dired-marker-regexp 0 "cpio-dired" error "%s() only makes sense in a cpio-dired buffer." re-search-forward t cpio-dired-get-entry-name 1 dired-next-line] 5 (#$ . 19071)])
#@113 Copy the ENTRY to the TARGET entry.
CONTRACT: TARGET is the actual TARGET name, not an implied directory entry.
(defalias 'cpio-dired-internal-do-copy #[(entry target) "\306\307\310!!\311!\312\n\f\"\210\313\n	\314$+\207" [entry contents attrs fname target cpio-dired-keep-marker-copy "cpio-dired-internal-do-copy" copy-sequence cpio-entry-attrs cpio-contents cpio-set-entry-name cpio-dired-add-contents nil] 5 (#$ . 19651)])
#@152 Rename ENTRY-NAME to the TARGET entry.
CONTRACT:
1. TARGET is the actual TARGET name, not an implied directory entry.
2. You're in a cpio-dired buffer
(defalias 'cpio-dired-internal-do-rename #[(entry-name target) "\306\307!\310!\311!\312=\204 \313\314\f\"\210\212\315!\210\316\317 \320 |\210)\321\n\"\210rq\210\322\"\240\210)\316\323\n	\"c\210*\324 ,\207" [entry-name mark attrs entry fname major-mode "cpio-dired-internal-do-rename" cpio-entry cpio-entry-attrs cpio-dired-get-mark cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-dired-goto-entry nil line-beginning-position line-end-position cpio-set-entry-name assoc cpio-dired-format-entry cpio-dired-move-to-entry-name buffer-read-only bro-before target *cab-parent* *cpio-catalog*] 5 (#$ . 20089)])
#@69 Read a regular expression to match entries for the given OPERATION.
(defalias 'cpio-dired-mark-read-regexp #[(operation) "\306\307\310\311	\"\312\313#	\314\230\203 \202$ 	\315\230\203 \f\202$ \316\317	#\312\212eb\210\320d\321#\205R \322 \n\312\321\323#)\266\203\203, \324!\210\202, -\207" [fname operation regexp cpio-dired-keep-marker-copy cpio-dired-keep-marker-rename mark-char "cpio-dired-mark-read-regexp" read-regexp format "%s on entries matching regexp: " nil dired-regexp-history "Copy" "Rename" error "%s() called with unknown operation [[%s]]." re-search-forward t cpio-dired-get-entry-name string-match cpio-dired-mark-this-entry entry-name *cpio-dired-entry-regexp* inhibit-changing-match-data] 7 (#$ . 20911)])
#@132 Replace the entry for the given ENTRY-NAME
with information from the current catalog.
CONTRACT: You're on the line to be replaced.
(defalias 'cpio-dired-replace-dired-line #[(entry-name) "\306\307!\310\212\311!\210\312 \313!\210\f\310\314\n	\"c\210\211-\207" [entry-name mark attrs fname buffer-read-only bro-before "cpio-dired-replace-dired-line" cpio-entry-attrs nil cpio-move-to-entry cpio-dired-get-mark cpio-dired-delete-dired-line cpio-dired-format-entry] 3 (#$ . 21664)])
#@59 Delete the line of ENTRY-NAME not including the new line.
(defalias 'cpio-dired-delete-dired-line #[(entry-name) "\305	\306=\204 \307\310\"\210\311\n!\210\312\313 \314 |\210\f\211*\207" [fname major-mode entry-name buffer-read-only bro-before "cpio-dired-delete-dired-line" cpio-dired-mode error "%s(): You're not in a cpio-dired-buffer." cpio-move-to-entry nil line-beginning-position line-end-position] 3 (#$ . 22160)])
#@61 Return the name of the dired-style buffer for ARCHIVE-NAME.
(defalias 'cpio-dired-buffer-name #[(archive-name) "\302\303\304	!P)\207" [fname archive-name "cpio-dired-buffer-name" "CPIO archive: " file-name-nondirectory] 3 (#$ . 22595)])
#@123 Create a buffer with a ls -l format reflecting the contents of the current cpio archive.
This returns the buffer created.
(defalias 'cpio-present-ala-dired #[(archive-buffer) "\306r	q\210\307\310 !)\311\n!\312!\313\314 r\fq\210\313\315 \210\316\n\317\261\210\320\321\322 \"\210)\323 \210)\203O rq\210\315 \210)\324\f	\"\210\f.\207" [fname archive-buffer archive-name buffer-name buffer entry-string "cpio-present-ala-dired" file-name-nondirectory buffer-file-name cpio-dired-buffer-name get-buffer-create nil cpio-catalog erase-buffer "CPIO archive: " ":\n\n" mapc #[(e) "\302A\303H!\211\304Pc)\207" [e line cpio-dired-format-entry 0 "\n"] 4] cpio-sort-catalog cpio-dired-mode cab-register catalog *cpio-catalog* buffer-read-only bro-before cab-clear-cab-info-buffer *cab-info-buffer*] 3 (#$ . 22840)])
#@65 Move the point to the first entry in a cpio-dired style buffer.
(defalias 'cpio-dired-move-to-first-entry #[nil "\303	\304=\204 \305\306\"\210eb\210\307\n!)\207" [fname major-mode *cpio-dired-head-offset* "cpio-dired-move-to-first-entry" cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-dired-next-line] 3 (#$ . 23679)])
#@185 Create a dired-style line for ATTRS.
If the optional MARK is given,
then it is a character and used as the mark on the generated line.
The line does not include a trailing <new line>.
(defalias 'cpio-dired-format-entry #[(attrs &optional mark) "\306\307\310	!!\311\312	!!\313\314	!!\315\316	!!\317\320	!! \321\322	!!!\323\324	!!\"\325\326	!!#\327\330	!!\211$\205O %\203L \331\332!\202O \331\333!&'\204Y \334'\335'!\204h \336\337\335'D\"\210&\205~ \331&'\n\f! $&	.\207" [fname attrs mode-string uid-string gid-string nlink-string "cpio-dired-format-entry" cpio-int-mode-to-mode-string cpio-mode-value cpio-uid-to-uid-string cpio-uid cpio-gid-to-gid-string cpio-gid cpio-nlink-to-nlink-string cpio-nlink cpio-mtime-to-mtime-string cpio-mtime cpio-filesize-to-filesize-string cpio-entry-size cpio-dev-maj-to-dev-maj-string cpio-dev-maj cpio-dev-min-to-dev-min-string cpio-dev-min cpio-entry-name-to-entry-name-string cpio-entry-name format "%%c %%s %%3s %%8s %%8s %%8s %%7s %%s" "%%c %%s %%3s %%5s %%5s %%8s %%7s %%s" 32 characterp signal wrong-type-error mtime-string filesize-string dev-maj-string dev-min-string entry-name-string cpio-try-names fmt mark] 11 (#$ . 24031)])
#@43 Get the mark, a character, on ENTRY-NAME.
(defalias 'cpio-dired-get-mark #[(&optional entry-name) "\303	\304=\204 \305\306\"\210\n\204 \307 \212\310\n!\210\311\312 \312 T{!*\207" [fname major-mode entry-name "cpio-dired-get-mark" cpio-dired-mode error "%s(): only makes sense in a cpio-dired buffer." cpio-dired-get-entry-name cpio-dired-goto-entry string-to-char line-beginning-position] 3 (#$ . 25235)])
#@782 Add the given FILENAME as an entry in a cpio archive.
The archive is the one affiliated with the current cpio-dired buffer.
If you want a different path, then rename the entry once it's there.

CAVEAT:
This function is not smart about its filename.
If you give a full path, then you get a fullpath.
If you want a different path, then rename the entry once it's there.

TECHNICAL INTERNAL INFORMATION:
The optional argument, CPIO-DIRED-BUFFER, is the cpio-dired style buffer
to be updated with the new entry.
It is here because, while this function may start
in the cpio-dired-style buffer,
It does its heavy lifting in the archive buffer.
CPIO-DIRED-BUFFER is just for bookkeeping;
if CPIO-DIRED-BUFFER is NIL (i.e. you're /in/ the cpio-dired buffer),
then use the current buffer.
(defalias 'cpio-dired-add-entry #[(filename &optional cpio-dired-buffer) "\306\307\211\211\211\206\n p\310\307\311\312#)\266\203\203( \313!\203J \314=\2049 \315\316\"\210rq\210\317\"\210)\320 \202\224 \321!\322 \210\323\f!\307\324 db\210	c\210\324 db\210\325!\210db\210\326 \210)rq\210\307\327 \330 T|\210\211*.\207" [cpio-dired-buffer header-string contents-start-marker header-start-marker entry-attrs fname "cpio-dired-add-entry" nil "^~/" t string-match expand-file-name cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-dired-add-entry cpio-dired-set-modified cpio-create-entry-attrs cpio-delete-trailer cpio-make-header-string point-max-marker insert-file-contents cpio-insert-trailer line-beginning-position line-end-position filename inhibit-changing-match-data *cab-parent* major-mode buffer-read-only bro-before] 7 (#$ . 25653) "fFile: "])
#@90 Change all OLD marks to NEW marks.
OLD and NEW are both characters used to mark entries.
(defalias 'cpio-dired-change-marks #[(old new) "\306	\307=\204 \310\311\"\210\212\312 \210\313 \210\n\314`dW\2038 \f\315\316!)\262\2032 \317\320!\210c\210\320y\210\202 \211+\207" [fname major-mode buffer-read-only bro-before old inhibit-changing-match-data "cpio-dired-change-marks" cpio-dired-mode error "%s(): You're not in a cpio dired buffer." cpio-dired-move-to-first-entry beginning-of-line nil t looking-at delete-char 1 new] 3 (#$ . 27368) (let* ((cursor-in-echo-area t) (old (progn (message "Change (old mark): ") (read-char))) (new (progn (message "Change %c marks to (new mark): " old) (read-char)))) (list (char-to-string old) (char-to-string new)))])
#@383 Flag numerical backups for deletion.
Spares `cpio-dired-kept-versions' latest versions, and `cpio-kept-old-versions' oldest.
Positive prefix arg KEEP overrides `cpio-dired-kept-versions';
Negative prefix arg KEEP overrides `cpio-kept-old-versions' with KEEP made positive.

To clear the flags on these entries, you can use M-x cpio-dired-flag-backup-entries
with a prefix argument.
(defalias 'cpio-dired-clean-directory #[(keep) "\301\302\303\")\207" [fname "cpio-dired-clean-directory" error "%s() is not yet implemented"] 3 (#$ . 28141) "p"])
#@493 Copy names of marked (or next ARG) entries into the kill ring.
The names are separated by a space.
With a zero prefix arg, use the absolute entry name of each marked entry.
With C-u, use the entry name relative to the Dired buffer's
`default-directory'.  (This still may contain slashes if in a subdirectory.)

If on a subdir headerline, use absolute subdirname instead;
prefix arg and marked entries are ignored in this case.

You can then feed the entry name(s) to other commands with C-y.
(defalias 'cpio-dired-copy-entry-name-as-kill #[(arg) "\304\305\306!!\307=\204 \310\311\n\"\210	\203 \312\313	\"\202: \212\314V\2059 `dW\2059 \313\315 !\210S\316y\210\202 )*\207" [arg names fname major-mode "cpio-dired-copy-entry-name-as-kill" reverse cpio-dired-get-marked-entries cpio-dired-mode error "%s(): You're not in a cpio dired buffer." mapc kill-new 0 cpio-dired-get-entry-name 1] 4 (#$ . 28695) "p"])
#@156 Create a directory entry called DIRECTORY.
If DIRECTORY already exists, signal an error.
This respects umask(1) as available through (default-file-modes).
(defalias 'cpio-dired-create-directory #[(directory) "\306\307\211\211\211\211\211\211\"#$\203N %\310=\204$ \311\312#\"\210r$q\210\313&!\210)\212db\210'(\307'\314\315&!!\316Pc\210('*\317 \202\312 %\320=\204[ \311\321#\"\210&;\204h \322\323&C\"\210\324&GW\204v \311\325&\"\210\326&!\203\205 \311\327#&#\210&GT\330&!\331\332)\333 \"\"\210'(\307'\334 \210\335 \336!db\210\fc\210\337'(')\335 &\340\n\341$B*B\211*.\207" [namesize cat-entry contents-start header-start header-string attrs "cpio-dired-create-directory" nil cpio-dired-mode error "%s(): You're not in a cpio dired buffer." cpio-dired-create-directory cpio-dired-format-entry cpio-entry-attrs "\n" cpio-dired-set-modified cpio-mode "%s(): The parent buffer was not a cpio-mode buffer." signal wrong-type-error 0 "%s(): Cannot create an entry with a zero-length name." cpio-entry-exists-p "%s(): Entry %s already exists." cpio-create-faux-directory-attrs cpio-set-mode logior default-file-modes cpio-delete-trailer point-max-marker cpio-make-header-string t vector cpio-mode-entry-unmodified new-catalog-entry fname *cab-parent* major-mode directory buffer-read-only bro-before s-ifdir *cpio-catalog*] 8 (#$ . 29617) (list (read-string "Create directory: " #1="" nil #1#))])
#@615 Compare entry at point with entry ENTRY using `diff'.
If called interactively, prompt for ENTRY.  If the entry at point
has a backup entry, use that as the default.  If the entry at point
is a backup entry, use its original.  If the mark is active
in Transient Mark mode, use the entry at the mark as the default.
(That's the mark set by C-SPC, not by Dired's
M-x dired-mark command.)

ENTRY is the first entry given to `diff'.  The entry at point
is the second entry given to `diff'.

With prefix arg, prompt for second argument SWITCHES, which is
the string of command switches for the third argument of `diff'.
(defalias 'cpio-dired-diff #[(entry &optional switches) "\301\302\303\")\207" [fname "cpio-dired-diff" error "%s() is not yet implemented"] 3 (#$ . 31061) (let* ((current (dired-get-filename t)) (oldf (if (backup-file-name-p current) (file-name-sans-versions current) (diff-latest-backup-file current))) (file-at-mark (if (and transient-mark-mode mark-active) (save-excursion (goto-char (mark t)) (dired-get-filename t t)))) (default-file (or file-at-mark (and oldf (file-name-nondirectory oldf)))) (default (if (and (not (equal default-file current)) (or (equal (dired-dwim-target-directory) (dired-current-directory)) default-file)) default-file)) (target-dir (if default (dired-current-directory) (dired-dwim-target-directory))) (defaults (dired-dwim-target-defaults (list current) target-dir))) (list (let ((#1=#:fun #'(lambda nil (set (make-local-variable 'minibuffer-default-add-function) nil) (setq minibuffer-default defaults))) (#2=#:setup-hook (make-symbol "minibuffer-setup"))) (fset #2# #'(lambda nil (remove-hook #3='minibuffer-setup-hook #2#) (funcall #1#))) (unwind-protect (progn (add-hook #3# #2#) (read-file-name (format "Diff %s with%s: " current (if default (format " (default %s)" default) "")) target-dir default t)) (remove-hook #3# #2#))) (if current-prefix-arg (read-string "Options for diff: " (if (stringp diff-switches) diff-switches (mapconcat 'identity diff-switches " "))))))])
#@130 In a cpio UI buffer, display the entry on the current line in another window.
Return the buffer containing the entry's contents.
(defalias 'cpio-dired-display-entry #[nil "\303\304 rq\210\305)*\207" [target-buffer fname buffer-read-only "cpio-dired-display-entry" cpio-dired-find-entry t] 2 (#$ . 33093) nil])
#@670 Run a shell command COMMAND on the marked entries asynchronously.

Like `dired-do-shell-command', but adds `&' at the end of COMMAND
to execute it asynchronously.

When operating on multiple entries, asynchronous commands
are executed in the background on each entry in parallel.
In shell syntax this means separating the individual commands
with `&'.  However, when COMMAND ends in `;' or `;&' then commands
are executed in the background on each entry sequentially waiting
for each command to terminate before running the next command.
In shell syntax this means separating the individual commands with `;'.

The output appears in the buffer `*Async Shell Command*'.
(defalias 'cpio-dired-do-async-shell-command #[(command &optional arg entry-list) "\301\302\303\")\207" [fname "cpio-dired-do-async-shell-command" warn "%s() is not obvious."] 3 (#$ . 33415) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command "& on %s: " current-prefix-arg files) current-prefix-arg files))])
#@55 Byte compile marked (or next ARG) Emacs Lisp entries.
(defalias 'cpio-dired-do-byte-compile #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-byte-compile" error "%s() is not yet implemented"] 3 (#$ . 34443) "p"])
#@364 Change the group of the marked (or next ARG) entries.
Type M-n to pull the entry attributes of the entry at point
into the minibuffer.

The optional arguements ENTRY-NAME, GROUP and CPIO-DIRED-BUFFER,
are just for bookkeeping, since this function may be called interactively
in one buffer, but actually performs the function
in the buffer containing the archive.
(defalias 'cpio-dired-do-chgrp #[(arg &optional entry-names group cpio-dired-buffer) "\306\307\205 	\203 	\202 \310\311\307\n#\203 \202 p\312\307\211\211 !\"#\313=\204O #\314=\204O \315\316\"\317#!#\210\315\320\"\"\210$\203y \204] \321%!\322\323\"r$q\210\324%$\210)\325 \202\254 \204\202 \326\327\"\210	\204\213 \326\327	\"\210\204\224 \326\327\"\210\330!\211\204\245 \315\331\"	#\210\332\333\"\210\325 .	\207" [entry-names group *cpio-dired-do-chgrp-history* cpio-dired-buffer mark attrs "cpio-dired-do-chgrp" nil read-string "Group? " 0 cpio-dired-mode cpio-mode error "%s(): major mode is [[%s]]." symbol-name "%s(): You're in neither a cpio-dired buffer nor a buffer in cpio-mode ." cpio-dired-get-marked-entries cg-strip "\\s-+" cpio-dired-do-chgrp cpio-dired-set-modified signal void-variable cpio-gid-for-group "%s(): Group [[%s]] does not exist." mapc #[(en) "\306!\307!\310\n\"\210r\fq\210\212\311!\210\312 \313\314 \315 |\210\316\n\"c\210\211+\207" [en entry attrs local-group local-cpio-dired-buffer mark cpio-entry cpio-entry-attrs cpio-set-gid cpio-dired-goto-entry cpio-dired-get-mark nil line-beginning-position line-end-position cpio-dired-format-entry buffer-read-only bro-before] 3] entry i local-cpio-dired-buffer local-group local-entry-names header-string fname major-mode *cab-parent* arg] 9 (#$ . 34668) "p"])
#@174 Change the mode of the marked (or next ARG) entries.
Symbolic modes like `g+w' are allowed.
Type M-n to pull the entry attributes of the entry at point
into the minibuffer.
(defalias 'cpio-dired-do-chmod #[(&optional arg) "\306\307	!\310 \311!\305\f!\312$\305\f!\211%\312&\313!\211';\205F \314\315'\"\205F \316\317\320\321\322\323\324'\"\323\325'\"\323\326'\"$#(\327\330\312\331	\n(&)'\320\232\204c '%\232\203k \332\333\"\210\202\203 \334)\312\335*\314#)\266\203\203\203 \336)\337\"\n\312+\211,\205\267 ,@+\340\305\311+!!!$\341\311+!\342$\"\"\210\343+!\210,A\211,\204\215 \312.\207" [fname arg entries default-entry default-attrs cpio-mode-value "cpio-dired-do-chmod" cpio-dired-get-marked-entries cpio-dired-get-entry-name cpio-entry-attrs nil cpio-int-mode-to-mode-string string-match "^.\\(...\\)\\(...\\)\\(...\\)$" replace-regexp-in-string "-" "" format "u=%s,g=%s,o=%s" match-string-no-properties 1 2 3 dired-mark-read-string "Change mode of %s to: " chmod error "%s(): No entry mode specified." "^[0-7]+" t string-to-number 8 cpio-numeric-entry-type cpio-set-mode logior cpio-dired-replace-dired-line entry-type default-mode-value attrs mode-string default modes inhibit-changing-match-data entry --dolist-tail--] 11 (#$ . 36441) "p"])
#@136 Change the owner of the marked (or next ARG) entries.
Type M-n to pull the entry attributes of the entry at point
into the minibuffer.
(defalias 'cpio-dired-do-chown #[(arg &optional entry-names owner cpio-dired-buffer) "\306\307p\205 	\203 	\202 \310\311\307\n#\307\205 \312\307\211\211!\"#$%&'()\313=\204F )\314=\204F \315\316(\"\210*\203\224 \204T \317+!\204y \212\320 \210\"+W\203x `dW\203x \321 B\"T\211\"\202^ )\322\323%\"%r*q\210\324+%$\210)\325 \202\355 \204\235 \326\327\"\210	\204\246 \326\327	\"\210\204\257 \326\327\"\210\330	\307\331,\332#)\266\203\203\317 \333	\330\"@%\333	\330\"A@$\334%!\211%\204\340 \315\335(	#\210\336$!$\337\340\"\210\325 .\207" [entry-names owner *cpio-dired-do-chown-history* cpio-dired-buffer mark attrs "cpio-dired-do-chown" nil read-string "Owner? " 0 cpio-dired-mode cpio-mode error "%s(): You're in neither a cpio-dired buffer nor a buffer in cpio-mode ." cpio-dired-get-marked-entries cpio-dired-move-to-entry-name cpio-dired-get-entry-name cg-strip "\\s-+" cpio-dired-do-chown cpio-dired-set-modified signal void-variable ":" t string-match split-string cpio-uid-for-owner "%s(): Owner [[%s]] does not exist." cpio-gid-for-group mapc #[(en) "\306!\307!\310\n\"\210\f\203 \311\n\f\"\210\312	\313	!\314\315\n!\316#G\\\"\210\317	!b\210rq\210\212\320!\210\321 \322\323 \324 |\210\325\n\"c\210\211+\207" [en entry attrs local-owner local-group *cpio-padding-modulus* cpio-entry cpio-entry-attrs cpio-set-uid cpio-set-gid cpio-set-contents-start cpio-entry-header-start cpio-pad cpio-make-header-string 0 cpio-entry-contents-start cpio-dired-goto-entry cpio-dired-get-mark nil line-beginning-position line-end-position cpio-dired-format-entry local-cpio-dired-buffer mark buffer-read-only bro-before] 7] entry i local-cpio-dired-buffer local-group local-owner local-entry-names header-string fname major-mode *cab-parent* arg inhibit-changing-match-data] 12 (#$ . 37735) "p"])
#@54 Compress or uncompress marked (or next ARG) entries.
(defalias 'cpio-dired-do-compress #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-compress" error "%s() is not yet implemented"] 3 (#$ . 39738) "p"])
#@253 Copy all marked (or next ARG) entries, or copy the current entry.
When operating on just the current entry, prompt for the new name.

When operating on multiple or marked entries,
the prompt for a target implies
that that target should be a directory.
(defalias 'cpio-dired-do-copy #[(arg) "\306\307	\"\310\211\311\312\310#\313 \210\fG\314V\203N \315\316\317#\320!\203? \321!\322\323\n!\"U\204? \324\325#\210\326\327\f\"\210\326\330\f\"\210\331 \202x \320!\203t \321!\322\323\n!\"U\203l \326\332\f\"\202x \324\333#\202x \326\334\f\",\207" [cpio-dired-marker-char arg target-attrs target entries fname "cpio-dired-do-copy" cpio-dired-marked-entries nil read-string "Target? " cpio-delete-trailer 1 cg-strip-right "/" multiples cpio-entry-exists-p cpio-entry-attrs logand cpio-mode-value error "%s(): There's already a non-directory entry called %s." mapc #[(en) "\303\304	Q!\205 \305\306\n\304	Q#\207" [target en fname cpio-entry-exists-p "/" error "%s(): Target entry [[%s]] is already there."] 6] #[(en) "\302	\303Q\"\207" [en target cpio-dired-internal-do-copy "/"] 5] cpio-dired-set-modified #[(en) "\302	\303Q\"\207" [en target cpio-dired-internal-do-copy "/"] 5] "%s(): There's already an entry called %s." #[(en) "\302	\"\207" [en target cpio-dired-internal-do-copy] 3] *cpio-dired-copy-history* s-ifdir] 4 (#$ . 39954) "p"])
#@118 Copy selected entries whose names match REGEXP to NEWNAME.
See function `cpio-dired-do-rename-regexp' for more info.
(defalias 'cpio-dired-do-copy-regexp #[(regexp newname &optional arg whole-name) "\301\302\303\")\207" [fname "cpio-dired-do-copy-regexp" error "%s() is not yet implemented"] 3 (#$ . 41329) (cpio-dired-mark-read-regexp "Copy")])
#@62 Delete all marked (or next ARG) entries.
Marks win over ARG.
(defalias 'cpio-dired-do-delete #[(arg) "\306\307	\"\310\311=\204 \312\313\f\"\210\314\315\"\210\316 \210\317 +\207" [cpio-dired-marker-char arg i entries fname major-mode "cpio-dired-do-delete" cpio-dired-marked-entries 0 cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." mapc #[(en) "\212\303!\210	\304\305 \306 T|\210\n)\307!)\207" [en buffer-read-only bro-before cpio-dired-goto-entry nil line-beginning-position line-end-position cpio-internal-do-deletion] 2] cpio-dired-set-modified cpio-dired-move-to-entry-name] 4 (#$ . 41683) "p"])
#@228 In Dired, delete the entries flagged for deletion.
If NOMESSAGE is non-nil, we don't display any message
if there are no flagged entries.
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed.
(defalias 'cpio-dired-do-flagged-delete #[(&optional nomessage) "\305\306\307\"\310=\204 \311\312\n\"\210	\204 \f\204 \313\314\n\"\210\315\316	\"\210\317 *\207" [cpio-dired-del-marker entries fname major-mode nomessage "cpio-dired-do-flagged-delete" cpio-dired-marked-entries 1 cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." message "%s(): No entries marked for deletion." mapc #[(en) "\212\303!\203 	\304\305 \306 T|\210\n))\307!\207" [en buffer-read-only bro-before cpio-dired-goto-entry nil line-beginning-position line-end-position cpio-internal-do-deletion] 2] cpio-dired-set-modified] 4 (#$ . 42319) nil])
#@416 Add names (hard links) current entry or all marked (or next ARG) entries.
When operating on just the current entry, you specify the new name.
When operating on multiple or marked entries, you specify a directory
and new hard links are made in that directory
with the same names that the entries currently have.  The default
suggested for the target directory depends on the value of
`dired-dwim-target', which see.
(defalias 'cpio-dired-do-hardlink #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-hardlink" error "%s() is not yet implemented"] 3 (#$ . 43196) "p"])
#@117 Hardlink selected entries whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(defalias 'cpio-dired-do-hardlink-regexp #[(regexp newname &optional arg whole-name) "\301\302\303\")\207" [fname "cpio-dired-do-hardlink-regexp" error "%s() is not yet implemented"] 3 (#$ . 43774) (cpio-dired-mark-read-regexp "HardLink")])
#@63 Search for a string through all marked entries using Isearch.
(defalias 'cpio-dired-do-isearch #[nil "\301\302\303\")\207" [fname "cpio-dired-do-isearch" error "%s() is not yet implemented"] 3 (#$ . 44139) nil])
#@63 Search for a regexp through all marked entries using Isearch.
(defalias 'cpio-dired-do-isearch-regexp #[nil "\301\302\303\")\207" [fname "cpio-dired-do-isearch-regexp" error "%s() is not yet implemented"] 3 (#$ . 44359) nil])
#@564 Kill all marked lines (not the entries).
With a prefix argument, kill that many lines starting with the current line.
(A negative argument kills backward.)
If you use this command with a prefix argument to kill the line
for a entry that is a directory, which you have inserted in the
Dired buffer as a subdirectory, then it deletes that subdirectory
from the buffer as well.
To kill an entire subdirectory (without killing its line in the
parent directory), go to its directory header line and use this
command with a prefix argument (the value does not matter).
(defalias 'cpio-dired-do-kill-lines #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-kill-lines" error "%s() is not yet implemented"] 3 (#$ . 44594) "p"])
#@51 Load the marked (or next ARG) Emacs Lisp entries.
(defalias 'cpio-dired-do-load #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-load" error "%s() is not yet implemented"] 3 (#$ . 45323) "p"])
#@131 Print the marked (or next ARG) entries.
Uses the shell command coming from variables `lpr-command' and
`lpr-switches' as default.
(defalias 'cpio-dired-do-print #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-print" error "%s() is not yet implemented"] 3 (#$ . 45528) "p"])
#@227 Do `query-replace-regexp' of FROM with TO, on all marked entries.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (C-g, RET or q), you can resume the query replace
with the command M-,.
(defalias 'cpio-dired-do-query-replace-regexp #[(from to &optional delimited) "\301\302\303\")\207" [fname "cpio-dired-do-query-replace-regexp" error "%s() is not yet implemented"] 3 (#$ . 45815) (let ((common (query-replace-read-args "Query replace regexp in marked files" t t))) (list (nth 0 common) (nth 1 common) (nth 2 common)))])
#@620 Redisplay all marked (or next ARG) entries.
If on a subdir line, redisplay that subdirectory.  In that case,
a prefix arg lets you edit the `ls' switches used for the new listing.

Dired remembers switches specified with a prefix arg, so that reverting
the buffer will not reset them.  However, using `dired-undo' to re-insert
or delete subdirectories can bypass this machinery.  Hence, you sometimes
may have to reset some subdirectory switches after a `dired-undo'.
You can reset all subdirectory switches to the default using
M-x dired-reset-subdir-switches.
See Info node `(emacs)Subdir switches' for more details.
(defalias 'cpio-dired-do-redisplay #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-redisplay" error "%s() is not yet implemented"] 3 (#$ . 46386) "p"])
#@362 Rename current entry or all marked (or next ARG) entries.
When renaming just the current entry, you specify the new name.
When renaming multiple or marked entries, you specify a directory.
This command also renames any buffers that are visiting the entries.
The default suggested for the target directory depends on the value
of `dired-dwim-target', which see.
(defalias 'cpio-dired-do-rename #[(arg) "\306\307	\"\310\211\311\312\310#\fG\313V\203H \314\315\316#\317!\203< \320!\321\322\n!\"U\204< \323\324#\210\325\326\f\"\210\325\327\f\"\202u \317!\203q \320!\321\322\n!\"U\203i \325\330\f\"\210\331 \202u \323\332#\202u \325\333\f\",\207" [cpio-dired-marker-char arg target-attrs target entries fname "cpio-dired-do-rename" cpio-dired-marked-entries nil read-string "Target? " 1 cg-strip-right "/" multiples cpio-entry-exists-p cpio-entry-attrs logand cpio-mode-value error "%s(): There's already a non-directory entry called %s." mapc #[(en) "\303\304	Q!\205 \305\306\n\304	Q#\207" [target en fname cpio-entry-exists-p "/" error "%s(): Target entry [[%s]] is already there."] 6] #[(en) "\302	\303Q\"\207" [en target cpio-dired-internal-do-rename "/"] 5] #[(en) "\302	\303Q\"\207" [en target cpio-dired-internal-do-rename "/"] 5] cpio-dired-set-modified "%s(): There's already an entry called %s." #[(en) "\302	\"\207" [en target cpio-dired-internal-do-rename] 3] *cpio-dired-do-rename-history* s-ifdir] 4 (#$ . 47170) "p"])
#@615 Rename selected entries whose names match REGEXP to NEWNAME.

With non-zero prefix argument ARG, the command operates on the next ARG
entries.  Otherwise, it operates on all the marked entries, or the current
entry if none are marked.

As each match is found, the user must type a character saying
  what to do with it.  For directions, type C-h at that time.
NEWNAME may contain <n> or & as in `query-replace-regexp'.
REGEXP defaults to the last regexp used.

With a zero prefix arg, renaming by regexp affects the absolute entry name.
Normally, only the non-directory part of the entry name is used and changed.
(defalias 'cpio-dired-do-rename-regexp #[(regexp newname &optional arg whole-name) "\301\302\303\"\210\304 )\207" [fname "cpio-dired-do-rename-regexp" error "%s() is not yet implemented" cpio-dired-set-modified] 3 (#$ . 48640) (cpio-dired-mark-read-regexp "Rename")])
#@186 Search through all marked entries for matches for REGEXP.
Present the results in *CPIO search results for REGEXP*.
NOTE: This behavior differs from the corresponding function in dired.
(defalias 'cpio-dired-do-search #[(regexp) "\306\307 \310\211\211\211\211p\310\211\311\312Q\310rq\210\310\211\212\313\314\"))\203[ r\315\n!\211q\210\316 \210\313\317\237\"\210)\320	!\202\\ \310.\f\207" [regexp results-buffer results-buffer-name results entry-buffer cpio-dired-buffer "cpio-dired-do-search" cpio-dired-get-marked-entries nil "CPIO search results for " "*" mapc #[(en) "\306!\307!\211\310	!\\\nb\210\311\f\312#\205G `\nZrq\210r\313!\211q\210\311\fd\312#\210\314\315\316e\317\224\"$B*\202 \207" [en entry-attrs entry-start entry-end regexp *cpio-search-entry* cpio-entry-attrs cpio-contents-start cpio-entry-size re-search-forward t cpio-dired-find-entry-noselect format "%s:%d: %s\n" count-lines 0 *cpio-search-point* cpio-dired-buffer entry-buffer results] 7] get-buffer-create erase-buffer insert pop-to-buffer entry-end entry-start entry-attrs entry-info entry-name entry-names fname *cab-parent* *cpio-search-re* *cpio-search-entries* *cpio-search-entry* *cpio-search-point*] 14 (#$ . 49531) "sSearch marked entries (regexp): "])
#@2211 Run a shell command COMMAND on the marked entries.
If no entries are marked or a numeric prefix arg is given,
the next ARG entries are used.  Just C-u means the current entry.
The prompt mentions the entry(s) or the marker, as appropriate.

If there is a `*' in COMMAND, surrounded by whitespace, this runs
COMMAND just once with the entire entry list substituted there.

If there is no `*', but there is a `?' in COMMAND, surrounded by
whitespace, this runs COMMAND on each entry individually with the
entry name substituted for `?'.

Otherwise, this runs COMMAND on each entry individually with the
entry name added at the end of COMMAND (separated by a space).

`*' and `?' when not surrounded by whitespace have no special
significance for `dired-do-shell-command', and are passed through
normally to the shell, but you must confirm first.

If you want to use `*' as a shell wildcard with whitespace around
it, write `*""' in place of just `*'.  This is equivalent to just
`*' in the shell, but avoids Dired's special handling.

If COMMAND ends in `&', `;', or `;&', it is executed in the
background asynchronously, and the output appears in the buffer
`*Async Shell Command*'.  When operating on multiple entries and COMMAND
ends in `&', the shell command is executed on each entry in parallel.
However, when COMMAND ends in `;' or `;&' then commands are executed
in the background on each entry sequentially waiting for each command
to terminate before running the next command.  You can also use
`dired-do-async-shell-command' that automatically adds `&'.

Otherwise, COMMAND is executed synchronously, and the output
appears in the buffer `*Shell Command Output*'.

This feature does not try to redisplay Dired buffers afterward, as
there's no telling what entries COMMAND may have changed.
Type M-x dired-do-redisplay to redisplay the marked entries.

When COMMAND runs, its working directory is the top-level directory
of the Dired buffer, so output entries usually are created there
instead of in a subdir.

In a noninteractive call (from Lisp code), you must specify
the list of entry names explicitly with the ENTRY-LIST argument, which
can be produced by `dired-get-marked-entries', for example.
(defalias 'cpio-dired-do-shell-command #[(command &optional arg entry-list) "\301\302\303\")\207" [fname "cpio-dired-do-shell-command" error "%s() is not yet implemented"] 3 (#$ . 50835) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command "! on %s: " current-prefix-arg files) current-prefix-arg files))])
#@473 Make symbolic links to current entry or all marked (or next ARG) entries.
When operating on just the current entry, you specify the new name.
When operating on multiple or marked entries, you specify a directory
and new symbolic links are made in that directory
with the same names that the entries currently have.  The default
suggested for the target directory depends on the value of
`dired-dwim-target', which see.

For relative symlinks, use M-x dired-do-relsymlink.
(defalias 'cpio-dired-do-symlink #[(arg) "\301\302\303\")\207" [fname "cpio-dired-do-symlink" error "%s() is not yet implemented"] 3 (#$ . 53401) "p"])
#@116 Symlink selected entries whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(defalias 'cpio-dired-do-symlink-regexp #[(regexp newname &optional arg whole-name) "\301\302\303\")\207" [fname "cpio-dired-do-symlink-regexp" error "%s() is not yet implemented"] 3 (#$ . 54034) (cpio-dired-mark-read-regexp "SymLink")])
#@59 Change the timestamp of the marked (or next ARG) entries.
(defalias 'cpio-dired-do-touch #[(arg) "\306\307!\310\211\311 \310\211\211\211G\312U\203* \313\314\"\210\202Z \315V\2048 G\315V\203C \316\317G\"\202Z \315U\203T \316\320@\"\202Z \313\321\"\210\322!\211\203\302 \323\230\203q \311 \202v \324!\n\203\250 \310\211 \203\240  @\325\326!\n\"\210\327!\210 A\211 \204\205 *\310\211\202a \330\316\331\n\"!\203\273 \322!\211\202a \310\211\204d \332 .	\207" [arg entry-name time human-time time-re timestamp "cpio-dired-do-touch" cpio-dired-get-marked-entries nil current-time 0 error "%s(): No cpio archive entries found." 1 format "Change timestamp of %d files to when? [now]? " "Change timestamp of %s to when? [now]? " "%s(): Impossible situation." read-from-minibuffer "" encode-human-time cpio-set-mtime cpio-entry-attrs cpio-dired-replace-dired-line y-or-n-p "[[%s]] looks ambiguous. Try again?" cpio-dired-set-modified human-timestamp prompt entries fname entry --dolist-tail--] 10 (#$ . 54395) "p"])
#@56 Rename all marked (or next ARG) entries to lower case.
(defalias 'cpio-dired-downcase #[(arg) "\301\302\303\")\207" [fname "cpio-dired-downcase" error "%s() is not yet implemented"] 3 (#$ . 55470) "p"])
#@54 Extract all the entries in the current CPIO arhcive.
(defalias 'cpio-dired-extract-all #[nil "\303	\304=\204 	\305=\204 \306\307\"\210\n\203! r\nq\210\310 )\202# \311 )\207" [fname major-mode *cab-parent* "cpio-dired-extract-all" cpio-dired-mode cpio-mode error "%s() only makes sense in a cpio-dired buffer." cpio-dired-extract-all cpio-extract-all] 3 (#$ . 55681) nil])
#@62 Extract the marked entries in the current CPIO dired buffer.
(defalias 'cpio-dired-extract-entries #[(arg) "\304\305 \206	 \306 C\n\307=\204 \n\310=\204 \311\312	\"\210\203, rq\210\313\314\")\2020 \313\314\"*\207" [files fname major-mode *cab-parent* "cpio-dired-extract-entries" cpio-dired-get-marked-entries cpio-dired-get-entry-name cpio-dired-mode cpio-mode error "%s() only makes sense in a cpio-dired buffer." mapc cpio-extract-entry] 3 (#$ . 56063) "p"])
#@70 In Dired, visit this entry or directory instead of the Dired buffer.
(defalias 'cpio-dired-find-alternate-entry #[nil "\301\302\303\")\207" [fname "cpio-dired-find-alternate-entry" error "%s() is not yet implemented"] 3 (#$ . 56539) nil])
#@119 In a cpio UI buffer, visit the contents of the entry named on this line.
Return the buffer containing those contents.
(defalias 'cpio-dired-find-entry #[nil "\304\305\306 \307	\204 \310\311\"\202# r\312	!\211q\210\313 \210)\314!,\207" [entry-buf local-entry-name find-file-run-dired fname "cpio-dired-find-entry" t cpio-dired-get-entry-name nil message "%s(): Could not get entry name." cpio-find-entry cpio-entry-contents-mode pop-to-buffer] 4 (#$ . 56787) nil])
#@60 In Dired, visit this entry or directory in another window.
(defalias 'cpio-dired-find-entry-other-window #[nil "\301\302\303\")\207" [fname "cpio-dired-find-entry-other-window" error "%s() is not yet implemented"] 3 (#$ . 57265) nil])
#@138 Flag for deletion entries whos names suggest they are auto save entries.
A prefix argument says to unmark or unflag those files instead.
(defalias 'cpio-dired-flag-auto-save-entries #[(&optional unflag-p) "\305	\306=\204 \307\310\"\210\212\311 \210`dW\205A \312\313 \314\315\316#)\266\203\203: \2033 \317\320!\210\202 \321\f!\210\202 \322\320!\210\202 *\207" [fname major-mode inhibit-changing-match-data unflag-p cpio-dired-del-marker "cpio-dired-flag-auto-save-entries" cpio-dired-mode error "%s(): You're not in a cpio-dired style buffer." cpio-dired-move-to-first-entry "\\`#" cpio-dired-get-entry-name nil t string-match cpio-dired-unmark 1 cpio-dired-mark-this-entry cpio-dired-next-line] 7 (#$ . 57509) nil])
#@117 Flag all backup entries (names ending with `~') for deletion.
With prefix argument, unmark or unflag these entries.
(defalias 'cpio-dired-flag-backup-entries #[(unflag-p) "\306\203	 \307\202\n 	\310\311\312 \313 \314 \"#$\212\315#\316\317\n\307=\203, \320\2027 	\n=\2036 \321\2027 \322\323	\n=\203B \324\202C \325\"\203L \326\202M \325%\210b\210`\fW\203\231 \212\311\210h)\327=\203\223 %\310&\330!)\262\204\223 \331 \211'\205} \332'!)\203\223 g\nU\204\223 \333\334!\210\nc\210#T#\334y\210\202R \316\335#\323\336#!\n\307=\203\254 \337\202\255 \325\n	=\203\267 \340\202\270 \341\"\203\301 \326\202\302 \325&\210)#\315V\205\317 #.\207" [unflag-p dired-del-marker dired-marker-char fname end beg "cpio-dired-flag-backup-entries" 32 t nil dired-mark--region-use-p dired-mark--region-beginning dired-mark--region-end 0 message "%s %ss%s%s..." "Unmarking" "Flagging" "Marking" "backup file" " for deletion" "" " in region" 126 looking-at cpio-dired-get-entry-name backup-file-name-p delete-char 1 "%s %s%s %s%s%s" dired-plural-s "un" "flagged" "marked" use-region-p count inhibit-read-only dired-re-dir inhibit-changing-match-data entry-name] 9 (#$ . 58243) "P"])
#@240 In Dired, flag all entries containing the specified REGEXP for deletion.
The match is against the non-directory part of the entry name.  Use `^'
  and `$' to anchor matches.  Exclude subdirs by hiding them.
`.' and `..' are never flagged.
(defalias 'cpio-dired-flag-entries-regexp #[(regexp) "\301\302\303\")\207" [fname "cpio-dired-flag-entries-regexp" error "%s() is not yet implemented"] 3 (#$ . 59434) (cpio-dired-mark-read-regexp "SymLink")])
#@355 In a cpio-dired style buffer,
flag the current line's entry for deletion.
If the region is active, flag all entries in the region.
Otherwise, with a prefix arg, flag entries on the next ARG lines.

If on a subdir headerline, flag all its entries except `.' and `..'.
If the region is active in Transient Mark mode, flag all entries
in the active region.
(defalias 'cpio-dired-flag-entry-deletion #[(arg) "\304\305!*\207" [cpio-dired-del-marker cpio-dired-marker-char fname arg "cpio-dired-flag-entry-deletion" cpio-dired-mark] 2 (#$ . 59891) "p"])
#@65 Regular expression to match in cpio-dired-flag-garbage-entries.
(defvar cpio-dired-garbage-entries-regexp dired-garbage-files-regexp (#$ . 60449))
(byte-code "\302\207" [dired-garbage-files-regexp cpio-dired-garbage-entries-regexp nil] 1)
#@79 Flag for deletion all entries that match `cpio-dired-garbage-entries-regexp'.
(defalias 'cpio-dired-flag-garbage-entries #[nil "\305\306\212\307 \210\310 \311\216`dW\2054 \312 \306\313\314#)\266\203\203- \315\316!\210\202 \317\316!\210\202 -\207" [entry-name fname save-match-data-internal cpio-dired-garbage-entries-regexp inhibit-changing-match-data "cpio-dired-flag-garbage-entries" nil cpio-dired-move-to-first-entry match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] cpio-dired-get-entry-name t string-match cpio-dired-flag-entry-deletion 1 dired-next-line] 7 (#$ . 60696) nil])
#@57 Go to line describing entry ENTRY in this Dired buffer.
(defalias 'cpio-dired-goto-entry #[(entry) "\304\305\n\306=\204 \307\310	\"\210\311!\204 \307\312	#\210eb\210\313\314\315Q!\210\316 *\207" [this-entry fname major-mode entry "cpio-dired-goto-entry" nil cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-entry-exists-p "%s(): There's no entry [[%s]]." re-search-forward " " "$" cpio-dired-move-to-entry-name] 4 (#$ . 61337) "sGoto entry: "])
#@193 Hide all subdirectories, leaving only their header lines.
If there is already something hidden, make everything visible again.
Use M-x dired-hide-subdir to (un)hide a particular subdirectory.
(defalias 'cpio-dired-hide-all #[nil "\301\302\303\")\207" [fname "cpio-dired-hide-all" error "%s() is not yet implemented"] 3 (#$ . 61817) nil])
#@161 Hide or unhide the current subdirectory and move to next directory.
Optional prefix arg is a repeat factor.
Use M-x dired-hide-all to (un)hide all directories.
(defalias 'cpio-dired-hide-subdir #[(arg) "\301\302\303\")\207" [fname "cpio-dired-hide-subdir" warn "%s() is not obvious."] 3 (#$ . 62164) "p"])
#@76 Search for a string using Isearch only in entry names in the Dired buffer.
(defalias 'cpio-dired-isearch-entry-names #[nil "\301\302\303\")\207" [fname "cpio-dired-isearch-entry-names" error "%s() is not yet implemented"] 3 (#$ . 62478) nil])
#@81 Search for a regexp using Isearch only in entry names in the cpio-dired buffer.
(defalias 'cpio-dired-isearch-entry-names-regexp #[nil "\301\302\303\")\207" [fname "cpio-dired-isearch-entry-names-regexp" error "%s() is not yet implemented"] 3 (#$ . 62729) nil])
#@123 Kill the current cpio dired-style buffer
along with it's corresponding archive buffer
and any affiliated buffers thereof.
(defalias 'cpio-dired-kill #[nil "\303	\304=\204 \305\306\"\210\n\203L \307\n!\2038 \310\311!\203+ \312 \203+ \313\314!\203+ \315 \210r\nq\210\316 \210)\316 \202N \317\320\321\322\n!!#\210\323\324\325\"\210\316 \202N \316 )\207" [fname major-mode *cab-parent* "cpio-dired-kill" cpio-dired-mode error "%s(): You're trying to kill a cpio buffer, but you're not in cpio-mode." buffer-live-p called-interactively-p interactive cpio-dired-modified-p y-or-n-p "You've made changes to the archive. Save first? " cpio-dired-save-archive kill-buffer warn "%s(): Archive buffer [[%s]] is not there." file-name-nondirectory buffer-file-name remove-hook kill-buffer-hook cab-kill-buffer-hook] 6 (#$ . 63000) nil])
#@124 If the region is active, mark all entries in the region.
Otherwise, with a prefix arg, mark entries on the next ARG lines.
(defalias 'cpio-dired-mark #[(arg &optional interactive) "\306\205 \307 \205 `\310 ^\205 \307 \205 `\310 ]\311\203@ \307 \203@ \212\312 \313 \314b\210\315 \nb\210\315 \"+\202P \205P \316\317\320!\321\"),\207" [interactive entry-name end start fname beg "cpio-dired-mark" use-region-p mark nil region-beginning region-end dired-mark-files-in-region line-beginning-position t dired-repeat-over-lines prefix-numeric-value #[nil "\301\302!\210c\207" [cpio-dired-marker-char delete-char 1] 2] arg inhibit-read-only] 4 (#$ . 63835) "p"])
#@111 Mark all directory entry lines except `.' and `..'.
With prefix argument, unmark or unflag all those entries.
(defalias 'cpio-dired-mark-directories #[nil "\301\302\303\")\207" [fname "cpio-dired-mark-directories" error "%s() is not yet implemented"] 3 (#$ . 64518) nil])
#@156 Mark all entries with contents containing REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.
(defalias 'cpio-dired-mark-entries-containing-regexp #[(regexp) "\301\302\303\")\207" [fname "cpio-dired-mark-entries-containing-regexp" error "%s() is not yet implemented"] 3 (#$ . 64799) (list (read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files containing (regexp): ") nil 'dired-regexp-history) (if current-prefix-arg 32))])
#@274 Mark all entries matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.

REGEXP is an Emacs regexp, not a shell wildcard.  Thus, use `.o$' for
object entries--just `.o' will mark more than you might think.
(defalias 'cpio-dired-mark-entries-regexp #[(regexp &optional marker-char) "\204 	\306\206\f 	\307\f\310=\204 \311\312\"\210\212\313 \210`dW\205H \314 \n\307\315\316#)\266\203\203A \317\320\"\210\202 \321\320!\210\202 ,\207" [marker-char cpio-dired-marker-char entry-name fname major-mode regexp "cpio-dired-mark-entries-regexp" nil cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-dired-move-to-first-entry cpio-dired-get-entry-name t string-match cpio-dired-mark 1 cpio-dired-next-line inhibit-changing-match-data] 7 (#$ . 65308) (list (read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ") nil 'dired-regexp-history))])
#@88 Mark all executable entries.
With prefix argument, unmark or unflag all those entries.
(defalias 'cpio-dired-mark-executables #[(arg) "\305\306\212\307 \210`dW\205= \310\311\312 !!\313\n\"\314U\2030 \313\"\314U\2030 \313\f\"\314U\2046 \315 \210\202 \316\317!\210\202 +\207" [this-mode fname s-ixusr s-ixgrp s-ixoth "cpio-dired-mark-executables" nil cpio-dired-move-to-first-entry cpio-mode-value cpio-entry-attrs cpio-dired-get-entry-name logand 0 cpio-dired-mark-this-entry cpio-dired-next-line 1] 3 (#$ . 66277) "P"])
#@187 Mark all entries except `.' and `..' in current subdirectory.
If the Dired buffer shows multiple directories, this command
marks the entries listed in the subdirectory that point is in.
(defalias 'cpio-dired-mark-subdir-entries #[nil "\303\304\212\305 \210`dW\205+ \306\307\310 !!\311\n\"\312U\204$ \313 \210\202 \314\315!\210\202 +\207" [this-mode fname s-ifdir "cpio-dired-mark-subdir-entries" nil cpio-dired-move-to-first-entry cpio-mode-value cpio-entry-attrs cpio-dired-get-entry-name logand 0 cpio-dired-mark-this-entry cpio-dired-next-line 1] 3 (#$ . 66813) nil])
#@84 Mark all symbolic links.
With prefix argument, unmark or unflag all those entries.
(defalias 'cpio-dired-mark-symlinks #[(unflag-p) "\303\304\212\305 \210`dW\205+ \306\307\310 !!\n\311\n\"U\203$ \312 \210\202 \313\314!\210\202 +\207" [this-mode fname s-iflnk "cpio-dired-mark-symlinks" nil cpio-dired-move-to-first-entry cpio-mode-value cpio-entry-attrs cpio-dired-get-entry-name logand cpio-dired-mark-this-entry cpio-dired-next-line 1] 4 (#$ . 67396) "P"])
#@168 Mark the entry on the current line with the given CHAR.
If CHAR is not given, then use cpio-dired-marker-char.
CONTRACT: You must be allowed to operate on that entry.
(defalias 'cpio-dired-mark-this-entry #[(&optional char) "\204 	\305\306 \210\307\310\311!\210\312!c\210\f)\313\311!)\207" [char cpio-dired-marker-char fname buffer-read-only bro-before "cpio-dired-mark-this-entry" beginning-of-line nil delete-char 1 char-to-string cpio-dired-next-line] 2 (#$ . 67868)])
#@54 Return a regular expression to match a marked entry.
(defalias 'cpio-dired-marker-regexp #[nil "\301\302\303!!P\207" [cpio-dired-marker-char "^" regexp-quote char-to-string] 4 (#$ . 68355)])
#@949 Insert this subdirectory into the same dired buffer.
If it is already present, just move to it (type M-x dired-do-redisplay to refresh),
  else inserts it at its natural place (as `ls -lR' would have done).
With a prefix arg, you may edit the ls switches used for this listing.
  You can add `R' to the switches to expand the whole tree starting at
  this subdirectory.
This function takes some pains to conform to `ls -lR' output.

Dired remembers switches specified with a prefix arg, so that reverting
the buffer will not reset them.  However, using `dired-undo' to re-insert
or delete subdirectories can bypass this machinery.  Hence, you sometimes
may have to reset some subdirectory switches after a `dired-undo'.
HEREHERE Archives don't hold subdirectories the same way a file system does.
You can reset all subdirectory switches to the default using
M-x dired-reset-subdir-switches.
See Info node `(emacs)Subdir switches' for more details.
(defalias 'cpio-dired-maybe-insert-subdir #[nil "\301\302\303\")\207" [fname "cpio-dired-maybe-insert-subdir" error "%s() is not yet implemented"] 3 (#$ . 68554) nil])
#@70 In a cpio UI window, visit the entry or directory name you click on.
(defalias 'cpio-dired-mouse-find-entry-other-window #[nil "\301\302\303\")\207" [fname "cpio-dired-mouse-find-entry-other-window" error "%s() is not yet implemented"] 3 (#$ . 69678) nil])
#@83 Move the point to the beginning of the entry on the current line
if there is one.
(defalias 'cpio-dired-move-to-entry-name #[nil "\304\305 \210\306 \307\216\310\n!\205 \224b+\207" [fname save-match-data-internal *cpio-dired-entry-regexp* *cpio-dired-name-idx* "cpio-dired-move-to-entry-name" beginning-of-line match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at] 2 (#$ . 69943)])
#@39 Goto ARGth next directory entry line.
(defalias 'cpio-dired-next-dirline #[(arg &optional opoint) "\204 `\304\305\nW\203 \306d\307#\203 \nS\202 \310 )\207" [opoint fname arg *cpio-dirline-re* "cpio-dired-next-dirline" 0 re-search-forward t cpio-dired-move-to-entry-name] 4 (#$ . 70382) "p"])
#@147 In a cpio UI buffer, move down ARG lines then position at the entry's name.
Optional prefix ARG says how many lines to move; default is one line.
(defalias 'cpio-dired-next-line #[(arg) "\302	y\210\303 )\207" [fname arg "cpio-dired-next-line" cpio-dired-move-to-entry-name] 1 (#$ . 70690) "p"])
#@134 Move to the previous marked entry.
If WRAP is non-nil, wrap around to the end of the buffer if we
reach the beginning of the buffer.
(defalias 'cpio-dired-next-marked-entry #[(wrap) "\301\302\303\")\207" [fname "cpio-dired-next-marked-entry" error "%s() is not yet implemented"] 3 (#$ . 70993)])
#@47 Go to next subdirectory, regardless of level.
(defalias 'cpio-dired-next-subdir #[nil "\301\302\303\")\207" [fname "cpio-dired-next-subdir" error "%s() is not yet implemented"] 3 (#$ . 71297) nil])
#@43 Goto ARGth previous directory entry line.
(defalias 'cpio-dired-prev-dirline #[(arg) "\303\304	W\203 \305 \210\306\ne\307#\203 	S\202 \310 )\207" [fname arg *cpio-dirline-re* "cpio-dired-prev-dirline" 0 beginning-of-line re-search-backward t cpio-dired-move-to-entry-name] 4 (#$ . 71503) "p"])
#@134 Move to the previous marked entry.
If WRAP is non-nil, wrap around to the end of the buffer if we
reach the beginning of the buffer.
(defalias 'cpio-dired-prev-marked-entry #[(arg wrap) "\301\302\303\")\207" [fname "cpio-dired-prev-marked-entry" error "%s() is not yet implemented"] 3 (#$ . 71809) "p\np"])
#@129 Go to previous subdirectory, regardless of level.
When called interactively and not on a subdir line, go to this subdir's line.
(defalias 'cpio-dired-prev-subdir #[nil "\301\302\303\")\207" [fname "cpio-dired-prev-subdir" error "%s() is not yet implemented"] 3 (#$ . 72125) nil])
#@114 Move up lines then position at entry name.
Optional prefix ARG says how many lines to move; default is one line.
(defalias 'cpio-dired-previous-line #[(arg) "\302	[y\210\303 )\207" [fname arg "cpio-dired-previous-line" cpio-dired-move-to-entry-name] 1 (#$ . 72414) "p"])
#@481 Quit WINDOW and bury its buffer.
WINDOW must be a live window and defaults to the selected one.
With prefix argument KILL non-nil, kill the buffer instead of
burying it.

According to information stored in WINDOW's `quit-restore' window
parameter either (1) delete WINDOW and its frame, (2) delete
WINDOW, (3) restore the buffer previously displayed in WINDOW,
or (4) make WINDOW display some other buffer than the present
one.  If non-nil, reset `quit-restore' parameter to nil.
(defalias 'cpio-dired-quit-window #[(&optional kill window) "\303\304 \n\203 \305!\202 \306\307 !\210\310!*\207" [buffer fname kill "cpio-dired-quit-window" window-buffer kill-buffer delete-window selected-window bury-buffer] 2 (#$ . 72693) "P"])
#@58 Save the archive associated with this cpio-dired buffer.
(defalias 'cpio-dired-save-archive #[nil "\306	\307=\204 	\310=\204 \311\312\"\210\n\203* r\nq\210\313 \210)\314\315\316 \"\210\317 \202E \320 \210\321\314\322\323!\"\210\314\324\"\210\325 \210\f)\326 )\207" [fname major-mode *cab-parent* buffer-read-only bro-before *cpio-catalog* "cpio-dired-save-archive" cpio-dired-mode cpio-mode error "%s(): You can only save an archive from a cpio-dired buffer." cpio-dired-save-archive mapc #[(cen) "\301@!\207" [cen cpio-dired-replace-dired-line] 2] cpio-catalog cpio-dired-set-unmodified cpio-delete-trailer nil #[(cen) "A\211\nH\306	\307H!\306	\310H!\311!\fb\210\f|\210	\307H`\312\223\210c\210	\307HG\\b\210	\310H`\312\223\210\313!u\210\314\315\316!)\262\205S \317\307!\210\202? -\207" [cen entry-info *cpio-catalog-entry-attrs-idx* attrs header-start header-end marker-position 1 2 cpio-make-header-string nil cpio-entry-size " " t looking-at delete-char header-string inhibit-changing-match-data] 4] reverse #[(cen) "A\211\nH\306	\fH!\306	H!	\307!\310\211\311!\\b\210\312`S\"\211\313U\203? \313\202F Z\314\313\"c.\207" [cen entry *cpio-catalog-entry-attrs-idx* attrs *cpio-catalog-entry-header-start-idx* header-start marker-position cpio-make-header-string nil cpio-entry-size mod 0 make-string *cpio-catalog-entry-contents-start-idx* entry-start cpio-set-entry-unmodified header-string local-where padding-length *cpio-padding-modulus*] 4] cpio-adjust-trailer basic-save-buffer] 4 (#$ . 73432) nil])
#@194 Print the type of ENTRY, according to the `entry' command.
If you give a prefix to this command, and ENTRY is a symbolic
link, then the type of the entry linked to by ENTRY is printed
instead.
(defalias 'cpio-dired-show-entry-type #[(entry &optional deref-symlinks) "\301\302\303\")\207" [fname "cpio-dired-show-entry-type" error "%s() is not yet implemented"] 3 (#$ . 75008) (list (dired-get-filename t) current-prefix-arg)])
#@122 Toggle sorting by date, and refresh the Dired buffer.
With a prefix argument, edit the current listing switches instead.
(defalias 'cpio-dired-sort-toggle-or-edit #[nil "\301\302\303\")\207" [fname "cpio-dired-sort-toggle-or-edit" error "%s() is not yet implemented"] 3 (#$ . 75444) nil])
#@38 Summarize basic cpio-dired commands.
(defalias 'cpio-dired-summary #[nil "\301\302\303!)\207" [fname "cpio-dired-summary" message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"] 2 (#$ . 75741) nil])
#@203 Toggle marks: marked entries become unmarked, and vice versa.
Entries marked with other flags (such as `D') are not affected.
`.' and `..' are never toggled.
As always, hidden subdirs are not affected.
(defalias 'cpio-dired-toggle-marks #[nil "\301\302\303\")\207" [fname "cpio-dired-toggle-marks" error "%s() is not yet implemented"] 3 (#$ . 75976) nil])
#@215 Edit Dired buffer with Wdired, or make it read-only.
If the current buffer can be edited with Wdired, (i.e. the major
mode is `dired-mode'), call `wdired-change-to-wdired-mode'.
Otherwise, toggle `read-only-mode'.
(defalias 'cpio-dired-toggle-read-only #[nil "\301\302\303\")\207" [fname "cpio-dired-toggle-read-only" error "%s() is not yet implemented"] 3 (#$ . 76341) nil])
#@28 Go down in the dired tree.
(defalias 'cpio-dired-tree-down #[nil "\301\302\303\")\207" [fname "cpio-dired-tree-down" error "%s() is not yet implemented"] 3 (#$ . 76725) nil])
#@37 Go up ARG levels in the dired tree.
(defalias 'cpio-dired-tree-up #[(arg) "\301\302\303\")\207" [fname "cpio-dired-tree-up" error "%s() is not yet implemented"] 3 (#$ . 76908) nil])
#@134 Search for a string using Isearch only in entry names in the Dired buffer.
You can use it to recover marks, killed lines or subdirs.
(defalias 'cpio-dired-undo #[nil "\301\302\303\")\207" [fname "cpio-dired-undo" error "%s() is not yet implemented"] 3 (#$ . 77099) nil])
#@286 If the region is active, unmark all entries in the region.
Otherwise, with a prefix arg, unmark entries on the next ARG lines.

If looking at a subdir, unmark all its entries except `.' and `..'.
If the region is active in Transient Mark mode, unmark all entries
in the active region.
(defalias 'cpio-dired-unmark #[(arg) "\305\212\306 \210	\307\310!)\262)\203, \307\311\fW\203+ `dW\203+ \312\313!\210\fS\202 )\314 )\207" [fname *cpio-dired-entry-regexp* inhibit-changing-match-data inhibit-read-only arg "cpio-dired-unmark" beginning-of-line t looking-at 0 cpio-dired-mark-this-entry 32 cpio-dired-move-to-entry-name] 3 (#$ . 77379) "p"])
#@221 Remove a specific mark (or any mark) from every entry.
After this command, type the mark character to remove,
or type RET to remove all marks.
With prefix arg, query for each marked file.
Type C-h at that time for help.
(defalias 'cpio-dired-unmark-all-entries #[(mark arg) "\306\307\n\310=\204 \311\312	\"\210\313\230\203 \314 \202l \212\315 \210\316 \210`dW\205k \317 \316 \210\320\321!)\262\203d \307\203V \322\323\324\"!\203V \325\326!\210\327c\210\202] \325\326!\210\327c\210)\202! \330\326!\210\202! )*\207" [entry fname major-mode mark inhibit-changing-match-data buffer-read-only "cpio-dired-unmark-all-entries" nil cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." "" cpio-dired-unmark-all-marks cpio-dired-move-to-first-entry beginning-of-line cpio-dired-get-entry-name t looking-at y-or-n-p format "Unmark entry `%s'? " delete-char 1 " " cpio-dired-next-line bro-before arg] 4 (#$ . 78033) "sRemove marks (RET means all): \nP"])
#@56 Remove all marks from all entries in the Dired buffer.
(defalias 'cpio-dired-unmark-all-marks #[nil "\304	\305=\204 \306\307\"\210\212\310 \210\n\311`dW\203, \312 \210\313\314!\210\315c\210\316\314!\210\202 \211+\207" [fname major-mode buffer-read-only bro-before "cpio-dired-unmark-all-marks" cpio-dired-mode error "%s(): You're not in a cpio-dired buffer." cpio-dired-move-to-first-entry nil beginning-of-line delete-char 1 " " cpio-dired-next-line] 3 (#$ . 79014) nil])
#@246 In a cpio UI buffer, move up lines and remove marks or deletion flags there.
Optional prefix ARG says how many lines to unmark/unflag; default
is one line.
If the region is active in Transient Mark mode, unmark all entries
in the active region.
(defalias 'cpio-dired-unmark-backward #[(&optional arg) "\301\302\303\")\207" [fname "cpio-dired-unmark-backward" error "%s() is not yet implemented"] 3 (#$ . 79502) "p"])
#@242 Run Dired on parent directory of current directory.
Find the parent directory either in this buffer or another buffer.
Creates a buffer if necessary.
If OTHER-WINDOW (the optional prefix arg), display the parent
directory in another window.
(defalias 'cpio-dired-up-directory #[nil "\301\302\303\")\207" [fname "cpio-dired-up-directory" error "%s() is not yet implemented"] 3 (#$ . 79928) nil])
#@56 Rename all marked (or next ARG) entries to upper case.
(defalias 'cpio-dired-upcase #[(arg) "\301\302\303\")\207" [fname "cpio-dired-upcase" error "%s() is not yet implemented"] 3 (#$ . 80331) nil])
#@81 Switch to the buffer holding the cpio archive for this cpio-dired style buffer.
(defalias 'cpio-dired-view-archive #[nil "\302\303	!)\207" [fname *cab-parent* "cpio-dired-view-archive" switch-to-buffer] 2 (#$ . 80538) nil])
#@181 In Dired, examine a entry in view mode, returning to Dired when done.
When entry is a directory, show it in this buffer if it is inserted.
Otherwise, display it in another buffer.
(defalias 'cpio-dired-view-entry #[nil "\301\302\303\")\207" [fname "cpio-dired-view-entry" error "%s() is not yet implemented"] 3 (#$ . 80770) nil])
#@25 Decrypt marked entries.
(defalias 'cpio-epa-dired-do-decrypt #[nil "\301\302\303\")\207" [fname "epa-dired-do-decrypt" error "%s() is not yet implemented"] 3 (#$ . 81108) nil])
#@25 Encrypt marked entries.
(defalias 'cpio-epa-dired-do-encrypt #[nil "\301\302\303\")\207" [fname "epa-dired-do-encrypt" error "%s() is not yet implemented"] 3 (#$ . 81293) nil])
#@22 Sign marked entries.
(defalias 'cpio-epa-dired-do-sign #[nil "\301\302\303\")\207" [fname "epa-dired-do-sign" error "%s() is not yet implemented"] 3 (#$ . 81478) nil])
#@24 Verify marked entries.
(defalias 'cpio-epa-dired-do-verify #[nil "\301\302\303\")\207" [fname "epa-dired-do-verify" error "%s() is not yet implemented"] 3 (#$ . 81654) nil])
#@93 Remove tag for selected entry(s).
With prefix argument ARG, remove tag from entry at point.
(defalias 'cpio-image-dired-delete-tag #[(arg) "\301\302\303\")\207" [fname "image-dired-delete-tag" error "%s() is not yet implemented"] 3 (#$ . 81836) "P"])
#@52 Add comment to current or marked entries in dired.
(defalias 'cpio-image-dired-dired-comment-entries #[nil "\301\302\303\")\207" [fname "image-dired-dired-comment-entries" error "%s() is not yet implemented"] 3 (#$ . 82095) nil])
#@50 Display entry at point using an external viewer.
(defalias 'cpio-image-dired-dired-display-external #[nil "\301\302\303\")\207" [fname "image-dired-dired-display-external" error "%s() is not yet implemented"] 3 (#$ . 82333) nil])
#@164 Display current image entry.
See documentation for `image-dired-display-image' for more information.
With prefix argument ARG, display image in its original size.
(defalias 'cpio-image-dired-dired-display-image #[(&optional arg) "\301\302\303\")\207" [fname "image-dired-dired-display-image" error "%s() is not yet implemented"] 3 (#$ . 82572) "p"])
#@134 Edit comment and tags of current or marked image entries.
Edit comment and tags for all marked image entries in an
easy-to-use form.
(defalias 'cpio-image-dired-dired-edit-comment-and-tags #[nil "\301\302\303\")\207" [fname "image-dired-dired-edit-comment-and-tags" error "%s() is not yet implemented"] 3 (#$ . 82931) nil])
#@302 Toggle thumbnails in front of entry names in the dired buffer.
If no marked entry could be found, insert or hide thumbnails on the
current line.  ARG, if non-nil, specifies the entries to use instead
of the marked entries.  If ARG is an integer, use the next ARG (or
previous -ARG, if ARG<0) entries.
(defalias 'cpio-image-dired-dired-toggle-marked-thumbs #[(arg) "\301\302\303\")\207" [fname "image-dired-dired-toggle-marked-thumbs" error "%s() is not yet implemented"] 3 (#$ . 83264) "p"])
#@66 Shorthand for `image-dired-display-thumbs' with prefix argument.
(defalias 'cpio-image-dired-display-thumb #[(arg) "\301\302\303\")\207" [fname "image-dired-display-thumb" error "%s() is not yet implemented"] 3 (#$ . 83764) "p"])
#@897 Display thumbnails of all marked entries, in `image-dired-thumbnail-buffer'.
If a thumbnail image does not exist for a entry, it is created on the
fly.  With prefix argument ARG, display only thumbnail for entry at
apoint (this is useful if you have marked some entries but want to show
another one).

Recommended usage is to split the current frame horizontally so that
you have the dired buffer in the left window and the
`image-dired-thumbnail-buffer' buffer in the right window.

With optional argument APPEND, append thumbnail to thumbnail buffer
instead of erasing it first.

Optional argument DO-NOT-POP controls if `pop-to-buffer' should be
used or not.  If non-nil, use `display-buffer' instead of
`pop-to-buffer'.  This is used from functions like
`image-dired-next-line-and-display' and
`image-dired-previous-line-and-display' where we do not want the
thumbnail buffer to be selected.
(defalias 'cpio-image-dired-display-thumbs #[(&optional arg append do-not-pop) "\301\302\303\")\207" [fname "image-dired-display-thumbs" error "%s() is not yet implemented"] 3 (#$ . 84003) "P"])
#@54 Append thumbnails to `image-dired-thumbnail-buffer'.
(defalias 'cpio-image-dired-display-thumbs-append #[nil "\301\302\303\")\207" [fname "image-dired-display-thumbs-append" error "%s() is not yet implemented"] 3 (#$ . 85102) nil])
#@27 Jump to thumbnail buffer.
(defalias 'cpio-image-dired-jump-thumbnail-buffer #[nil "\301\302\303\")\207" [fname "image-dired-jump-thumbnail-buffer" error "%s() is not yet implemented"] 3 (#$ . 85342) nil])
#@364 Use regexp to mark entries with matching tag.
A `tag' is a keyword, a piece of meta data, associated with an
image entry and stored in image-dired's database entry.  This command
lets you input a regexp and this will be matched against all tags
on all image entries in the database entry.  The entries that have a
matching tag will be marked in the dired buffer.
(defalias 'cpio-image-dired-mark-tagged-entries #[nil "\301\302\303\")\207" [fname "image-dired-mark-tagged-entries" error "%s() is not yet implemented"] 3 (#$ . 85556) nil])
#@69 Tag marked entry(s) in dired.  With prefix ARG, tag entry at point.
(defalias 'cpio-image-dired-tag-entries #[(arg) "\301\302\303\")\207" [fname "image-dired-tag-entries" error "%s() is not yet implemented"] 3 (#$ . 86102) "P"])
#@1510 Replace current buffer text with the dired-style view
of the corresponding CPIO archive.
This undoes all changes since the entry was visited or saved.
With a prefix argument, offer to revert from latest auto-save entry, if
that is more recent than the visited archive.

This command also implements an interface for special buffers
that contain text which doesn't come from a entry, but reflects
some other data instead (e.g. Dired buffers, `buffer-list'
buffers).  This is done via the variable `revert-buffer-function'.
In these cases, it should reconstruct the buffer contents from the
appropriate data.

When called from Lisp, the first argument is IGNORE-AUTO; only offer
to revert from the auto-save entry when this is nil.  Note that the
sense of this argument is the reverse of the prefix argument, for the
sake of backward compatibility.  IGNORE-AUTO is optional, defaulting
to nil.

Optional second argument NOCONFIRM means don't ask for confirmation
at all.  (The variable `revert-without-query' offers another way to
revert buffers without querying for confirmation.)

Optional third argument PRESERVE-MODES non-nil means don't alter
the entries modes.  Normally we reinitialize them using `normal-mode'.

This function binds `revert-buffer-in-progress-p' non-nil while it operates.

This function calls the function that `revert-buffer-function' specifies
to do the work, with arguments IGNORE-AUTO and NOCONFIRM.
The default function runs the hooks `before-revert-hook' and
`after-revert-hook'.
(defalias 'cpio-revert-buffer #[nil "\302	\203! \303	!\203 r	q\210\304 )\202# \305\306	!!\210\307 \202# \307 )\207" [fname *cab-parent* "cpio-revert-buffer" buffer-live-p cpio-revert-buffer find-file buffer-file-name cpio-mode] 3 (#$ . 86341) nil])
#@428 Scroll text of selected window down ARG lines; or near full screen if no ARG.
If `scroll-error-top-bottom' is non-nil and `scroll-down' cannot
scroll window further, move cursor to the top line.
When point is already on that position, then signal an error.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
If ARG is the atom `-', scroll upward by nearly full screen.
(defalias 'cpio-scroll-down-command #[(arg) "\301\302\303\")\207" [fname "scroll-down-command" error "%s() is not yet implemented"] 3 (#$ . 88108) "p"])
#@68 Continue the search through marked entries in a cpio-dired buffer.
(defalias 'cpio-tags-loop-continue #[nil "\306\307\310rq\210	)!!rq\210\n)rq\210)\311\211\211\312\313\"\210\314!\210b\210\315d\316#?\205\215 \3172 rq\210\211A\242\211\205} \320	!\321	!b\210\315\f\322!\\\"\203G \323 \210eb\210\315d\316#\210\324\317\316\"\210\202G )0\210?\205\215 \311\211\311\211.\207" [*cab-parent* *cpio-search-entry* *cpio-search-point* *cpio-search-re* contents-start contents-size "cpio-tags-loop-continue" get-buffer-create cpio-contents-buffer-name nil error "%s(): is not yet implemented." switch-to-buffer re-search-forward t found-one cpio-entry-attrs cpio-contents-start cpio-entry-size cpio-dired-find-entry throw entry-attrs regex search-point entry-buffer fname *cpio-search-entries*] 8 (#$ . 88696) nil])
#@170 Toggle visibility of detailed information in current Dired buffer.
When this minor mode is enabled, details such as file ownership and
permissions are hidden from view.
(defalias 'cpio-dired-hide-details-mode #[nil "\301\302\303\")\207" [fname "cpio-dired-hide-details-mode" error "%s() is not yet implemented"] 3 (#$ . 89548)])
(defvar cpio-dired-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\314#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\325#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@ #\210\302\201A \325#\210\302\201B \201C #\210\302\201D \201E #\210\302\201F \201G #\210\302\201H \201I #\210\302\201J \201K #\210\302\201L \201M #\210\302\201N \201O #\210\302\201P \201Q #\210\302\201R \201S #\210\302\201T \201U #\210\302\201V \201W #\210\302\201X \201Y #\210\302\201Z \201[ #\210\302\201\\ \201] #\210\302\201^ \201] #\210\302\201_ \201] #\210\302\201` \201a #\210\302\201b \201c #\210\302\201d \201e #\210\302\201f \201g #\210\302\201h \201g #\210\302\201i \201j #\210\302\201k \201l #\210\302\201m \201n #\210\302\201o \201p #\210\302\201q \201r #\210\302\201s \201t #\210\302\201u \201v #\210\302\201w \201x #\210\302\201y \325#\210\302\201z \201{ #\210\302\201| \201} #\210\302\201| \201~ #\210\302\201| \201 #\210\302\201| \201\200 #\210\302\201| \201\201 #\210\302\201| \201\202 #\210\302\201| \201\203 #\210\302\201| \201\204 #\210\302\201| \201\205 #\210\302\201| \201\206 #\210\302\201| \201\207 #\210\302\201\210 \201\211 #\210\302\201\212 \201\213 #\210\302\201\214 \201\215 #\210\302\201\216 \325#\210\302\201\217 \201\220 #\210\302\201\221 \201\222 #\210\302\201\223 \201\224 #\210\302\201\225 \325#\210\302\201\226 \325#\210\302\201\227 \201\230 #\210\302\201\231 \201\232 #\210\302\201\233 \201\234 #\210\302\201\235 \201\236 #\210\302\201\237 \201\240 #\210\302\201\241 \201\242 #\210\302\201\243 \201\244 #\210\302\201\245 \201\246 #\210\302\201\247 \201\250 #\210\302\201\251 \201\250 #\210\302\201\252 \201\236 #\210\302\201\253 \201\254 #\210\302\201\255 \201\222 #\210\302\201\256 \201\220 #\210\302\201\257 \201\260 #\210\302\201\261 \201\260 #\210\302\201\262 \201\263 #\210\302\201\264 \201\265 #\210\302\201\266 \201\224 #\210\302\201\267 \201\270 #\210\302\201\271 \201\272 #\210\302\201\273 \201Y #\210\302\201\274 \201\275 #\210\302\201\276 \201e #\210\302\201\277 \201t #\210\302\201\300 \201\301 #\210\302\201\302 \201\303 #\210\302\201\304 \201\305 #\210\302\201\306 \201\307 #\210\302\201\310 \201\311 #\210\302\201\312 \201\313 #\210\302\201\314 \201\313 #\210\302\201\315 \201\311 #\210\302\201\316 \201\317 #\210\302\201\226 \325#\210\302\201\320 \201\321 #\210\302\201\322 \201\323 #\210\302\201\324 \201\325 #\210\302\201\326 \201\327 #\210\302\201\330 \201\331 #\210)\207" [map make-keymap define-key "" cpio-dired-view-archive "e" cpio-dired-find-entry "f" "\n" "" cpio-dired-display-entry "[remap next-line]" cpio-dired-next-line "n" "" " " "#" cpio-dired-flag-auto-save-entries "$" cpio-dired-hide-subdir "%" nil "&" cpio-dired-do-async-shell-command "(" cpio-dired-hide-details-mode "+" cpio-dired-create-directory "." cpio-dired-clean-directory ":" "<" cpio-dired-prev-dirline "=" cpio-dired-diff ">" cpio-dired-next-dirline "?" cpio-dired-summary "A" cpio-dired-do-search "C" cpio-dired-do-copy "D" cpio-dired-do-delete "G" cpio-dired-do-chgrp "H" cpio-dired-do-hardlink "I" cpio-dired-add-entry "M" cpio-dired-do-chmod "O" cpio-dired-do-chown "P" cpio-dired-do-print "Q" cpio-dired-do-query-replace-regexp "R" cpio-dired-do-rename "S" cpio-dired-do-symlink "T" cpio-dired-do-touch "X" "Xa" cpio-dired-extract-all "Xm" cpio-dired-extract-entries "Z" cpio-dired-do-compress "^" cpio-dired-up-directory "a" cpio-dired-find-alternate-entry "d" cpio-dired-flag-entry-deletion "g" revert-buffer "h" describe-mode "j" cpio-dired-goto-entry "k" cpio-dired-do-kill-lines "l" cpio-dired-do-redisplay "m" cpio-dired-mark "o" cpio-dired-find-entry-other-window "[remap previous-line]" cpio-dired-previous-line "p" "" "q" cpio-dired-quit-window "s" cpio-dired-sort-toggle-or-edit "t" cpio-dired-toggle-marks "u" cpio-dired-unmark "*u" "v" cpio-dired-view-entry "w" cpio-dired-copy-entry-name-as-kill "x" cpio-dired-do-flagged-delete "y" cpio-dired-show-entry-type "~" cpio-dired-flag-backup-entries "" cpio-dired-unmark-backward [follow-link] cpio-mouse-face "[mouse-2]" cpio-dired-mouse-find-entry-other-window "[remap]" "" cpio-image-dired-dired-toggle-marked-thumbs "" cpio-image-dired-display-thumb cpio-image-dired-display-thumbs-append cpio-image-dired-dired-comment-entries cpio-image-dired-display-thumbs cpio-image-dired-dired-edit-comment-and-tags cpio-image-dired-mark-tagged-entries cpio-image-dired-dired-display-image cpio-image-dired-jump-thumbnail-buffer cpio-image-dired-delete-tag cpio-image-dired-tag-entries cpio-image-dired-dired-display-external "-n" cpio-dired-next-subdir "-p" cpio-dired-prev-subdir "\244" cpio-dired-hide-all "\363" "\373" cpio-dired-prev-marked-entry "\375" cpio-dired-next-marked-entry "\377" cpio-dired-unmark-all-entries "\363a" "\363f" "%&" cpio-dired-flag-garbage-entries "%C" cpio-dired-do-copy-regexp "%H" cpio-dired-do-hardlink-regexp "%R" cpio-dired-do-rename-regexp "%S" cpio-dired-do-symlink-regexp "%d" cpio-dired-flag-entries-regexp "%g" cpio-dired-mark-entries-containing-regexp "%l" cpio-dired-downcase "%m" cpio-dired-mark-entries-regexp "*%" "%r" "%u" cpio-dired-upcase "*" "*" "*!" cpio-dired-unmark-all-marks "U" "**" cpio-dired-mark-executables "*/" cpio-dired-mark-directories "*?" "*@" cpio-dired-mark-symlinks "*c" cpio-dired-change-marks "*m" "*s" cpio-dired-mark-subdir-entries "*t" "*" ":d" cpio-epa-dired-do-decrypt ":e" cpio-epa-dired-do-encrypt ":s" cpio-epa-dired-do-sign ":v" cpio-epa-dired-do-verify "[remap advertised-undo]" cpio-dired-undo "[remap read-only-mode]" cpio-dired-toggle-read-only "[remap toggle-read-only]" "[remap undo]" [134217843 102 19] cpio-dired-isearch-entry-names [134217843 97 19] cpio-dired-do-isearch [134217843 102 134217747] cpio-dired-isearch-entry-names-regexp [134217843 97 134217747] cpio-dired-do-isearch-regexp "k" cpio-dired-kill "" cpio-dired-save-archive] 4))
(defvar cpio-dired-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [cpio-dired-mode-hook variable-documentation put "Hook run after entering cpio-dired mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp cpio-dired-mode-map definition-name cpio-dired-mode] 4)
(defvar cpio-dired-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\210\303\311\322\323#\207" [cpio-dired-mode-abbrev-table cpio-dired-mode-map variable-documentation put purecopy "Keymap for `cpio-dired-mode'." boundp cpio-dired-mode-syntax-table definition-name cpio-dired-mode (lambda (#1=#:def-tmp-var) (defvar cpio-dired-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cpio-dired-mode'." (lambda (#1#) (defvar cpio-dired-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cpio-dired-mode'." derived-mode-parent custom-mode-group cpio] 5)
#@184 Mode for editing cpio archives in the style of dired.

This mode runs the hook `cpio-dired-mode-hook', as the final or
penultimate step during initialization.

\{cpio-dired-mode-map}
(defalias 'cpio-dired-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210eb\210\315d\307#\2039 \316 \210\306\317!\210\320\321\322!\210\306\323!\210\324)\325\326!\207" [delay-mode-hooks major-mode mode-name cpio-dired-mode-map cpio-dired-mode-syntax-table cpio-dired-mode-abbrev-table make-local-variable t kill-all-local-variables cpio-dired-mode "cpio-dired" use-local-map set-syntax-table re-search-forward cpio-dired-move-to-entry-name revert-buffer-function cpio-revert-buffer set-buffer-modified-p nil font-lock-defaults (dired-font-lock-keywords t nil nil beginning-of-line) run-mode-hooks cpio-dired-mode-hook local-abbrev-table *cpio-dired-entry-regexp*] 4 (#$ . 97506) nil])
(provide 'cpio-dired)