;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\322\323\324\302#\210\325\211\203H\211@\323
N\203A\324
N\204A\326\324\323N#\210
A\266\202\202'\210\327\323\324\330#\210\306\324\310\311\331DD\332\314\333%\210\306\334\310\311\335DD\336\337\340\314\341&\210\306\342\310\311\343DD\344\337\345\314\346&\207" [custom-declare-group archive nil "Simple editing of archives." :group data custom-declare-variable archive-tmpdir funcall function #[0 "\302\303\304=\203\f\305\202
\306	\"!\207" [system-type temporary-file-directory make-temp-name expand-file-name ms-dos "ar" "archive.tmp"] 4 #1=""] "Directory for temporary files made by `arc-mode.el'." :type directory archive-remote-regexp #[0 "\300\207" ["^/[^/:]*[^/:.]:"] 1 #1#] "Regexp recognizing archive files names that are not local.\nA non-local file is one whose file name is not proper outside Emacs.\nA local copy of the archive will be used when updating." regexp defvaralias archive-extract-hooks archive-extract-hook (saved-value saved-variable-comment) put make-obsolete-variable "24.3" #[0 "\300\207" [nil] 1 #1#] "Hook run when an archive member has been extracted." hook archive-visit-single-files #[0 "\300\207" [nil] 1 #1#] "If non-nil, opening an archive with a single file visits that file.\nIf nil, visiting such an archive displays the archive summary." :version "25.1" (choice (const :tag "Visit the single file" t) (const :tag "Show the archive summary" nil)) archive-hidden-columns #[0 "\300\207" [(Ids)] 1 #1#] "Columns hidden from display." "28.1" (set (const Mode) (const Ids) (const Date&Time) (const Ratio))] 8)
#@58 Columns hidden when `archive-alternate-display' is used.
(defconst archive-alternate-hidden-columns '(Mode Date&Time) (#$ . 1751))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\210\300\326\302\327\304\305%\210\306\330\310\311\331DD\332\314\333%\210\306\334\310\311\335DD\336\314\337%\210\306\340\310\311\341DD\342\314\343%\207" [custom-declare-group archive-arc nil "ARC-specific options to archive." :group archive custom-declare-variable archive-arc-extract funcall function #[0 "\300\207" [("arc" "x")] 1 #1=""] "Program and its options to run in order to extract an arc file member.\nExtraction should happen to the current directory.  Archive and member\nname will be added." :type (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-arc-expunge #[0 "\300\207" [("arc" "d")] 1 #1#] "Program and its options to run in order to delete arc file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-arc-write-file-member #[0 "\300\207" [("arc" "u")] 1 #1#] "Program and its options to run in order to update an arc file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh "LZH-specific options to archive." archive-lzh-extract #[0 "\300\207" [("lha" "pq")] 1 #1#] "Program and its options to run in order to extract an lzh file member.\nExtraction should happen to standard output.  Archive and member name will\nbe added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh-expunge #[0 "\300\207" [("lha" "d")] 1 #1#] "Program and its options to run in order to delete lzh file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh-write-file-member #[0 "\300\207" [("lha" "a")] 1 #1#] "Program and its options to run in order to update an lzh file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v")))] 6)
(defvar archive-7z-program (byte-code "\300\301!\206	\300\302!\211\205\303
!\207" [executable-find "7z" "7za" file-name-nondirectory] 3))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\210\306\326\310\311\327DD\330\314\331%\210\306\332\310\311\333DD\334\314\335\336\337&\210\300\340\302\341\304\305%\210\306\342\310\311\343DD\344\314\345%\210\306\346\310\311\347DD\350\314\351%\210\306\352\310\311\353DD\354\314\355%\210\300\356\302\357\304\305%\210\306\360\310\311\361DD\362\336\363\314\364&\210\306\365\310\311\366DD\367\336\363\314\370&\210\306\371\310\311\372DD\373\336\363\314\374&\210\300\375\302\376\304\305%\210\306\377\310\311\201@DD\201A\314\201B\336\201C\304\375&	\207" [custom-declare-group archive-zip nil "ZIP-specific options to archive." :group archive custom-declare-variable archive-zip-extract funcall function #[0 "\301\302!\203\303\207\203\304B\207\301\305!\203\306\207\307\207" [archive-7z-program executable-find "unzip" ("unzip" "-qq" "-c") ("x" "-so") "pkunzip" ("pkunzip" "-e" "-o-") ("unzip" "-qq" "-c")] 2 #1=""] "Program and its options to run in order to extract a zip file member.\nExtraction should happen to standard output.  Archive and member name will\nbe added." :type (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-expunge #[0 "\301\302!\203\303\207\203\304B\207\301\305!\203\306\207\307\207" [archive-7z-program executable-find "zip" ("zip" "-d" "-q") ("d") "pkzip" ("pkzip" "-d") ("zip" "-d" "-q")] 2 #1#] "Program and its options to run in order to delete zip file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-update #[0 "\301\302!\203\303\207\203\304B\207\301\305!\203\306\207\307\207" [archive-7z-program executable-find "zip" ("zip" "-q") ("u") "pkzip" ("pkzip" "-u" "-P") ("zip" "-q")] 2 #1#] "Program and its options to run in order to update a zip file member.\nOptions should ensure that specified directory will be put into the zip\nfile.  Archive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-update-case #[0 "\301\302!\203\303\207\203\304B\207\301\305!\203\306\207\307\207" [archive-7z-program executable-find "zip" ("zip" "-q" "-k") ("u") "pkzip" ("pkzip" "-u" "-P") ("zip" "-q" "-k")] 2 #1#] "Program and its options to run in order to update a case fiddled zip member.\nOptions should ensure that specified directory will be put into the zip file.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-case-fiddle #[0 "\301=\205	\302 ?\207" [system-type ms-dos msdos-long-file-names] 2 #1#] "If non-nil, then all-caps names of zip file members will be down-cased.\nThis case fiddling will only happen for members created by a system\nthat uses caseless file names.\nIn addition, this flag forces members added/updated in the zip archive\nto be truncated to DOS 8+3 file-name restrictions." boolean :version "27.1" archive-zoo "ZOO-specific options to archive." archive-zoo-extract #[0 "\300\207" [("zoo" "xpq")] 1 #1#] "Program and its options to run in order to extract a zoo file member.\nExtraction should happen to standard output.  Archive and member name will\nbe added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zoo-expunge #[0 "\300\207" [("zoo" "DqPP")] 1 #1#] "Program and its options to run in order to delete zoo file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zoo-write-file-member #[0 "\300\207" [("zoo" "a")] 1 #1#] "Program and its options to run in order to update a zoo file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z "7Z-specific options to archive." archive-7z-extract #[0 "\206\301\302B\207" [archive-7z-program "7z" ("x" "-so")] 2 #1#] "Program and its options to run in order to extract a 7z file member.\nExtraction should happen to standard output.  Archive and member name will\nbe added." "24.1" (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z-expunge #[0 "\206\301\302B\207" [archive-7z-program "7z" ("d")] 2 #1#] "Program and its options to run in order to delete 7z file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z-update #[0 "\206\301\302B\207" [archive-7z-program "7z" ("u")] 2 #1#] "Program and its options to run in order to update a 7z file member.\nOptions should ensure that specified directory will be put into the 7z\nfile.  Archive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-squashfs "Squashfs-specific options to archive." archive-squashfs-extract #[0 "\300\207" [("rdsquashfs" "-c")] 1 #1#] "Program and its options to run in order to extract a squashsfs file member.\nExtraction should happen to standard output.  Archive and member name will\nbe added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) "28.1"] 10)
#@33 Symbol describing archive type.
(defvar archive-subtype nil (#$ . 9574))
#@34 Position of first contents line.
(defvar archive-file-list-start nil (#$ . 9653))
(make-variable-buffer-local 'archive-file-list-start)
#@41 Position just after last contents line.
(defvar archive-file-list-end nil (#$ . 9795))
(make-variable-buffer-local 'archive-file-list-end)
#@35 Position of real archive's start.
(defvar archive-proper-file-start nil (#$ . 9940))
(make-variable-buffer-local 'archive-proper-file-start)
#@46 Non-nil if the archive is read-only on disk.
(defvar archive-read-only nil (#$ . 10087))
#@39 Name of local copy of remote archive.
(defvar archive-local-name nil (#$ . 10182))
(make-variable-buffer-local 'archive-local-name)
#@41 Local keymap for archive mode listings.
(defvar archive-mode-map (byte-code "\302 \303
\"\210\304
\305\306#\210\304
\307\310#\210\304
\311\312#\210\304
\313\312#\210\304
\314\315#\210\304
\316\315#\210\304
\317\315#\210\304
\320\321#\210\304
\322\323#\210\304
\324\306#\210\304
\325\306#\210\304
\326\306#\210\304
\327\330#\210\304
\331\332#\210\304
\333\332#\210\304
\334\332#\210\304
\335\332#\210\304
\336\337#\210\304
\340\341#\210\304
\342\343#\210\304
\344\345#\210\304
\346\347#\210\304
\350\351#\210\304
\352\330#\210\304
\353\354#\210\304
\355\356#\210\304
\357\360#\210\304
\361\362#\210\363\364!\203\304\304
\365\366#\210\304
\367\366#\210\202\322\370\371\366	$\210\370\372\366	$\210\304
\373\315#\210\304
\374\375\376\375!B#\210\304
\377\201@#\210\304
\201A\201B#\210\304
\201C\201D#\210\304
\201E\201F#\210\304
\201G\201H#\210\304
\201I\201J#\210\304
\201K\201L\376\201L!B#\210\304
\201M\201N#\210\304
\201O\201P#\210\304
\201Q\201R#\210\304
\201S\201T#\210\304
\201U\201V\376\201V!B#\210\304
\201W\201X#\210\304
\201Y\201Z#\210\304
\201[\201\\#\210\304
\201]\201^#\210\304
\201_\201`#\210\207" [special-mode-map global-map make-keymap set-keymap-parent define-key " " archive-next-line "a" archive-alternate-display "d" archive-flag-deleted "" "e" archive-extract "f" "
" "C" archive-copy-file "m" archive-mark "n" "" [down] "o" archive-extract-other-window "p" archive-previous-line "" [33554464] [up] "r" archive-rename-entry "u" archive-unflag "\377" archive-unmark-all-files "v" archive-view "x" archive-expunge "" archive-unflag-backwards "E" "M" archive-chmod-entry "G" archive-chgrp-entry "O" archive-chown-entry [follow-link] mouse-face fboundp command-remapping [remap advertised-undo] archive-undo [remap undo] substitute-key-definition advertised-undo undo [mouse-2] [menu-bar immediate] "Immediate" make-sparse-keymap [menu-bar immediate alternate] (menu-item "Alternate Display" archive-alternate-display :help "Toggle alternate file info display") [menu-bar immediate view] (menu-item "View This File" archive-view :help "Display file at cursor in View Mode") [menu-bar immediate view] (menu-item "Copy This File" archive-copy-file :help "Copy file at cursor to another location") [menu-bar immediate display] (menu-item "Display in Other Window" archive-display-other-window :help "Display file at cursor in another window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" archive-extract-other-window :help "Edit file at cursor in another window") [menu-bar immediate find-file] (menu-item "Find This File" archive-extract :help "Extract file at cursor and edit it") [menu-bar mark] "Mark" [menu-bar mark unmark-all] (menu-item "Unmark All" archive-unmark-all-files :help "Unmark all marked files") [menu-bar mark deletion] (menu-item "Flag" archive-flag-deleted :help "Flag file at cursor for deletion") [menu-bar mark unmark] (menu-item "Unflag" archive-unflag :help "Unmark file at cursor") [menu-bar mark mark] (menu-item "Mark" archive-mark :help "Mark file at cursor") [menu-bar operate] "Operate" [menu-bar operate chown] (menu-item "Change Owner..." archive-chown-entry :enable (fboundp (archive-name "chown-entry")) :help "Change owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." archive-chgrp-entry :enable (fboundp (archive-name "chgrp-entry")) :help "Change group ownership of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." archive-chmod-entry :enable (fboundp (archive-name "chmod-entry")) :help "Change mode (permissions) of marked files") [menu-bar operate rename] (menu-item "Rename to..." archive-rename-entry :enable (fboundp (archive-name "rename-entry")) :help "Rename marked files") [menu-bar operate expunge] (menu-item "Expunge Marked Files" archive-expunge :help "Delete all flagged files from archive")] 7) (#$ . 10320))
#@32 Column where file names start.
(defvar archive-file-name-indent nil (#$ . 14225))
(make-variable-buffer-local 'archive-file-name-indent)
#@48 Non-nil if the archive is outside file system.
(defvar archive-remote nil (#$ . 14368))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-remote put permanent-local t] 4)
#@34 Coding-system of archive member.
(defvar archive-member-coding-system nil (#$ . 14579))
(make-variable-buffer-local 'archive-member-coding-system)
#@46 Non-nil when alternate information is shown.
(defvar archive-alternate-display nil (#$ . 14732))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-alternate-display put permanent-local t] 4)
#@40 In archive members, points to archive.
(defvar archive-superior-buffer nil (#$ . 14963))
(put 'archive-superior-buffer 'permanent-local t)
#@74 Non-nil in archive member buffers.
Its value is an `archive--file-desc'.
(defvar archive-subfile-mode nil (#$ . 15108))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-subfile-mode put permanent-local t] 4)
(defvar archive-file-name-coding-system nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-file-name-coding-system put permanent-local t] 4)
#@77 compiler-macro for inlining `archive--file-desc-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-p (and (memq (type-of cl-x) cl-struct-archive--file-desc-tags) t)) nil] 9 (#$ . 15540)])
(put 'archive--file-desc-p 'compiler-macro 'archive--file-desc-p--cmacro)
#@13 

(fn CL-X)
(defalias 'archive--file-desc-p #[257 "\301
!>\205	\302\207" [cl-struct-archive--file-desc-tags type-of t] 3 (#$ . 15923)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put archive--file-desc-p side-effect-free error-free put archive--file-desc cl-deftype-satisfies] 5)
#@89 compiler-macro for inlining `archive--file-desc-ext-file-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-ext-file-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-ext-file-name (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 1))) nil] 9 (#$ . 16230)])
(put 'archive--file-desc-ext-file-name 'compiler-macro 'archive--file-desc-ext-file-name--cmacro)
#@77 Access slot "ext-file-name" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-ext-file-name #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 1] 5 (#$ . 16726)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-ext-file-name side-effect-free t] 4)
#@89 compiler-macro for inlining `archive--file-desc-int-file-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-int-file-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-int-file-name (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 2))) nil] 9 (#$ . 17126)])
(put 'archive--file-desc-int-file-name 'compiler-macro 'archive--file-desc-int-file-name--cmacro)
#@77 Access slot "int-file-name" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-int-file-name #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 2] 5 (#$ . 17622)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-int-file-name side-effect-free t] 4)
#@80 compiler-macro for inlining `archive--file-desc-mode'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-mode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-mode (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 3))) nil] 9 (#$ . 18022)])
(put 'archive--file-desc-mode 'compiler-macro 'archive--file-desc-mode--cmacro)
#@68 Access slot "mode" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-mode #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 3] 5 (#$ . 18473)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-mode side-effect-free t] 4)
#@80 compiler-macro for inlining `archive--file-desc-size'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-size--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-size (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 4))) nil] 9 (#$ . 18846)])
(put 'archive--file-desc-size 'compiler-macro 'archive--file-desc-size--cmacro)
#@68 Access slot "size" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-size #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 4] 5 (#$ . 19297)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-size side-effect-free t] 4)
#@80 compiler-macro for inlining `archive--file-desc-time'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-time (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 5))) nil] 9 (#$ . 19670)])
(put 'archive--file-desc-time 'compiler-macro 'archive--file-desc-time--cmacro)
#@68 Access slot "time" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-time #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 5] 5 (#$ . 20121)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-time side-effect-free t] 4)
#@81 compiler-macro for inlining `archive--file-desc-ratio'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-ratio--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-ratio (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 6))) nil] 9 (#$ . 20494)])
(put 'archive--file-desc-ratio 'compiler-macro 'archive--file-desc-ratio--cmacro)
#@69 Access slot "ratio" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-ratio #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 6] 5 (#$ . 20950)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-ratio side-effect-free t] 4)
#@79 compiler-macro for inlining `archive--file-desc-uid'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-uid--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-uid (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 7))) nil] 9 (#$ . 21326)])
(put 'archive--file-desc-uid 'compiler-macro 'archive--file-desc-uid--cmacro)
#@67 Access slot "uid" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-uid #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 7] 5 (#$ . 21772)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-uid side-effect-free t] 4)
#@79 compiler-macro for inlining `archive--file-desc-gid'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-gid--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-gid (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 8))) nil] 9 (#$ . 22142)])
(put 'archive--file-desc-gid 'compiler-macro 'archive--file-desc-gid--cmacro)
#@67 Access slot "gid" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-gid #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 8] 5 (#$ . 22588)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-desc-gid side-effect-free t] 4)
#@79 compiler-macro for inlining `archive--file-desc-pos'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-desc-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-desc-pos (progn (or (archive--file-desc-p cl-x) (signal 'wrong-type-argument (list 'archive--file-desc cl-x))) (aref cl-x 9))) nil] 9 (#$ . 22958)])
(put 'archive--file-desc-pos 'compiler-macro 'archive--file-desc-pos--cmacro)
#@67 Access slot "pos" of `archive--file-desc' struct CL-X.

(fn CL-X)
(defalias 'archive--file-desc-pos #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 9] 5 (#$ . 23404)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put archive--file-desc-pos side-effect-free t defalias copy-archive--file-desc copy-sequence] 4)
#@142 compiler-macro for inlining `archive--file-desc'.

(fn CL-WHOLE &cl-quote EXT-FILE-NAME INT-FILE-NAME MODE SIZE TIME &key POS RATIO UID GID)
(defalias 'archive--file-desc--cmacro #[1670 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262
\202\306>A@\203;\307\262
\202\310\311@\"\210\202\210\312\313\314\307\307&\207" [plist-member :pos :ratio :uid :gid (:pos :ratio :uid :gid :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:pos :ratio :uid :gid)" cl--defsubst-expand (ext-file-name int-file-name mode size time pos ratio uid gid) (cl-block archive--file-desc (record 'archive--file-desc ext-file-name int-file-name mode size time ratio uid gid pos))] 26 (#$ . 23832)])
(put 'archive--file-desc 'compiler-macro 'archive--file-desc--cmacro)
#@127 Constructor for objects of type `archive--file-desc'.

(fn EXT-FILE-NAME INT-FILE-NAME MODE SIZE TIME &key POS RATIO UID GID)
(defalias 'archive--file-desc #[1413 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262
\202\306>A@\203;\307\262
\202\310\311@\"\210\202\210\312\313			
&\n\207" [plist-member :pos :ratio :uid :gid (:pos :ratio :uid :gid :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:pos :ratio :uid :gid)" record archive--file-desc] 21 (#$ . 24681)])
(byte-code "\300\301\302\303#\304\301\305\306\307\305\310\311\301\303&	\207" [function-put archive--file-desc side-effect-free t cl-struct-define nil cl-structure-object record ((cl-tag-slot) (ext-file-name) (int-file-name) (mode nil :type integer) (size nil :type integer) (time nil :type string) (ratio nil :type string) (uid) (gid) (pos)) cl-struct-archive--file-desc-tags] 11)
#@41 Vector of `archive--file-desc' objects.
(defvar archive-files nil (#$ . 25627))
(make-variable-buffer-local 'archive-files)
#@90 Like insert but don't make unibyte string and eight-bit char multibyte.

(fn &rest ARGS)
(defalias 'arc-insert-unibyte #[128 "\211\211\205#\211@\211\250\203\211\300Y\203\301\302\"\202\211c\210
A\266\202\202
\207" [128 decode-char eight-bit] 6 (#$ . 25757)])
#@15 

(fn SUFFIX)
(defalias 'archive-name #[257 "\301\302\303!\304R!\207" [archive-subtype intern "archive-" symbol-name "-"] 6 (#$ . 26030)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put archive-name speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@208 Convert little endian string/vector STR to integer.
Alternatively, STR may be a buffer position in the current buffer
in which case a second argument, length LEN, should be supplied.

(fn STR &optional LEN)
(defalias 'archive-l-e #[513 "
;\203\f
G\262
\202
\211\\{\262\300!\203\301\302\"\262\303\211\211W\203:\211T\262
\304\305\"ZH\\\262\202!
\207" [multibyte-string-p encode-coding-string utf-8-emacs-unix 0 ash 8] 8 (#$ . 26316)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias archive-int-to-mode file-modes-number-to-symbolic nil make-obsolete "28.1"] 4)
#@344 From the integer OLDMODE and the string NEWMODE calculate a new file mode.
NEWMODE may be an octal number including a leading zero in which case it
will become the new mode.

NEWMODE may also be a relative specification like "og-rwx" in which case
OLDMODE will be modified accordingly just like chmod(2) would have done.

(fn OLDMODE NEWMODE)
(defalias 'archive-calc-mode #[514 "\300\301\"\203\302\303\304\"\305\306\"\"\207\307
\"\207" [string-match "\\`0[0-7]*\\'" logior logand 65024 string-to-number 8 file-modes-symbolic-to-number] 7 (#$ . 26919)])
#@46 Stringify dos packed DATE record.

(fn DATE)
(defalias 'archive-dosdate #[257 "\300\301\302\303\"\304\"\\\301\302\305\"\306\"\301\307\"
\310V\204 
\311W\203\"\312\207\313\314\315SH$\207" [1980 logand ash -9 127 -5 15 31 12 1 "" format "%2d-%s-%d" ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"]] 9 (#$ . 27484)])
#@46 Stringify dos packed TIME record.

(fn TIME)
(defalias 'archive-dostime #[257 "\300\301\302\"\303\"\300\301\304\"\305\"\306\300\303\"_\307\310$\207" [logand ash -11 31 -5 63 2 format "%02d:%02d:%02d"] 9 (#$ . 27838)])
#@48 Stringify Unix (LOW HIGH) date.

(fn LOW HIGH)
(defalias 'archive-unixdate #[514 "\211D\300
!\301\302\303\304O\305\306O\307\310\"$\207" [current-time-string format "%s-%s-%s" 8 10 4 7 format-time-string "%Y"] 11 (#$ . 28068)])
#@48 Stringify Unix (LOW HIGH) time.

(fn LOW HIGH)
(defalias 'archive-unixtime #[514 "\300\301D\"\207" [format-time-string "%H:%M:%S"] 6 (#$ . 28306)])
(defalias 'archive-get-lineno #[0 "`Y\203\f\301\302 \"\207\303\207" [archive-file-list-start count-lines line-beginning-position 0] 3])
#@139 Return the descriptor vector for file at point.
Does not signal an error if optional argument NOERROR is non-nil.

(fn &optional NOERROR)
(defalias 'archive-get-descr #[256 "\303 `Y\203E\211	GW\203E	
H\304
!\n>\203<\304
!\n>\204)\305\306\307D\"\210\211\310H\2060\311\312\313\"\311U\262
\203<\207?\205D\314\315!\207
?\205M\316\317!\207" [archive-file-list-start archive-files cl-struct-archive--file-desc-tags archive-get-lineno type-of signal wrong-type-argument archive--file-desc 3 0 logand 16384 user-error "Entry is not a regular member of the archive" error "Line does not describe a member of the archive"] 7 (#$ . 28602)])
#@526 Major mode for viewing an archive file in a dired-like way.
You can move around using the usual cursor motion commands.
Letters no longer insert themselves.\<archive-mode-map>
Type \[archive-extract] to pull a file out of the archive and into its own buffer;
or click mouse-2 on the file's line in the archive mode buffer.

If you edit a sub-file of this archive (as with the \[archive-extract] command) and
save it, the contents of that buffer will be saved back into the
archive.

\{archive-mode-map}

(fn &optional FORCE)
(defalias 'archive-mode #[256 "\306 \307U\203\310\311!\206\312 \207\211?\205?\205\346\313 \210\314 \315\316!!\317\301!\210
\320\321\322\323B\324\325$\210\326\327\330\325\331$\210\317\302!\210\331\317\303!\210\325\317\304!\210\325\317\305!\210\331\317\332!\210\333\334 !?\206}3\205}\3354\3363!5>\204x\337\340\3413D\"\2103\342H\"6\204\225\3357\334 \"\206\223\3354\334 \"6\343	\211\344P8\345\346\347\350\316	!\351R!\262
\352\"\210\3539!\266:\206\277;\206\277<=\354\355!\210\356\325!\210\331>?\205\346@\205\346G\342U\205\346\357\360\361 P!\210\362 \207" [archive-files archive-subtype truncate-lines require-final-newline local-enable-local-variables file-precious-flag buffer-size 0 default-value major-mode fundamental-mode kill-all-local-variables archive-find-type capitalize symbol-name make-local-variable advice--add-function :around #[0 "\300\301!\207" [advice--buffer-local revert-buffer-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local revert-buffer-function] 4 "\n\n(fn GV--VAL)"] archive--mode-revert nil add-hook write-contents-functions archive-write-file t archive-read-only file-writable-p buffer-file-name string-match type-of signal wrong-type-argument archive--file-desc 1 archive-mode "-Archive" run-mode-hooks "mode-hook" intern "archive-" "-" archive-mode-hook use-local-map set-buffer-multibyte to archive-summarize rename-buffer " " buffer-name archive-extract archive-subfile-mode file-name-invalid-regexp cl-struct-archive--file-desc-tags archive-remote archive-remote-regexp mode-name archive-mode-map file-name-coding-system default-file-name-coding-system locale-coding-system archive-file-name-coding-system buffer-read-only archive-visit-single-files auto-compression-mode] 10 (#$ . 29251)])
(byte-code "\301\302\303\304#\210\305\211\235\204\211B\207" [minor-mode-alist put archive-mode mode-class special (archive-subfile-mode " Archive")] 4)
(defalias 'archive-find-type #[0 "~\210eb\210\302\303\304!\203\305\202\204\303\306!\203\307\202\204\303\310!\203%\311\202\204\303\312!\203;\313\314	\2063\315 \"\203;\316\202\204\303\317!\203E\320\202\204\303\321!\203O\322\202\204\303\323!\203Y\324\202\204\303\325!\203m\326\321`\327\\\330#\203m\331\202\204\303\332!\203w\333\202\204\303\334!\203\201\335\202\204\336\337!)\207" [case-fold-search buffer-file-name nil looking-at "\\(PK00\\)?[P]K" zip "..-l[hz][0-9ds]-" lzh "....................[\334]\247\304\375" zoo "" string-match "\\.[aA][rR][cC]\\'" buffer-name arc "MZ\\(.\\|\n\\)\\{34\\}LH[aA]'s SFX " lzh-exe "Rar!" rar "!<arch>\n" ar "MZ" re-search-forward 100000 t rar-exe "7z\274\257'" 7z "hsqs" squashfs error "Buffer format not recognized"] 4])
(defalias 'archive-desummarize #[0 "\302\303 
~\210e	|\210\304
!)\207" [inhibit-read-only archive-proper-file-start t buffer-modified-p restore-buffer-modified-p] 4])
#@321 Parse the contents of the archive file in the current buffer.
Place a dired-like listing on the front;
then narrow to it, so that only that listing
is visible (and the real data of the buffer is hidden).
Optional argument SHUT-UP, if non-nil, means don't print messages
when parsing the archive.

(fn &optional SHUT-UP)
(defalias 'archive-summarize #[256 "~\210\306\307\310e\307\"\311\312\313\306\307$\210\211\204\314\315!\210\316p!\210\317\320\321\322!\323R!\262
 \211\2044\314\324!\210\325 e`}\210\326\306!\210\327 \210*
b\210\330\331!\207" [inhibit-read-only create-lockfiles archive-proper-file-start archive-subtype archive-files archive-file-list-start nil t copy-marker add-hook change-major-mode-hook archive-desummarize message "Parsing archive file..." buffer-disable-undo "summarize" intern "archive-" symbol-name "-" "Parsing archive file...done." point-marker set-buffer-modified-p buffer-enable-undo archive-next-line 0] 7 (#$ . 32677)])
#@46 Recreate the contents listing of an archive.
(defalias 'archive-resummarize #[0 "\301 \302 \210\303\304!\210b\210\305
!\207" [archive-file-list-start archive-get-lineno archive-desummarize archive-summarize t archive-next-line] 3 (#$ . 33645)])
#@80 compiler-macro for inlining `archive--file-summary-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-summary-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-summary-p (and (memq (type-of cl-x) cl-struct-archive--file-summary-tags) t)) nil] 9 (#$ . 33897)])
(put 'archive--file-summary-p 'compiler-macro 'archive--file-summary-p--cmacro)
#@13 

(fn CL-X)
(defalias 'archive--file-summary-p #[257 "\301
!>\205	\302\207" [cl-struct-archive--file-summary-tags type-of t] 3 (#$ . 34298)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put archive--file-summary-p side-effect-free error-free put archive--file-summary cl-deftype-satisfies] 5)
#@83 compiler-macro for inlining `archive--file-summary-text'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-summary-text--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-summary-text (progn (or (archive--file-summary-p cl-x) (signal 'wrong-type-argument (list 'archive--file-summary cl-x))) (aref cl-x 1))) nil] 9 (#$ . 34617)])
(put 'archive--file-summary-text 'compiler-macro 'archive--file-summary-text--cmacro)
#@71 Access slot "text" of `archive--file-summary' struct CL-X.

(fn CL-X)
(defalias 'archive--file-summary-text #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-summary-tags type-of signal wrong-type-argument archive--file-summary 1] 5 (#$ . 35089)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-summary-text side-effect-free t] 4)
#@89 compiler-macro for inlining `archive--file-summary-name-start'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-summary-name-start--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-summary-name-start (progn (or (archive--file-summary-p cl-x) (signal 'wrong-type-argument (list 'archive--file-summary cl-x))) (aref cl-x 2))) nil] 9 (#$ . 35477)])
(put 'archive--file-summary-name-start 'compiler-macro 'archive--file-summary-name-start--cmacro)
#@77 Access slot "name-start" of `archive--file-summary' struct CL-X.

(fn CL-X)
(defalias 'archive--file-summary-name-start #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-summary-tags type-of signal wrong-type-argument archive--file-summary 2] 5 (#$ . 35979)])
(byte-code "\300\301\302\303#\300\207" [function-put archive--file-summary-name-start side-effect-free t] 4)
#@87 compiler-macro for inlining `archive--file-summary-name-end'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'archive--file-summary-name-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block archive--file-summary-name-end (progn (or (archive--file-summary-p cl-x) (signal 'wrong-type-argument (list 'archive--file-summary cl-x))) (aref cl-x 3))) nil] 9 (#$ . 36385)])
(put 'archive--file-summary-name-end 'compiler-macro 'archive--file-summary-name-end--cmacro)
#@75 Access slot "name-end" of `archive--file-summary' struct CL-X.

(fn CL-X)
(defalias 'archive--file-summary-name-end #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-archive--file-summary-tags type-of signal wrong-type-argument archive--file-summary 3] 5 (#$ . 36877)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put archive--file-summary-name-end side-effect-free t defalias copy-archive--file-summary copy-sequence] 4)
#@98 compiler-macro for inlining `archive--file-summary'.

(fn CL-WHOLE-ARG TEXT NAME-START NAME-END)
(defalias 'archive--file-summary--cmacro #[1028 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (text name-start name-end) (cl-block archive--file-summary (record 'archive--file-summary text name-start name-end)) nil] 13 (#$ . 37337)])
(put 'archive--file-summary 'compiler-macro 'archive--file-summary--cmacro)
#@89 Constructor for objects of type `archive--file-summary'.

(fn TEXT NAME-START NAME-END)
(defalias 'archive--file-summary #[771 "\300\301$\207" [record archive--file-summary] 8 (#$ . 37764)])
(byte-code "\300\301\302\303#\304\301\305\306\307\305\310\311\301\303&	\207" [function-put archive--file-summary side-effect-free t cl-struct-define nil cl-structure-object record ((cl-tag-slot) (text) (name-start) (name-end)) cl-struct-archive--file-summary-tags] 11)
#@87 Insert a description of a list of files annotated with proper mouse face.

(fn FILES)
(defalias 'archive-summarize-files #[257 "\304 \211\203\305
@!	>\204\306\307\310@D\"\210\211@\311H\202 \312\313\314\315#c\210\304 \211\207" [archive-file-list-start cl-struct-archive--file-summary-tags archive-file-name-indent archive-file-list-end point-marker type-of signal wrong-type-argument archive--file-summary 2 0 mapconcat #[257 "\301
!>\204\302\303\304D\"\210\211\305H\306P\307\301!>\204$\302\303\304D\"\210\310H\301!>\2047\302\303\304D\"\210\311H\312$\210\207" [cl-struct-archive--file-summary-tags type-of signal wrong-type-argument archive--file-summary 1 "\n" add-text-properties 2 3 (mouse-face highlight help-echo "mouse-2: extract this file into a buffer")] 8 "\n\n(fn FIL)"] ""] 5 (#$ . 38233)])
#@165 Toggle alternative display.
To avoid very long lines archive mode does not show all information.
This function changes the set of information shown for each files.
(defalias 'archive-alternate-display #[0 "?\303\302!\210\203	\202\304\302\305N\206\302\306N@\307\"\310 \207" [archive-alternate-display archive-alternate-hidden-columns archive-hidden-columns make-local-variable eval customized-value standard-value t archive-resummarize] 3 (#$ . 39067) nil])
#@43 Toggle visibility of COLUMN.

(fn COLUMN)
(defalias 'archive-hideshow-column #[257 "\301\300!\210\211>\203\302
\"\202\211B\303 \207" [archive-hidden-columns make-local-variable remove archive-resummarize] 4 (#$ . 39540) (byte-code "\300\301\302\303\304\305$!C\207" [intern completing-read "Toggle visibility of: " (Mode Ids Ratio Date&Time) nil t] 6)])
#@356 Make sure a file FNAME can be created uniquely in directory DIR.

If FNAME can be uniquely created in DIR, it is returned unaltered.
If FNAME is something our underlying filesystem can't grok, or if another
file by that name already exists in DIR, a unique new name is generated
using `make-temp-file', and the generated name is returned.

(fn FNAME DIR)
(defalias 'archive-unique-fname #[514 "\301\"\302\"\301\303\304!\203\304 \204\305\202\306\"
\204%\307!\2030\310\311!\312\"\210\313
!\207\310\311!\312\"\210\207" [file-name-invalid-regexp expand-file-name string-match fboundp msdos-long-file-names "am" "arc-mode." file-exists-p make-directory file-name-directory t make-temp-file] 8 (#$ . 39908)])
#@16 

(fn ARCHIVE)
(defalias 'archive-maybe-copy #[257 "\306	\2038d\n\203 \307\n!>\204\310\311\312\nD\"\210\n\313H\206!
\314
\f\"\214~\210\315d
\316\317%\210)
\266\202\202A\320 \203@\321 \210\211)\207" [coding-system-for-write archive-remote archive-subfile-mode cl-struct-archive--file-desc-tags archive-tmpdir archive-local-name no-conversion type-of signal wrong-type-argument archive--file-desc 1 archive-unique-fname write-region nil nomessage buffer-modified-p save-buffer] 9 (#$ . 40634)])
#@18 

(fn UNCHANGED)
(defalias 'archive-maybe-update #[257 "\205@	\306 \307\310 \311
\204&\312\313 \210\314!\210\315\311!\210
b\210\316
!\210\317!\210\2045\320\321\322p!\"\210\323\206<?!*\266\204\207" [archive-remote archive-local-name inhibit-read-only coding-system-for-read archive-files archive-file-list-start buffer-modified-p no-conversion archive-get-lineno t nil erase-buffer insert-file-contents archive-mode archive-next-line archive-delete-local message "Buffer `%s' must be saved for changes to take effect" buffer-name set-buffer-modified-p] 9 (#$ . 41144)])
#@83 Delete file NAME and its parents up to and including `archive-tmpdir'.

(fn NAME)
(defalias 'archive-delete-local #[257 "\301\302\303!!\3041\305!0\210\202\210
\2057\302\306!!\262\3071*\310!0\210\202+\210
\230\203\311\262\202\207" [archive-tmpdir t directory-file-name file-name-as-directory (error) delete-file file-name-directory (error) delete-directory nil] 6 (#$ . 41733)])
(defalias 'archive-try-jka-compr #[0 "\205E\304	!\205E\305	!\306\307\"\203\310\311\"\202\211\312\313!\314\315\316\"#\317\320\"\216\321\322\323ed\314\324%\210*\325 \210\326\322!\210\327
!)\266\203\207" [auto-compression-mode buffer-file-name jka-compr-inhibit coding-system-for-write jka-compr-get-compression-info file-name-nondirectory string-match ":\\([^:]+\\)\\'" match-string 1 make-temp-file file-name-sans-extension nil file-name-extension period make-closure #[0 "\301\300!\207" [V0 delete-file] 2] no-conversion t write-region quiet erase-buffer set-buffer-multibyte insert-file-contents] 9])
#@22 

(fn OP &rest ARGS)
(defalias 'archive-file-name-handler #[385 "
\301=\206
\302\303\")\207" [file-name-handler-alist file-exists-p nil apply] 5 (#$ . 42752)])
#@72 Set the current buffer as if it were visiting FILENAME.

(fn FILENAME)
(defalias 'archive-set-buffer-as-visiting-file #[257 "\212eb\210\306\206#	\203\212	deZ\")\206#\307\310\311pB\306#@)
\2043\f\2043\312
\313\"\262
\211\314>\204A\315ed#\210\211\316\317!\210\320\321!\210\322deZ!)\266\202)\207" [coding-system-for-read set-auto-coding-function file-name-handler-alist buffer-undo-list enable-multibyte-characters last-coding-system-used t (("" . archive-file-name-handler)) find-operation-coding-system insert-file-contents coding-system-change-text-conversion raw-text (nil no-conversion) decode-coding-region set-buffer-modified-p nil kill-local-variable buffer-file-coding-system after-insert-file-set-coding] 7 (#$ . 42922)])
#@150 Go to FILE in the current buffer.
FILE should be a relative file name.  If FILE can't be found,
return nil.  Otherwise point is returned.

(fn FILE)
(defalias 'archive-goto-file #[257 "`\301eb\210\211\2045m\2045\302y\210\303\304!\211\2031\305
!>\204&\306\307\310D\"\210\211\302H\232\2031\304\262\210\202\211\204>
b\210\301\207`\207" [cl-struct-archive--file-desc-tags nil 1 archive-get-descr t type-of signal wrong-type-argument archive--file-desc] 8 (#$ . 43673)])
#@95 Return a closure to display the next file after FILE that matches REGEXP.

(fn FILE REGEXP N)
(defalias 'archive-next-file-displayer #[771 "\302\303\304#\305\306!\210\211\204b\307V\203m?\202 \212\310 \210o)?\203b\311!\210\312\313!\211\203^\314
!>\204=\315\316\317D\"\210\211\320Hp
\203\\\305\313\321#)\266\203\203\\\322\323\"\262\266\210\202\n\211\204j\306!\210\207" [cl-struct-archive--file-desc-tags inhibit-changing-match-data replace-regexp-in-string "\\`.*:" "" nil archive-goto-file 0 beginning-of-line archive-next-line archive-get-descr t type-of signal wrong-type-argument archive--file-desc 1 string-match make-closure #[0 "\301p!\210\302\300!\210\303 \207" [V0 kill-buffer switch-to-buffer archive-extract] 2]] 15 (#$ . 44157)])
#@250 Copy FILES to a location specified by NEW-NAME.
FILES can be a single file or a list of files.

Interactively, FILES is the list of marked files, or the file at
point if nothing is marked, and the function prompts for
NEW-NAME.

(fn FILES NEW-NAME)
(defalias 'archive-copy-file #[514 "
:\204	
C\262
G\302V\203\303
!\204\304\305!\210\212
\211\205\222\211@\303!\203/\306
\"\2020\307
!\203D\310\311\312\"!\204D\304\313\"\210\314!\210\315 \316 \317\320\321\322!\323R!\262
\324!	>\204g\325\326\327D\"\210\302H\330\331\332\"r\211q\210\333\334\"\216\335\336!\210\337#\210\340ed#\210*\266
A\266\202\202\262
)\207" [archive-subtype cl-struct-archive--file-desc-tags 1 file-directory-p user-error "Can't copy a list of files to a single file" expand-file-name file-exists-p yes-or-no-p format "%s already exists; overwrite? " "Not overwriting %s" archive-goto-file archive-get-descr buffer-file-name "extract" intern "archive-" symbol-name "-" type-of signal wrong-type-argument archive--file-desc generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil archive--extract-file write-region] 14 (#$ . 44932) (byte-code "\300\301\302\303!\206\304 C\"\211\305\306\307\310\311\312#\266\202\"!D\207" [mapcar archive--file-desc-ext-file-name archive-get-marked 42 archive-get-descr read-file-name format "Copy %s to: " ", " mapconcat identity] 11)])
#@110 In archive mode, extract this entry of the archive into its own buffer.

(fn &optional OTHER-WINDOW-P EVENT)
(defalias 'archive-extract #[512 "\211\203\n\306\307!!\210
\310=\311 \312
!>\204\313\314\315D\"\210\211\316H\312!>\2040\313\314\315D\"\210
\317Hp	\320 \321
!\321!\322\323R\324\325\326\327\n!\330R!\262
\206[	\206[\331\f	\"\332\333\nQ!\334!\335
\203s\320!\230\204
\336	!\262	\337!\262\340!\262\341\262rq\210\342!@	\343\344!\210\n$\345\346\347\335\341$\210
A\211\350\n#\204\307
\203\307\351\335!\210\352!\210\202	
\353 \210\354
!\210eb\210\355!\210B\335C\351\335!\210\356 D\357 \210\360\361!\203\375\341E\203\367\341\362\363\364\341#\210\365\366!\210\203	
\367\370!\210)\371\341!\210\372!?\206<
\203#
\373\205!
\374\"\207\375=\203.
\376!\207\2037
\377!\207\201F!\207" [cl-struct-archive--file-desc-tags default-directory archive-subtype archive-read-only file-name-invalid-regexp archive-file-name-coding-system posn-set-point event-end view archive-get-descr type-of signal wrong-type-argument archive--file-desc 1 2 buffer-file-name file-name-nondirectory " (" ")" "extract" intern "archive-" symbol-name "-" string-match expand-file-name ":" get-buffer nil archive-maybe-copy generate-new-buffer-name get-buffer-create t abbreviate-file-name make-local-variable archive-superior-buffer add-hook write-file-functions archive-write-file-member archive--extract-file set-buffer-modified-p kill-buffer archive-try-jka-compr archive-set-buffer-as-visiting-file rename-buffer buffer-size normal-mode derived-mode-p archive-mode remove-hook write-contents-functions archive-write-file run-hooks archive-extract-hook message "Note: altering this archive is not implemented." archive-maybe-update buffer-name view-buffer kill-buffer-if-not-modified display display-buffer switch-to-buffer-other-window buffer-file-truename archive-subfile-mode buffer-read-only buffer-undo-list buffer-saved-size archive-remote switch-to-buffer] 22 (#$ . 46390) (list nil last-input-event)])
#@32 

(fn EXTRACTOR ARCHIVE ENAME)
(defalias 'archive--extract-file #[771 "\205	\305\306\3071%\310!\203\"\202!\311J#0\2021\312\313\314\315!\"!\210\306\262
+\207" [enable-multibyte-characters archive-file-name-coding-system create-lockfiles coding-system-for-read coding-system-for-write no-conversion nil (error) fboundp archive-*-extract ding message "%s" error-message-string] 9 (#$ . 48453)])
#@29 

(fn ARCHIVE NAME COMMAND)
(defalias 'archive-*-extract #[771 "\302!\303\304!	\"\305\211\306\307	!\310\"\210\311\312@\305\211\211\313\nA

D\"&\262
\247\203M
\314U\203M\315!\204C\316\317\320\"!\210\202z\321!\210\310\262
\202z
\247\203_\316\317\322@#!\210\202z
;\203q\316\317\323@#!\210\202z\316\317\324@\"!\210\325!\210)\207" [archive-tmpdir default-directory file-name-as-directory expand-file-name file-name-nondirectory nil make-directory directory-file-name t apply call-process append 0 file-exists-p ding message "`%s': no such file or directory" insert-file-contents "`%s' exited with status %d" "`%s' aborted: %s" "`%s' failed" archive-delete-local] 16 (#$ . 48870)])
#@51 

(fn ARCHIVE NAME COMMAND &optional STDERR-TEST)
(defalias 'archive-extract-by-stdout #[1027 "\300\301!\302\303\"\216\304\305@\306\203\307D\202\307\306\310	A\f\fD\"&\311\312\307\"r\211q\210\302\313\"\216\314!\210eb\210;\203G\315\306\307#?\202K\316 \317V\203T\320\321\322 \"\210*\210)\207" [make-temp-file "arc-stderr" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 file-exists-p delete-file] 2] apply call-process nil t append generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward buffer-size 0 message "%s" buffer-string] 15 (#$ . 49582)])
#@51 

(fn ARCHIVE NAME COMMAND &optional STDOUT-TEST)
(defalias 'archive-extract-by-file #[1027 "C\300\301\302\"\300\303!\304\305$\216\306\307@\310\311D\310\f	\242\312
AC\"BB&\313\314\315\"r\211q\210\304\316\"\216\317!\210eb\210;\203N\320\310\315#?\202R\321 \322V\203[\323\324\325 \"\210*\210\326\327\242\"!\203o\330\327\242\"!\210)\207" [make-temp-file "arc-dir" dir "arc-stdout" make-closure #[0 "\303\302!\203\n\304\302!\210\303\305\300\242\301\"!\203\304\305\300\242\301\"!\210\306\300\242!\203A\300\307\306\300\242!!\240\210\310\305\300\242\301\"!\203\311\305\300\242\301\"!\210\202\310\301!\205J\311\301!\207" [V0 V1 V2 file-exists-p delete-file expand-file-name file-name-directory directory-file-name file-directory-p delete-directory] 4] apply call-process nil :file append generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward buffer-size 0 message "%s" buffer-string file-exists-p expand-file-name insert-file-contents-literally] 18 (#$ . 50236)])
#@54 In archive mode, find this member in another window.
(defalias 'archive-extract-other-window #[0 "\300\301!\207" [archive-extract t] 2 (#$ . 51316) nil])
#@57 In archive mode, display this member in another window.
(defalias 'archive-display-other-window #[0 "\300\301!\207" [archive-extract display] 2 (#$ . 51476) nil])
#@48 In archive mode, view the member on this line.
(defalias 'archive-view #[0 "\300\301!\207" [archive-extract view] 2 (#$ . 51645) nil])
#@79 Add current buffer to the archive in ARCBUF naming it NAME.

(fn ARCBUF NAME)
(defalias 'archive-add-new-member #[514 "r
q\210\303\304!\204\305\306!\210\203\305\307!\210)
p=\203!\305\310!\210\211\311\230\203+\305\312!\210r
q\210\313\314\315\316	!\317R!\262
)p\320!\203Nrq\210
\n#)\207\305\321!\207" [archive-read-only archive-subtype buffer-file-name derived-mode-p archive-mode error "Buffer is not an archive buffer" "Archive is read-only" "An archive buffer cannot be added to itself" "" "Archive members may not be given empty names" "add-new-member" intern "archive-" symbol-name "-" fboundp "Adding a new member is not supported for this archive type"] 8 (#$ . 51786) (byte-code "\301\302\303\304 \211\203r\211@q\210\305\306!)\204\211A\262
\202\211\203%\211@\202(\307\310!\262
\311#!\312\313\2039\314!\202:\315\"D\207" [buffer-file-name get-buffer read-buffer "Buffer containing archive: " buffer-list derived-mode-p archive-mode error "There are no archive buffers" t read-string "File name in archive: " file-name-nondirectory ""] 6)])
(defalias 'archive-write-file-member #[0 "\212\214\306\307!\210~\210rq\210\310\311\312\313	!\314R!\262
)rq\210\315\316 !)\317!\2030

\n\"\210\2027\320
\nJ#\210\321\322!\210\306\323!\266q\210\204M\324 \210\202Q\325\322!\210*\326\304!\203Z\f\327\207" [archive-superior-buffer archive-subtype archive-subfile-mode archive-remote archive-member-coding-system last-coding-system-used message "Updating archive..." "write-file-member" intern "archive-" symbol-name "-" archive-maybe-copy buffer-file-name fboundp archive-*-write-file-member set-buffer-modified-p nil "Updating archive...done" revert-buffer archive-maybe-update local-variable-p t] 6])
#@30 

(fn ARCHIVE DESCR COMMAND)
(defalias 'archive-*-write-file-member #[771 "\306!>\204\307\310\311D\"\210
\312H\313
	\"\314\315	!!\315
!\316\317\"\216\320\321!\322\"\210\323=\2038\324!\210\202@\325\326\211\326\327%\210\f\306!>\204R\307\310\311D\"\210\330H\203t\331\332\333\306	!>\204m\307\310\311D\"\210\330H\"\"\210\334$\"\262\335%\336\337@\326\211\211\340\nA
D\"&\211\341U\206\233\342\343\")\262
*\207" [cl-struct-archive--file-desc-tags archive-tmpdir default-directory major-mode last-coding-system-used archive-member-coding-system type-of signal wrong-type-argument archive--file-desc 1 expand-file-name directory-file-name file-name-as-directory make-closure #[0 "\301\300!\207" [V0 archive-delete-local] 2] make-directory file-name-directory t archive-mode archive-write-file write-region nil nomessage 3 set-file-modes logior 256 encode-coding-string no-conversion apply call-process append 0 error "Updating was unsuccessful (%S)" archive-file-name-coding-system coding-system-for-write] 16 (#$ . 53521)])
#@23 

(fn &optional FILE)
(defalias 'archive-write-file #[256 "\212\303\304	d\206\n\305\306%\210\307\305!\210*\306\207" [coding-system-for-write archive-proper-file-start buffer-file-name no-conversion write-region nil t set-buffer-modified-p] 7 (#$ . 54583)])
#@136 In archive mode, mark this member to be deleted from the archive.
With a prefix argument, mark that many files.

(fn P &optional TYPE)
(defalias 'archive-flag-deleted #[513 "\211\204\301\262
\302 \210
\303Y\203\304\202\305\306 \307\303U\2047\310\307!\203,\311\304!\210c\210
y\210Z\262\202\312
!\210)\266\313\303!\207" [inhibit-read-only 68 beginning-of-line 0 1 -1 buffer-modified-p t archive-get-descr delete-char restore-buffer-modified-p archive-next-line] 6 (#$ . 54851) "p"])
#@134 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many files forward.

(fn P)
(defalias 'archive-unflag #[257 "\300
\301\"\207" [archive-flag-deleted 32] 4 (#$ . 55356) "p"])
#@137 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many members backward.

(fn P)
(defalias 'archive-unflag-backwards #[257 "\300
[\301\"\207" [archive-flag-deleted 32] 4 (#$ . 55593) "p"])
#@19 Remove all marks.
(defalias 'archive-unmark-all-files #[0 "\303 \304\212	b\210`\nW\203!g\305U\204\306\307!\210\305c\210\307y\210\202)\310
!)\207" [inhibit-read-only archive-file-list-start archive-file-list-end buffer-modified-p t 32 delete-char 1 restore-buffer-modified-p] 3 (#$ . 55843) nil])
#@166 In archive mode, mark this member for group operations.
With a prefix argument, mark that many members.
Use \[archive-unmark-all-files] to remove all marks.

(fn P)
(defalias 'archive-mark #[257 "\300
\301\"\207" [archive-flag-deleted 42] 4 (#$ . 56152) "p"])
#@31 

(fn MARK &optional DEFAULT)
(defalias 'archive-get-marked #[513 "\302\212b\210`	W\203gU\203\303 
B\262
\304y\210\202)\211\237\206*
\205*\303 C\207" [archive-file-list-start archive-file-list-end nil archive-get-descr 1] 5 (#$ . 56418)])
#@10 

(fn P)
(defalias 'archive-next-line #[257 "\211y\210m\206	u\207" [archive-file-name-indent] 2 (#$ . 56673) "p"])
#@10 

(fn P)
(defalias 'archive-previous-line #[257 "\300
[!\207" [archive-next-line] 3 (#$ . 56796) "p"])
#@206 Change the protection bits associated with all marked or this member.
The new protection bits can either be specified as an octal number or
as a relative change like "g+rw" as for chmod(2).

(fn NEW-MODE)
(defalias 'archive-chmod-entry #[257 "\203\302\303!\210\304\305\306\307	!\310R!\262
\311
!\203%\211\312\313\314\"\"\210\315 \207\302\316!\207" [archive-read-only archive-subtype error "Archive is read-only" "chmod-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting mode bits is not supported for this archive type"] 7 (#$ . 56906) "sNew mode (octal or symbolic): "])
#@62 Change the owner of all marked or this member.

(fn NEW-UID)
(defalias 'archive-chown-entry #[257 "\203\302\303!\210\304\305\306\307	!\310R!\262
\311
!\203%\211\312\313\314\"\"\210\315 \207\302\316!\207" [archive-read-only archive-subtype error "Archive is read-only" "chown-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting owner is not supported for this archive type"] 7 (#$ . 57541) "nNew uid: "])
#@62 Change the group of all marked or this member.

(fn NEW-GID)
(defalias 'archive-chgrp-entry #[257 "\203\302\303!\210\304\305\306\307	!\310R!\262
\311
!\203%\211\312\313\314\"\"\210\315 \207\302\316!\207" [archive-read-only archive-subtype error "Archive is read-only" "chgrp-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting group is not supported for this archive type"] 7 (#$ . 58007) "nNew gid: "])
#@27 Do the flagged deletions.
(defalias 'archive-expunge #[0 "\306\212b\210`	W\2031g\307U\203+\310 \311
!\n>\204\"\312\313\314D\"\210\211\315H\262

B\262
\315y\210\202)\211\237\262
\211\205\222\203D\316\317!\205\222\320\321\322GA\204R\323\202S\324#!\204^\316\325!\205\222\326\327 !\330\331\332\333\f!\334R!\262
\335
!\203|\211\"\210\202\203\336J#\210\337\306!\210
\203\216\340 \207\341 \266\202\207" [archive-file-list-start archive-file-list-end cl-struct-archive--file-desc-tags archive-read-only archive-subtype archive-remote nil 68 archive-get-descr type-of signal wrong-type-argument archive--file-desc 1 error "Archive is read-only" yes-or-no-p format "Really delete %d member%s? " "" "s" "Operation aborted" archive-maybe-copy buffer-file-name "expunge" intern "archive-" symbol-name "-" fboundp archive-*-expunge archive-maybe-update archive-resummarize revert-buffer] 8 (#$ . 58473) nil])
#@30 

(fn ARCHIVE FILES COMMAND)
(defalias 'archive-*-expunge #[771 "\300\301@\302\211\211\303A\n\nB\"&\207" [apply call-process nil append] 13 (#$ . 59400)])
#@79 Change the name associated with this entry in the archive file.

(fn NEWNAME)
(defalias 'archive-rename-entry #[257 "\203\303\304!\210\211\305\230\203\303\306!\210\307\310\311\312	!\313R!\262
\314 \315!\2031
\316\n\"\"\210\317 \207\303\320!\207" [archive-read-only archive-subtype archive-file-name-coding-system error "Archive is read-only" "" "Archive members may not be given empty names" "rename-entry" intern "archive-" symbol-name "-" archive-get-descr fboundp encode-coding-string archive-resummarize "Renaming is not supported for this archive type"] 7 (#$ . 59567) "sNew name: "])
#@28 

(fn ORIG-FUN &rest ARGS)
(defalias 'archive--mode-revert #[385 "\303 \304\305\306\307\211AA$\210)\310 \210\nb\210\311
!\207" [archive-files coding-system-for-read archive-file-list-start archive-get-lineno nil no-conversion apply t archive-mode archive-next-line] 8 (#$ . 60173)])
#@106 Undo in an archive buffer.
This doesn't recover lost files, it just undoes changes in the buffer itself.
(defalias 'archive-undo #[0 "\301\302 )\207" [inhibit-read-only t undo] 1 (#$ . 60467) nil])
#@16 

(fn STR LEN)
(defalias 'archive--fit #[514 "\211\300!Z\211\301\245
\302W\203\303O\207\304
\305\"\304Z\305\"Q\207" [string-width 2 1 0 make-string 32] 9 (#$ . 60672)])
#@22 

(fn STR1 STR2 LEN)
(defalias 'archive--fit2 #[771 "\211\300!Z\300!Z\211\301W\203P\302O\207\303\304\"Q\207" [string-width 1 0 make-string 32] 8 (#$ . 60855)])
#@15 

(fn COLUMN)
(defalias 'archive--enabled-p #[257 "\211>?\207" [archive-hidden-columns] 3 (#$ . 61031)])
#@14 

(fn DESCS)
(defalias 'archive--summarize-descs #[257 "eb\210\211\204\301c\210\302c\210\303\304!\210\302c\210\202Z\211@\305\211C\305\306\307!\306\310!\205O\311!>\2046\312\313\314D\"\210\315H\206O\311!>\204L\312\313\314D\"\210\316H\306\317!\205i\311!>\204f\312\313\314D\"\210\320H\211\205p\321
!\311!>\204\201\312\313\314\nD\"\210\322HG\306\323!\205\241\311	!>\204\235\312\313\314D\"\210\324H\211\205\250\325
!G\211\203/
\211@\203
\311
!>\204\305\312\313\314D\"\210\211\315H\311!>\204\327\312\313\314D\"\210
\315H
\204\344\321
!\202\366\211\204\356\321!\202\366\321!\321!\\T\211\242V\203


\240\210\266\311
!>\204
\312\313\314D\"\210\211\326H\n
\\\262\211
V\203'
\211\262
\210
A\266\202\202\253\210\327\n!G\330\305V\205B
\331\332\"\333P\205O
\331\f\242\332\"\333P\331\332\"\334\n\205a
\331\nT\332\"\334P\334\205n
\331\332\"\333P\335\260	\336\337\305V\203
\337\\\202\200
\305\n\203\215

\242\337\\\202\216
\305\337\f\203\234
\337\f\\\202\235
\305\203\251
\337\\\202\252
\305&\340\305V\205\272
\341\342\"\333P\n\205\310
\343\344\345\242#\333P\341\346\"\334\f\205\333
\341\347
T\"\334P\334\205\350
\341\350\"\333P\351\260	c\210
c\210\303\352\353\354\n&\"!\210
c\210\355\211\356\336\337\305V\203\337	\\\202 \305\203-\242\337\\\202.\305	$\"\f\331
\203A\337\n\\\202B\305\f\203N\337\f\\\202O\305\\T\357\"G$c\266\360\361\"\207" [cl-struct-archive--file-desc-tags "M  ...   Filename\n" "- ----- ---------------\n" archive-summarize-files nil 0 archive--enabled-p Date&Time Ids type-of signal wrong-type-argument archive--file-desc 7 8 Ratio 6 string-width 5 Mode 3 file-modes-number-to-symbolic 4 number-to-string "- " make-string 45 "  " " " "----------------\n" + 2 "M " archive--fit "Mode" archive--fit2 "Uid" "Gid" "Size" "Cmp" "Date&time" " Filename\n" mapcar make-closure #[257 "\307\310!>\204\311\312\313D\"\210
\314H!\315\304\316V\2054\317\310!>\204.\311\312\313D\"\210\320H!\315P\302\205g\321\310!>\204J\311\312\313D\"\210\322H\310!>\204_\311\312\313D\"\210\323H\300\242#\315P\324\305GZ\325\"\326\303\205\214\310!>\204\206\311\312\313\nD\"\210\327H\330P\326\301\205\251\310\n!>\204\243\311\312\313\fD\"\210	\331H\315P\310!>\204\273\311\312\313
D\"\210\n\332H\260\n\333\334\306G$\207" [V0 V1 V2 V3 V4 V5 V6 number-to-string type-of signal wrong-type-argument archive--file-desc 4 "  " 0 file-modes-number-to-symbolic 3 archive--fit2 7 8 make-string 32 " " 6 "% " 5 2 record archive--file-summary cl-struct-archive--file-desc-tags] 15 "\n\n(fn DESC)"] format "%%%dd %%s %%d files\n" 32 apply vector] 26 (#$ . 61143)])
(defalias 'archive-arc-summarize #[0 "\301\302
\303\\dW\203\206\304!\305U\203\206\304T!\306V\203\206
\307\\\307\\\310\\{\311\312\"\206,\310\313\306O\"\314\315\\\316\"\314\317\\\307\"\314\320\\\307\"\314\321\\\316\"\211\226\230\211\203[\227\202\\\322\302\323\n!\324\325!Q\326S&\nB\262\n\n\303\\\\\262\266	\202\327
\237!\207" [archive-file-name-coding-system 1 nil 29 get-byte 26 0 2 13 string-search "" decode-coding-string archive-l-e 15 4 19 21 25 archive--file-desc archive-dosdate " " archive-dostime :pos archive--summarize-descs] 20])
#@22 

(fn NEWNAME DESCR)
(defalias 'archive-arc-rename-entry #[514 "\303\304\"\203\305\306!\210
G\307V\203\305\310!\210
\311\312GZ\313\"P\314\214\212~\210	\315\\\316!\n>\2047\317\320\321D\"\210\322H\\b\210\323\312!\210\324
!+\207" [inhibit-read-only archive-proper-file-start cl-struct-archive--file-desc-tags string-match "[:\\/]" error "File names in arc files must not contain a directory component" 12 "File names in arc files are limited to 12 characters" make-string 13 0 t 2 type-of signal wrong-type-argument archive--file-desc 9 delete-char arc-insert-unibyte] 8 (#$ . 64459)])
#@24 

(fn &optional START)
(defalias 'archive-lzh-summarize #[256 "\211\206\301\302
b\210\303\304!\203\254\305!\306\307\\\310\"\306\311\\\310\"\306\312\\\313\"\306\314\\\313\"\305\315\\!\302\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\316U\203M\317\320!\210\321U\204[\301U\203\200\305\322\\!\262\323\\\323\\\\{\324
\"\262
\262\323\\\\\262\301U\203\220\n\316\\\262\n\202\235\313U\203\235\325\\\262\n	\203\246
\306\n\313\"\305\313\\!
\321U\204\235
\211\301U\203\333\316\\\211
\\W\203\327\326\305!!P\262\211T\262
\202\275\210\202\205
\211\313U\203
\316\\\211
\\W\203\n
\305!\327U\203\374\330\202
\326f!P\262	\211T\262
\202\345\210\202\205
\211\331U\203 
\306\f\316\\\313\"\262\202\205
\211\332U\203;
\306\f\316\\\313\"\262\n\306\f\333\\\313\"\262	\202\205
\211\334U\203b
\316\\\211
\\W\203^
\326f!P\262\211T\262
\202E
\210\202\205
\211\335U\203\205
\316\\\211
\\W\203\204
\326f!P\262\211T\262
\202l
\210\\\262\f\306\f\313\"\262\305\f\313\\!\262
\202\255Z\262\266\321U\203\261
\262\321U\203\274
\321\202\333
\301U\203\317
\336\323\313$f\202\333
\313U\205\333
\337\\f\262
\340U\203\350
\341\202\364

\321U\205\364
\211\226\230\262
\f\203
\227\202\262\f\203\fP\202\262\313U\203$\342\"\202(\343!\262
\313U\203:\344\"\202>\345!\262\346\347\f\350	Q\302\n\206_\205_\351!\f\206m\205m\351!\"S&\nB\262\301U\203\216\336\313$\262\266\202\313U\204\234\321U\203\247\336\313$\262\266\202\352
\237!\207" [archive-file-name-coding-system 1 nil looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-" get-byte archive-l-e 7 4 11 15 2 17 20 3 error "Can't handle lzh level 3 header type" 0 21 22 decode-coding-string 24 char-to-string 255 "/" 80 81 5 82 83 + 23 77 t archive-unixdate archive-dosdate archive-unixtime archive-dostime record archive--file-desc " " number-to-string archive--summarize-descs] 37 (#$ . 65059)])
(defconst archive-lzh-alternate-display t)
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-lzh-extract #[514 "\301#\207" [archive-lzh-extract archive-extract-by-stdout] 6 (#$ . 67145)])
#@16 

(fn P COUNT)
(defalias 'archive-lzh-resum #[514 "\300
\300V\203
S\262\211\301!\\\262
T\262\202
\302
\303\"\207" [0 get-byte logand 255] 6 (#$ . 67288)])
#@22 

(fn NEWNAME DESCR)
(defalias 'archive-lzh-rename-entry #[514 "\214\212~\210\303!	>\204\304\305\306D\"\210
\307H\\\310
!\310\311\\!G
\\[\\\312\211\313V\2034\314\315!\210\311\\b\210\316T!\210\317\"\210b\210\316\320!\210\317
\321\"\")\266\205*\207" [archive-proper-file-start cl-struct-archive--file-desc-tags inhibit-read-only type-of signal wrong-type-argument archive--file-desc 9 get-byte 21 t 255 error "The file name is too long" delete-char arc-insert-unibyte 2 archive-lzh-resum] 12 (#$ . 67456)])
#@32 

(fn NEWVAL FILES ERRTXT OFS)
(defalias 'archive-lzh-ogm #[1028 "\212\214~\210\211\205\250\211@\303!	>\204\304\305\306D\"\210
\307H\\\310
!\310\311\\!\312\\
\\Z\313Y\203<\310
\314\\!\202=\315\316\211\317U\203\203\n\247\204W\n\320\n\\\314\"!\262
\\b\210\321\314!\210\322\323\f\324\"\325
\326\"\"\210Tb\210\321\327!\210\322\330T\"!\210\202\236\331\332\303!	>\204\226\304\305\306\nD\"\210\314H#\210)\266
A\266\202\202\262
*\207" [archive-proper-file-start cl-struct-archive--file-desc-tags inhibit-read-only type-of signal wrong-type-argument archive--file-desc 9 get-byte 21 22 24 2 0 t 85 archive-l-e delete-char arc-insert-unibyte logand 255 ash -8 1 archive-lzh-resum message "Member %s does not have %s field"] 17 (#$ . 67987)])
#@21 

(fn NEWUID FILES)
(defalias 'archive-lzh-chown-entry #[514 "\300\301\302$\207" [archive-lzh-ogm "an uid" 10] 7 (#$ . 68767)])
#@21 

(fn NEWGID FILES)
(defalias 'archive-lzh-chgrp-entry #[514 "\300\301\302$\207" [archive-lzh-ogm "a gid" 12] 7 (#$ . 68903)])
#@22 

(fn NEWMODE FILES)
(defalias 'archive-lzh-chmod-entry #[514 "\300\301\302\"\303\304$\207" [archive-lzh-ogm make-closure #[257 "\301
\300\"\207" [V0 archive-calc-mode] 4 "\n\n(fn OLD)"] "a unix-style mode" 8] 7 (#$ . 69038)])
#@75 Summarize the contents of an LZH self-extracting exe, for `archive-mode'.
(defalias 'archive-lzh-exe-summarize #[0 "\300\301\302\"\210\303\304\224!\207" [re-search-forward "..-l[hz][0-9ds]-" nil archive-lzh-summarize 0] 3 (#$ . 69273)])
(defalias 'archive-lzh-exe-extract 'archive-lzh-extract "Extract a member from an LZH self-extracting exe, for `archive-mode'.")
(defalias 'archive-zip-summarize #[0 "d\302Zb\210\303\304!\210\305`\306\\\302\"\307
\310U\204
\311U\203C\312\313!\210e\305`\314\\\314\"\\\262
b\210
\211\302\\{\315\230\204;\316\317!\210\305\320\\\314\"\262
e\\\262
\211\302\\{\321\230\2036
\322\323\\!\305\324\\\325\"\305\326\\\325\"\305\327\\\302\"\305\330\\\325\"\305\331\\\325\"\305\332\\\325\"\333\\	\333\\\\{\334
\"\262
\310U\204\233\311U\203\257\335V\203\257\305\336\333\302$\314\"\202\260\211\335U\205\273\337!\340\230	\341\267\202\356\305\f\342\\\325\"\202\357\343\344\203\326\345\202\327\335\346\347\322\350\\!\"\335U\203\351\351\202\352\335#\202\357\307	\205\376\n\352>\205\376\226\230\211\203
\227\202
\353\354!\355\356!Q\357S&B\262\336\333%\262\266
\202H\360
\237!\207" [archive-file-name-coding-system archive-zip-case-fiddle 4 search-backward-regexp "[P]K" archive-l-e 16 nil 4294967295 -1 search-backward "PK" 8 "PK" error "Unrecognized ZIP file format" 48 "PK
" get-byte 5 12 2 14 24 28 30 32 46 decode-coding-string 0 + file-name-nondirectory "" #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 194 3 194 0 204 5 204 6 204 7 204 10 204 11 204 15 204)) 40 logior 292 16457 logand 1 38 146 (0 2 4 5 9) archive--file-desc archive-dosdate " " archive-dostime :pos archive--summarize-descs] 24])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-zip-extract #[514 "\305@\306\"\203\307#\207@	\232\203\302\")\207\310\311>\203/\312\304!\203<\f\204<@\313\232\203<\314!\202=#\207" [archive-zip-extract archive-7z-program archive-7z-extract system-type w32-quote-process-args member-ignore-case ("pkunzip" "pkzip") archive-*-extract archive-extract-by-stdout (windows-nt ms-dos) boundp "unzip" shell-quote-argument] 6 (#$ . 71032)])
#@11 

(fn FD)
(defalias 'archive--file-desc-case-fiddled #[257 "\301
!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210
\306H=?\207" [cl-struct-archive--file-desc-tags type-of signal wrong-type-argument archive--file-desc 2 1] 6 (#$ . 71482)])
#@22 

(fn ARCHIVE DESCR)
(defalias 'archive-zip-write-file-member #[514 "\302\303!\203
\202	#\207" [archive-zip-update-case archive-zip-update archive-*-write-file-member archive--file-desc-case-fiddled] 7 (#$ . 71750)])
#@22 

(fn NEWMODE FILES)
(defalias 'archive-zip-chmod-entry #[514 "\214\212~\210\211\211\205\212\211@\303!	>\204\304\305\306D\"\210
\307H\\\310
\311\\!\303!	>\2043\304\305\306D\"\210\312H\313
\"\314\315\267\202|\316\\b\210\317\320!\210\321\322\323\"\324\325\"\"\210\202\200\326\\b\210\321\327\322\310`!\330\"\322\331\332\324\333\"\"\332\"\"!\210\317\332!\210\202\200\334\335!\210)\266
A\266\202\202\262
*\207" [archive-proper-file-start cl-struct-archive--file-desc-tags inhibit-read-only type-of signal wrong-type-argument archive--file-desc 9 get-byte 5 3 archive-calc-mode t #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 67 3 67 0 90 5 90 6 90 7 90 10 90 11 90 15 90)) 40 delete-char 2 arc-insert-unibyte logand 255 ash -8 38 logior 254 logxor 1 -7 message "Don't know how to change mode for this member"] 17 (#$ . 71980)])
(defalias 'archive-zoo-summarize #[0 "\301\302\303\"T\304
\211\303\\{\305\230\203\335\301\306\\\303\"\307V\203\335\301\306\\\303\"T\301\310\\\311\"\301\312\\\311\"\301\313\\\303\"\314\\\314\\\315\\{\316\303\\!\211\311U\203S\316\317\\!\202T\307
\311U\203c\316	\320\\!\202d\307\321\322\"\206l\315
\307V\203\210\n\323\\\\\324\f\323\325%{\326P\202\211\327\307V\203\237\323\\\324
\323\325${\202\243\307OP\330
\"\262
\307U\205\264\211
\226\230\211\203\275
\227\202\276
\331\304\f\332!\333\334!Q%
B\262
\262\266\f\202\335
\237!\207" [archive-file-name-coding-system archive-l-e 25 4 nil "\334\247\304\375" 6 0 14 2 16 20 38 13 get-byte 56 57 string-search "" 58 + -1 "/" "" decode-coding-string archive--file-desc archive-dosdate " " archive-dostime archive--summarize-descs] 23])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-zoo-extract #[514 "\301#\207" [archive-zoo-extract archive-extract-by-stdout] 6 (#$ . 73710)])
#@23 

(fn &optional FILE)
(defalias 'archive-rar-summarize #[256 "\211\204\262
\301
!\302\303\304\305\"r\211q\210\306\307\"\216\306\310\"\216\311\312\302\305\302\313	\206*&\210)eb\210\314\315!\210\316\317!\203g\320\225b\210\321\322!\321\323!\324\325\211\302\326!\321\327!\330\321\331!Q\321\332!\302\211\211&\nB\262\266\2025*\210\333
\237!\207" [buffer-file-name file-local-copy nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] #[0 "\300\205\301\300!\207" [V0 delete-file] 2] call-process "lsar" "-l" re-search-forward "^\\(?: +=+\\)+ *\n" looking-at "^ +[0-9.]+ +D?-+ +\\([0-9-]+\\) +\\([-0-9.]+\\)%? +\\([0-9a-zA-Z]+\\) +\\([0-9-]+\\) +\\([0-9:]+\\) +\\(.*\\)\n" 0 match-string 6 1 record archive--file-desc string-to-number 4 " " 5 2 archive--summarize-descs] 17 (#$ . 73853)])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-rar-extract #[514 "\300
!\203\n\301\302!\207\303\304\305$\207" [file-name-absolute-p error "Can't extract files with non-relative names" archive-extract-by-file ("unar" "-no-directory" "-o") "Successfully extracted"] 7 (#$ . 74722)])
(defalias 'archive-rar-exe-summarize #[0 "\300\301!\302\303\"\216eb\210\304\305!\210\306\307\224d#\210\310
!)\207" [make-temp-file "rarexe" make-closure #[0 "\301\300!\207" [V0 delete-file] 2] re-search-forward "Rar!" write-region 0 archive-rar-summarize] 5])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-rar-exe-extract #[514 "\300\301!\302!\211?\205\303\304!\305\306#\216r
\206\211q\210\212\214
\203*db\210~\210\2021\307!\210eb\210\310\311!\210\312\313\224d#\210+\314\")\207" [make-temp-file "rarexe" find-buffer-visiting generate-new-buffer " *rar-exe*" make-closure #[0 "\301\203\302\301!\210\303\300!\207" [V0 V1 kill-buffer delete-file] 2] insert-file-contents-literally re-search-forward "Rar!" write-region 0 archive-rar-extract] 9 (#$ . 75266)])
(defalias 'archive-7z-summarize #[0 "\302\303\304\305\"r\211q\210\306\307\"\216\310	\302\305\302\311\312	&\210eb\210\313\314!\210\313\315\302\305#\203a\316\225b\210\317\320!\212\313\321!\205;\317\320!)\212\313\322!\205F\317\320!)\323\324\211\302\325!\302\211\211\211&\nB\262\266\202\"*\210\326
\237!\207" [buffer-file-name archive-7z-program nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "l" "-slt" re-search-forward "^-----+\n" "^Path = \\(.*\\)\n" 0 match-string 1 "^Size = \\(.*\\)\n" "^Modified = \\(.*\\)\n" record archive--file-desc string-to-number archive--summarize-descs] 17])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-7z-extract #[514 "\301\302$\207" [archive-7z-extract archive-extract-by-stdout "Everything is Ok"] 7 (#$ . 76462)])
#@22 

(fn ARCHIVE DESCR)
(defalias 'archive-7z-write-file-member #[514 "\301#\207" [archive-7z-update archive-*-write-file-member] 6 (#$ . 76626)])
(defconst archive-ar-file-header-re "\\(.\\{16\\}\\)\\([ 0-9]\\{12\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-7]\\{8\\}\\)\\([ 0-9]\\{10\\}\\)`\n")
#@126 Return the external name represented by the entry NAME.
NAME is expected to be the 16-bytes part of an ar record.

(fn NAME)
(defalias 'archive-ar--name #[257 "\211\300\267\202\301\302\303\304#\207\301\305\303\304#\207\306\307\"\205\211\310\211\224O\207" [#s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("//              " 6 "/               " 12)) propertize ".<ExtNamesTable>." face italic ".<LookupTable>." string-match "/? *\\'" 0] 5 (#$ . 76935)])
(defalias 'archive-ar-summarize #[0 "\301eb\210\302\303!\210\304!\203u\305\306!\301\307\305\310!!\305\311!\305\312!\307\305\313!\314\"\305\315!\307
!\316\225b\210\317\320\"\262\321!\262\316\322\323\"O\262\316\322\323\"O\262\211u\210\301f\324=\203[\306u\210\325\326\211\301\f\f\301&\n	B\266\211\202\327
\237!\207" [archive-ar-file-header-re nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 2 3 4 5 8 6 0 format-time-string "%Y-%m-%d %H:%M" archive-ar--name string-match " +\\'" 10 record archive--file-desc archive--summarize-descs] 20])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-ar-extract #[514 "p\301!\302\211rq\210\214\212~\210\303\304!\210
\204J\305!\203J\306\307!\310\306\311!!\262\312\225b\210\313!\232\2039`\262\210\202
u\210\302f\314=\203F\307u\210\210\202
\205d\315\302!\210rq\210\316\211\\#\210)\315\317!\210\320+\207" [archive-ar-file-header-re find-file-noselect nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 6 0 archive-ar--name 10 set-buffer-multibyte insert-buffer-substring to t] 11 (#$ . 78031)])
#@22 

(fn ARCHIVE DESCR)
(defalias 'archive-ar-write-file-member #[514 "\300\301#\207" [archive-*-write-file-member ("ar" "r")] 6 (#$ . 78559)])
#@23 

(fn &optional FILE)
(defalias 'archive-squashfs-summarize #[256 "\211\204\262
\301
!\302\303\304\305\"r\211q\210\306\307\"\216\310\311\302\305\302\312	\206%&\210\2030\313!\210eb\210\314\315!\210\316 \210\317\320!\203\327\321\322!\321\323!\321\324!\321\325!\326\321\327!!\321\330!\321\331!\302\211\332H\333=\204k\332H\334=\203\316\335\232\203u\336\262	\337\340\341#\262	\342Q\262\343\332H\333=\203\221\344\202\222\332\345\346\337\347\341\323\327O#\350\337\347\341\327\322O#\351\337\347\341\322\352O#\260!\"\262
\353\354\n\211	\302\302&\nB\262\266	\332\225b\210\202:*\210\355
\237!\207" [buffer-file-name file-local-copy nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "unsquashfs" "-ll" delete-file search-forward-regexp "[drwxl\\-]\\{10\\}" beginning-of-line looking-at "^\\(.[rwx\\-]\\{9\\}\\) \\(.+\\)/\\(.+\\) \\(.+\\) \\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\) \\([0-9]\\{2\\}:[0-9]\\{2\\}\\) \\(.+\\)\n" match-string 7 1 2 3 string-to-number 4 5 6 0 100 45 "squashfs-root" "/" string-replace "squashfs-root/" "" " " logior 16384 file-modes-symbolic-to-number "u=" "-" ",g=" ",o=" 10 record archive--file-desc archive--summarize-descs] 27 (#$ . 78708)])
#@51 

(fn ARCHIVE NAME COMMAND &optional STDERR-TEST)
(defalias 'archive-squashfs-extract-by-stdout #[1027 "\300\301!\302\303\"\216\304\305@\306\203\307D\202\307\306\310	A
D\"&\311\312\307\"r\211q\210\302\313\"\216\314!\210eb\210;\203G\315\306\307#?\202K\316 \317V\203T\320\321\322 \"\210*\210)\207" [make-temp-file "arc-stderr" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 file-exists-p delete-file] 2] apply call-process nil t append generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward buffer-size 0 message "%s" buffer-string] 15 (#$ . 80008)])
#@21 

(fn ARCHIVE NAME)
(defalias 'archive-squashfs-extract #[514 "\301#\207" [archive-squashfs-extract archive-squashfs-extract-by-stdout] 6 (#$ . 80669)])
(byte-code "\300\301!\210\300\302!\207" [provide archive-mode arc-mode] 2)