| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/arc-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/arc-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303\304\305\306\307%\210\302\310\304\311\306\303%\210\302\312\304\313\306\303%\210\302\314\304\315\306\303%\210\302\316\304\317\306\303%\210\320\321\322\323\324\325\306\303&\210\320\326\327\330\324\331\306\303&\210\332\333\334\304#\210\335\304\211\203j @\333N\203c \334N\204c \336\334\333N#\210 A\211\204L *\337\333\334\340#\210\320\334\304\341\324\342\306\303&\210\320\343\344\345\324\346\306\310&\210\320\347\350\351\324\352\306\310&\210\320\353\354\355\324\356\306\310&\210\320\357\360\361\324\362\306\312&\210\320\363\364\365\324\366\306\312&\210\320\367\370\371\324\372\306\312&\210\320\373\374\375\324\376\306\314&\210\320\377\201@ \201A \324\201B \306\314&\210\320\201C \201D \201E \324\201F \306\314&\210\320\201G \201H \201I \324\201J \306\314&\210\320\201K \201L \201M \324\201N \306\314&\210\320\201O \201P \201Q \324\201R \306\316&\210\320\201S \201T \201U \324\201V \306\316&\210\320\201W \201X \201Y \324\201Z \306\316&\210\320\201[ \201\\ \201] \201^ \201_ \324\201` \306\201a & \210\320\201b \201c \201d \201^ \201_ \324\201e \306\201a & \210\320\201f \201g \201h \201^ \201_ \324\201i \306\201a & \207" [prop --dolist-tail-- custom-declare-group archive nil "Simple editing of archives." :group data archive-arc "ARC-specific options to archive." archive-lzh "LZH-specific options to archive." archive-zip "ZIP-specific options to archive." archive-zoo "ZOO-specific options to archive." custom-declare-variable archive-tmpdir (make-temp-name (expand-file-name (if (eq system-type 'ms-dos) "ar" "archive.tmp") temporary-file-directory)) "Directory for temporary files made by `arc-mode.el'." :type directory archive-remote-regexp "^/[^/:]*[^/:.]:" "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" "Hook run when an archive member has been extracted." hook archive-arc-extract '("arc" "x") "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." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-arc-expunge '("arc" "d") "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 '("arc" "u") "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-extract '("lha" "pq") "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 '("lha" "d") "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 '("lha" "a") "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"))) archive-zip-extract (cond ((executable-find "unzip") '("unzip" "-qq" "-c")) ((executable-find "7z") '("7z" "x" "-so")) ((executable-find "pkunzip") '("pkunzip" "-e" "-o-")) (t '("unzip" "-qq" "-c"))) "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." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-expunge (cond ((executable-find "zip") '("zip" "-d" "-q")) ((executable-find "7z") '("7z" "d")) ((executable-find "pkzip") '("pkzip" "-d")) (t '("zip" "-d" "-q"))) "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 (cond ((executable-find "zip") '("zip" "-q")) ((executable-find "7z") '("7z" "u")) ((executable-find "pkzip") '("pkzip" "-u" "-P")) (t '("zip" "-q"))) "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 (cond ((executable-find "zip") '("zip" "-q" "-k")) ((executable-find "7z") '("7z" "u")) ((executable-find "pkzip") '("pkzip" "-u" "-P")) (t '("zip" "-q" "-k"))) "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 t "If non-nil then zip file members may be down-cased.\nThis case fiddling will only happen for members created by a system\nthat uses caseless file names." boolean archive-zoo-extract '("zoo" "xpq") "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 '("zoo" "DqPP") "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 '("zoo" "a") "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-extract '("7z" "x" "-so") "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." :version "24.1" (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z archive-7z-expunge '("7z" "d") "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 '("7z" "u") "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")))] 11)
#@33 Symbol describing archive type.
(defvar archive-subtype nil (#$ . 7683))
#@34 Position of first contents line.
(defvar archive-file-list-start nil (#$ . 7762))
#@41 Position just after last contents line.
(defvar archive-file-list-end nil (#$ . 7850))
#@35 Position of real archive's start.
(defvar archive-proper-file-start nil (#$ . 7943))
#@46 Non-nil if the archive is read-only on disk.
(defvar archive-read-only nil (#$ . 8034))
#@39 Name of local copy of remote archive.
(defvar archive-local-name nil (#$ . 8128))
#@41 Local keymap for archive mode listings.
(defvar archive-mode-map (byte-code "\303 \304 \"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210\305\315\316#\210\305\317\316#\210\305\320\316#\210\305\321\322#\210\305\323\307#\210\305\324\307#\210\305\325\307#\210\305\326\327#\210\305\330\331#\210\305\332\331#\210\305\333\331#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\305\346\347#\210\305\350\327#\210\305\351\352#\210\305\353\354#\210\305\355\356#\210\305\357\360#\210\361\362!\203\271 \305\363\364#\210\305\365\364#\210\202\307 \366\367\364\n$\210\366\370\364\n$\210\305\371\316#\210\305\372\373\374\373!B#\210\305\375\376#\210\305\377\201@ #\210\305\201A \201B #\210\305\201C \201D #\210\305\201E \201F #\210\305\201G \201H \374\201H !B#\210\305\201I \201J #\210\305\201K \201L #\210\305\201M \201N #\210\305\201O \201P #\210\305\201Q \201R \374\201R !B#\210\305\201S \201T #\210\305\201U \201V #\210\305\201W \201X #\210\305\201Y \201Z #\210\305\201[ \201\\ #\210)\207" [map 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" "
" "m" archive-mark "n" "" [down] "o" archive-extract-other-window "p" archive-previous-line "" [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 :enable (boundp (archive-name "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 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")] 6) (#$ . 8216))
#@32 Column where file names start.
(defvar archive-file-name-indent nil (#$ . 11965))
#@48 Non-nil if the archive is outside file system.
(defvar archive-remote nil (#$ . 12053))
(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 (#$ . 12264))
(make-variable-buffer-local 'archive-member-coding-system)
#@46 Non-nil when alternate information is shown.
(defvar archive-alternate-display nil (#$ . 12417))
(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 (#$ . 12648))
(put 'archive-superior-buffer 'permanent-local t)
#@36 Non-nil in archive member buffers.
(defvar archive-subfile-mode nil (#$ . 12793))
(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)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-file-name-coding-system put permanent-local t] 4)
#@122 Vector of file descriptors.
Each descriptor is a vector of the form
[EXT-FILE-NAME INT-FILE-NAME CASE-FIDDLED MODE ...]
(defvar archive-files nil (#$ . 13184))
(make-variable-buffer-local 'archive-files)
(defalias 'archive-name #[(suffix) "\302\303\304!\305 R!\207" [archive-subtype suffix intern "archive-" symbol-name "-"] 5])
(put 'archive-name 'byte-optimizer 'byte-compile-inline-expand)
#@319 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.
FLOAT, if non-nil, means generate and return a float instead of an integer
(use this for numbers that can overflow the Emacs integer).
(defalias 'archive-l-e #[(str &optional len float) ";\203 G\202 \211 \\{\305!\306\211\n W\203: \nT\f\203, \307_\2020 \310 \311\" \nZH\\\202 *\207" [str len i result float string-as-unibyte 0 256.0 ash 8] 4 (#$ . 13586)])
#@75 Turn an integer like 0700 (i.e., 448) into a mode string like -rwx------.
(defalias 'archive-int-to-mode #[(mode) "\301\302\303\304\"!\203 \302\303\305\"!\203 \306\202 \307\202 \310\302\303\311\"!\203) \306\202* \312\302\303\313\"!\2037 \306\2028 \314\302\303\315\"!\203R \302\303\316\"!\203N \306\202` \317\202` \302\303\316\"!\203_ \320\202` \321\302\303\322\"!\203m \306\202n \312\302\303\323\"!\203{ \306\202| \314\302\303\324\"!\203\226 \302\303\325\"!\203\222 \306\202\244 \317\202\244 \302\303\325\"!\203\243 \320\202\244 \321\302\303\326\"!\203\261 \306\202\262 \312\302\303\327\"!\203\277 \306\202\300 \314\302\303\330\"!\203\315 \306\202\316 \320&\n\207" [mode string zerop logand 8192 16384 45 100 99 256 114 128 119 64 1024 83 120 115 32 16 8 2048 4 2 1] 14 (#$ . 14148)])
#@461 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.
If optional third argument ERROR is non-nil an error will be signaled if
the mode is invalid. If ERROR is nil then nil will be returned.
(defalias 'archive-calc-mode #[(oldmode newmode &optional error) "\306\307\"\203/ \310G\311 \nW\203& \312\313 \314\" H\315# T\211\202 \316\317\f\320\" \"+\207\306\321\"\203\310\f\322\224H\310\314\224 * + \314\225W\203\221 H ,\316
,\323U\203_ \324\202\210 ,\325U\203j \326\202\210 ,\327U\203u \330\202\210 ,\331U\203\200 \332\202\210 ,\333U\205\210 \334\" T)\202F +\311\225W\203 +H\211 -\335U\203\251 \336\202\307 -\337U\203\264 \340\202\307 -\341U\203\277 \342\202\307 -\343U\205\307 \344 .*\345U\203\330 \317 \346.!\"*\347U\203\355 \317 \346\317.
\"!\"\202\366 \316 \317.
\"\"*+T\211+\202\223 -\207(\205\f\350\351\"\207" [newmode i len result oldmode bits string-match "^0[0-7]*$" 0 1 + lsh 3 -48 logior logand 65024 "^\\([agou]+\\)\\([---+=]\\)\\([rwxst]+\\)$" 2 114 292 119 146 120 73 115 3072 116 512 97 4095 117 1472 103 2104 111 7 61 lognot 45 error "Invalid mode specification: %s" op who rwx whoc whomask] 7 (#$ . 14959)])
#@35 Stringify dos packed DATE record.
(defalias 'archive-dosdate #[(date) "\304\305\306\307\"\310\"\\\305\306\311\"\312\"\305\313\"\n\314V\204# \n\315W\203' \316\2020 \317\320 \321\nSH $+\207" [date day month year 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"]] 5 (#$ . 16402)])
#@35 Stringify dos packed TIME record.
(defalias 'archive-dostime #[(time) "\304\305\306\"\307\"\304\305\310\"\311\"\304\307\"\312_\313\314 \n $+\207" [time second minute hour logand ash -11 31 -5 63 2 format "%02d:%02d:%02d"] 5 (#$ . 16775)])
#@33 Stringify Unix (LOW HIGH) date.
(defalias 'archive-unixdate #[(low high) " B\304\n!\305\306 \307\310O \311\312O\313\314\n\"$*\207" [high low time str current-time-string format "%s-%s-%s" 8 10 4 7 format-time-string "%Y"] 7 (#$ . 17026)])
#@33 Stringify Unix (LOW HIGH) time.
(defalias 'archive-unixtime #[(low high) "\303 B!\211\304\305O)\207" [high low str current-time-string 11 19] 4 (#$ . 17274)])
(defalias 'archive-get-lineno #[nil "`Y\203\f \301\302 \"\207\303\207" [archive-file-list-start count-lines line-beginning-position 0] 3])
#@115 Return the descriptor vector for file at point.
Does not signal an error if optional argument NOERROR is non-nil.
(defalias 'archive-get-descr #[(&optional noerror) "\305 ` Y\203* \nGW\203* \nH\306 !\203 \202& \f?\205& \307\310!)\2022 \f?\2052 \307\311!)\207" [no archive-file-list-start archive-files item noerror archive-get-lineno vectorp error "Entry is not a regular member of the archive" "Line does not describe a member of the archive"] 2 (#$ . 17583)])
#@455 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.
Type `e' 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 `e' command) and
save it, the contents of that buffer will be saved back into the
archive.
\{archive-mode-map}
(defalias 'archive-mode #[(&optional force) "\306\307 !\203 \310\311!\206 \312 \207?\205 ?\205\334 \313 \314\315\n!!\316 \210\317\304!\210\n\317\305!\210\320\321\322!\2101\204B \323\324\325\326\327$\210\317\330!\210\326\317\331!\210\326\317\332!\210\327\317\333!\210\334\335 !?\206p 2\205p \33632\322H\"\317\337!\2101\204\214 \3364\335 \"\206\212 \3363\335 \"1\340 \341P5\342\343 6\344\345\315\f!\3466R!)\347\"\210\3507!\210*\317\351!\210\317\352!\210\317\353!\210\317\354!\2108\206\310 9\206\310 :;\310\355!\203\324 \356\357!\210\360\326!\210\327\211<\207" [force archive-files type typename archive-subtype revert-buffer-function zerop buffer-size default-value major-mode fundamental-mode archive-find-type capitalize symbol-name kill-all-local-variables make-local-variable archive-mode-revert auto-save-mode 0 add-hook write-contents-functions archive-write-file nil t require-final-newline local-enable-local-variables file-precious-flag archive-read-only file-writable-p buffer-file-name string-match archive-local-name archive-mode "-Archive" run-mode-hooks "mode-hook" intern "archive-" "-" archive-mode-hook use-local-map archive-proper-file-start archive-file-list-start archive-file-list-end archive-file-name-indent enable-multibyte-characters set-buffer-multibyte to archive-summarize archive-remote archive-subfile-mode file-name-invalid-regexp archive-remote-regexp mode-name suffix archive-mode-map file-name-coding-system default-file-name-coding-system locale-coding-system archive-file-name-coding-system buffer-read-only] 6 (#$ . 18058)])
(byte-code "\302\303\304\305#\210\306\211 \235\204 B)\302\207" [item1 minor-mode-alist put archive-mode mode-class special (archive-subfile-mode " Archive")] 5)
(defalias 'archive-find-type #[nil "~\210eb\210\302\303\304!\203 \305\202z \303\306!\203 \307\202z \303\310!\203% \311\202z \303\312!\203; \313\314 \2063 \315 \"\203; \316\202z \303\317!\203E \320\202z \303\321!\203O \322\202z \303\323!\203Y \324\202z \303\325!\203m \326\321`\327\\\330#\203m \331\202z \303\332!\203w \333\202z \334\335!)\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 error "Buffer format not recognized"] 4])
(defalias 'archive-desummarize #[nil "\303\304 ~\210e\n|\210\305!*\207" [modified inhibit-read-only archive-proper-file-start t buffer-modified-p restore-buffer-modified-p] 2])
#@297 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.
(defalias 'archive-summarize #[(&optional shut-up) "~\210\306\307\310e\307\"\311\303!\210\312\f\204 \313\314!\210\315p!\210\316 \317\320\321!\322
R!) \f\2045 \313\323!\210\324 e`}\210\325\306!\210\326 \210*b\210\327\330!\207" [inhibit-read-only buffer-file-truename archive-proper-file-start change-major-mode-hook shut-up suffix nil t copy-marker make-local-variable 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 archive-subtype archive-files archive-file-list-start] 5 (#$ . 21173)])
#@46 Recreate the contents listing of an archive.
(defalias 'archive-resummarize #[nil "\302 \303 \210\304\305!\210 b\210\306!)\207" [no archive-file-list-start archive-get-lineno archive-desummarize archive-summarize t archive-next-line] 2 (#$ . 22152)])
#@75 Insert a description of a list of files annotated with proper mouse face.
(defalias 'archive-summarize-files #[(files) "\304 \203 @\305H\202 \306\307\310\311\312 \"\"c\210\304 \211\207" [archive-file-list-start files archive-file-name-indent archive-file-list-end point-marker 1 0 apply concat mapcar #[(fil) "\302H\303P\304\305H\306H\307 $\210 )\207" [fil text 0 "\n" add-text-properties 1 2 (mouse-face highlight help-echo "mouse-2: extract this file into a buffer")] 5]] 5 (#$ . 22411)])
#@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 #[nil "?\301 \207" [archive-alternate-display archive-resummarize] 1 (#$ . 22920) nil])
#@340 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.
(defalias 'archive-unique-fname #[(fname dir) "\306 \"\307\n\"\306\310\311!\203 \311 \204 \312\202 \313 \" \f\204( \314
!\2035 \315\316 !\317\"\210\320 !\202= \315\316
!\317\"\210
+\207" [fname dir file-name-invalid-regexp tmpfile alien fullname 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] 5 (#$ . 23218)])
(defalias 'archive-maybe-copy #[(archive) "\306 \203. d\n\203 \n\307H\206 \310\f\"\214~\210\311
d\312\313%\210)*\2027 \314 \2036 \315 \210 )\207" [coding-system-for-write archive-remote archive-subfile-mode archive archive-name start no-conversion 0 archive-unique-fname write-region nil nomessage buffer-modified-p save-buffer archive-tmpdir archive-local-name] 6])
(defalias 'archive-maybe-update #[(unchanged) "\205H \306 \307\310 \311 \204- \312\313 \210\314!\210\315\311!\210b\210\316 !\210\317!\210\204> \320\321\322p!\"\210\323
\206F ?!-\207" [archive-remote archive-local-name inhibit-read-only lno coding-system-for-read modified 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 name unchanged archive-files archive-file-list-start] 5])
#@72 Delete file NAME and its parents up to and including `archive-tmpdir'.
(defalias 'archive-delete-local #[(name) "\304\305\306!!\307\310\311\217\210\n\205) \305\312 !!\307\313\314\217\210 \230\203
\307\211\204 \307*\207" [archive-tmpdir top again name t directory-file-name file-name-as-directory nil (delete-file name) ((error)) file-name-directory (delete-directory name) ((error))] 5 (#$ . 24949)])
(defalias 'archive-try-jka-compr #[nil "\205C \306 !\205C \307 !\310\311\n\"\203 \312\313\n\"\202 \n\314\315 !\316\317 \320\"# \321\216\322\323 \324ed\f\316\325%\210*\326 \210\322 \327\f!-\207" [auto-compression-mode buffer-file-name basename tmpname tmpfile jka-compr-inhibit 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 ((delete-file tmpfile)) no-conversion t write-region quiet erase-buffer insert-file-contents coding-system-for-write coding-system-for-read] 6])
(defalias 'archive-file-name-handler #[(op &rest args) "\303=\206
\304\305\n\")\207" [op file-name-handler-alist args file-exists-p nil apply] 3])
#@57 Set the current buffer as if it were visiting FILENAME.
(defalias 'archive-set-buffer-as-visiting-file #[(filename) "\212eb\210\306\206# \203 \212 \ndeZ\")\206# \307\310\311\npB\306#@) \2043 \2043 \312\f\313\"\f\314>\204B \315ed\f#\210\f\316\317!\210\320\321!\210\322deZ!+\207" [coding-system-for-read set-auto-coding-function filename file-name-handler-alist coding buffer-undo-list 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 enable-multibyte-characters last-coding-system-used] 5 (#$ . 26116)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias archive-mouse-extract archive-extract nil make-obsolete "22.1"] 4)
#@73 In archive mode, extract this entry of the archive into its own buffer.
(defalias 'archive-extract #[(&optional other-window-p event) "\203\n \306\307!!\210 \310=\311 \211\312H \313H p @A B\314 C\315C! D\315
!\316D\317R E\320 F\321\322\323G!\324FR!) HI\206S \n\206S \325J\f\" K\326D\327
Q! L\330E! M\331 NO PM\203z \314M!L\230\204'\332C!C\333E!E\334E!M\335NrMq\210L\f\336\f!QBA\337\340!\210@ \341\342\343\331\335$\210 RPOS\205\277 O\344 T U\345\346\347\217*\204\335 N\203\335 \350\331!\210\351M!\210\202\"\352 \210\353\f!\210eb\210\354E!\210KV\331W\350\331!\210\355 X\356 \210\357\360!\203\335YK\203\335I\361\362\363\335#\210\364\365!\210I\203\"\366\367!\210)\370\335!\210\371M!?\206\\\n\203@\372MN\205<\373\"\202\\ \374=\203M\375M!\202\\ \203X\376M!\202\\\377M!.\207" [event other-window-p view-p descr ename iname posn-set-point event-end view archive-get-descr 0 1 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 no-conversion err (byte-code "\303!\203 \n\"\207\304 \nJ#\207" [extractor archive ename fboundp archive-*-extract] 4) ((error (byte-code "\301\302\303\304!\"!\210\305\207" [err ding message "%s" error-message-string nil] 5))) 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 switch-to-buffer archive-buffer default-directory arcdir archive arcname bufname suffix archive-subtype extractor archive-read-only file-name-invalid-regexp read-only-p arcfilename buffer just-created archive-file-name-coding-system file-name-coding buffer-file-truename archive-subfile-mode enable-multibyte-characters coding-system-for-read coding-system-for-write buffer-read-only buffer-undo-list buffer-saved-size archive-remote] 6 (#$ . 26995) (list nil last-input-event)])
(defalias 'archive-*-extract #[(archive name command) "\306!\307\310\n! \"\311\211 \312\313 !\314\"\210\315\316@\311\211\211\317A\nD\"&\211\247\203N \320\f!\203N \321 !\204E \322\323\324 \"!\210\202{ \325 !\210\314\202{ \f\247\203` \322\323\326@\f#!\210\202{ \f;\203r \322\323\327@\f#!\210\202{ \322\323\330@\"!\210\331 !\210
,\207" [archive-tmpdir default-directory name tmpfile exit-status success file-name-as-directory expand-file-name file-name-nondirectory nil make-directory directory-file-name t apply call-process append zerop 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 command archive] 11])
(defalias 'archive-extract-by-stdout #[(archive name command &optional stderr-test) "\306\307!\310\216\311\312 @\313\203 \314D\202 \314\313\315 A\n D\"&\316\317! r\fq\210\320\216\321!\210eb\210
;\203? \322
\313\314#?\202C \323 \324V\203L \325\326\327 \"\210-\207" [stderr-file command archive name #1=#:temp-buffer stderr-test make-temp-file "arc-stderr" ((byte-code "\301!\203\n \302!\210\301\207" [stderr-file file-exists-p delete-file] 2)) apply call-process nil t append generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward buffer-size 0 message "%s" buffer-string] 10])
(defalias 'archive-extract-by-file #[(archive name command &optional stdout-test) "\306\307\310\"\306\311!\312\216\313\314\n@\315\316D\315\317\nA \f E\"&\320\321! r
q\210\322\216\323!\210eb\210 ;\203? \324 \315\325#?\202C \326 \327V\203L \330\331\332 \"\210+\333\334\f \"!\203] \335\334\f \"!\210+\207" [stdout-file dest command archive name #1=#:temp-buffer make-temp-file "arc-dir" dir "arc-stdout" ((byte-code "\303!\203\n \304!\210\303\305 \n\"!\203 \304\305 \n\"!\210\306 !\2030 \307\306 !!\310\305 \n\"!\210\202 \310\n!\207" [stdout-file name dest file-exists-p delete-file expand-file-name file-name-directory directory-file-name delete-directory] 4)) apply call-process nil :file append generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward t buffer-size 0 message "%s" buffer-string file-exists-p expand-file-name insert-file-contents-literally stdout-test] 11])
#@54 In archive mode, find this member in another window.
(defalias 'archive-extract-other-window #[nil "\300\301!\207" [archive-extract t] 2 (#$ . 31811) nil])
#@57 In archive mode, display this member in another window.
(defalias 'archive-display-other-window #[nil "\300\301!\207" [archive-extract display] 2 (#$ . 31973) nil])
#@48 In archive mode, view the member on this line.
(defalias 'archive-view #[nil "\300\301!\207" [archive-extract view] 2 (#$ . 32144) nil])
#@61 Add current buffer to the archive in ARCBUF naming it NAME.
(defalias 'archive-add-new-member #[(arcbuf name) "rq\210\306\307!\204 \310\311!\210 \203 \310\312!\210)p=\203! \310\313!\210\n\314\230\203+ \310\315!\210rq\210\316\317\320\321\f!\322 R!*p \323!\203U rq\210
\n#)\202X \310\324!*\207" [arcbuf archive-read-only name suffix archive-subtype membuf 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" func buffer-file-name] 5 (#$ . 32287) (list (get-buffer (read-buffer "Buffer containing archive: " (let ((bufs (buffer-list))) (while (and bufs (not (save-current-buffer (set-buffer (car bufs)) (derived-mode-p 'archive-mode)))) (setq bufs (cdr bufs))) (if bufs (car bufs) (error "There are no archive buffers"))) t)) (read-string "File name in archive: " (if buffer-file-name (file-name-nondirectory buffer-file-name) "")))])
(defalias 'archive-write-file-member #[nil "\212\214\306\307!\210~\210rq\210\310\311\312\313\n!\314 R!*rq\210\315\316 !) \317\f!\2031 \f
\"\210\2028 \320
\fJ#\210\321\322!\210\306\323!\210*q\210\204O \324 \210\202S \325\322!\210*\326\327!\203^ \330\207" [archive-superior-buffer suffix archive-subtype archive writer archive-subfile-mode 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 archive-member-coding-system t archive-remote last-coding-system-used] 5])
(defalias 'archive-*-write-file-member #[(archive descr command) "\306H\307 \n\"\310\311\n!! \311\f! \312\216\313\314 !\315\"\210 \316=\203* \317 !\210\2022 \320\321\211 \321\322%\210 !\323H\203F \324 \325\323H\326\"\"\210\327 \"\"\330 #\331\332$@\321\211\211\333$A% D\"& &\334&!\206p \335\336&\".\207" [descr ename archive-tmpdir tmpfile top default-directory 0 expand-file-name directory-file-name file-name-as-directory ((archive-delete-local tmpfile)) 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 zerop error "Updating was unsuccessful (%S)" major-mode last-coding-system-used archive-member-coding-system archive-file-name-coding-system coding-system-for-write command archive exitcode] 10])
(defalias 'archive-write-file #[(&optional file) "\212\304\305 d\n\206 \306\307%\210\310\306!\210*\307\207" [coding-system-for-write archive-proper-file-start file buffer-file-name no-conversion write-region nil t set-buffer-modified-p] 6])
#@113 In archive mode, mark this member to be deleted from the archive.
With a prefix argument, mark that many files.
(defalias 'archive-flag-deleted #[(p &optional type) "\204 \305\306 \210 \307Y\203 \310\202 \311\312 \313 \314 !\2047 \315\313!\203- \316\310!\210c\210\fy\210 \fZ\202 \317 !\210+\320\307!\207" [type p inhibit-read-only modified sign 68 beginning-of-line 0 1 -1 buffer-modified-p t zerop archive-get-descr delete-char restore-buffer-modified-p archive-next-line] 3 (#$ . 35180) "p"])
#@126 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many files forward.
(defalias 'archive-unflag #[(p) "\301\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 35692) "p"])
#@129 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many members backward.
(defalias 'archive-unflag-backwards #[(p) "\301[\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 35923) "p"])
#@19 Remove all marks.
(defalias 'archive-unmark-all-files #[nil "\304 \305\212\nb\210` W\203\" g\306U\204 \307\310!\210\306c\210\310y\210\202 )\311 !*\207" [inhibit-read-only modified archive-file-list-start archive-file-list-end buffer-modified-p t 32 delete-char 1 restore-buffer-modified-p] 2 (#$ . 36167) nil])
#@158 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.
(defalias 'archive-mark #[(p) "\301\302\"\207" [p archive-flag-deleted 42] 3 (#$ . 36489) "p"])
(defalias 'archive-get-marked #[(mark &optional default) "\305\212 b\210`\nW\203 g U\203 \306 B\307y\210\202 )\237\206* \f\205* \306 C)\207" [files archive-file-list-start archive-file-list-end mark default nil archive-get-descr 1] 2])
(defalias 'archive-next-line #[(p) "y\210m\206 u\207" [p archive-file-name-indent] 1 nil "p"])
(defalias 'archive-previous-line #[(p) "\301[!\207" [p archive-next-line] 2 nil "p"])
#@191 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).
(defalias 'archive-chmod-entry #[(new-mode) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-mode 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"] 5 (#$ . 37178) "sNew mode (octal or relative): "])
#@48 Change the owner of all marked or this member.
(defalias 'archive-chown-entry #[(new-uid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-uid 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"] 5 (#$ . 37826) "nNew uid: "])
#@48 Change the group of all marked or this member.
(defalias 'archive-chgrp-entry #[(new-gid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-gid 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"] 5 (#$ . 38304) "nNew gid: "])
#@27 Do the flagged deletions.
(defalias 'archive-expunge #[nil "\306\212 b\210`\nW\203 g\307U\203 \310 \311HB\312y\210\202 )\237\211\205\212 \2031 \313\314!\205\212 \315\316\317GA\204? \320\202@ \321#!\204K \313\322!\205\212 \323\324 !\325 \326\327\330
!\331\fR!) \332 !\203p \"\210\202y \333 J#\210\334\306!\210!\203\207 \335 \202\211 \336 *)\207" [files archive-file-list-start archive-file-list-end archive-read-only suffix archive-subtype nil 68 archive-get-descr 0 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 expunger archive archive-remote] 7 (#$ . 38782) nil])
(defalias 'archive-*-expunge #[(archive files command) "\303\304@\305\211\211\306A \nB\"&\207" [command archive files apply call-process nil append] 10])
#@65 Change the name associated with this entry in the archive file.
(defalias 'archive-rename-entry #[(newname) "\203 \306\307!\210 \310\230\203 \306\311!\210\312\313\314\315 !\316\nR!)\317 \320
!\2036
\321 \"\f\"\210\322 \2029 \306\323!*\207" [archive-read-only newname suffix archive-subtype descr func 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" archive-file-name-coding-system] 5 (#$ . 39758) "sNew name: "])
(defalias 'archive-mode-revert #[(&optional _no-auto-save _no-confirm) "\305 \306\211\307\310\311\211\"\210*\312 \210\fb\210\313!)\207" [no archive-files coding-system-for-read revert-buffer-function archive-file-list-start archive-get-lineno nil no-conversion revert-buffer t archive-mode archive-next-line] 4])
#@106 Undo in an archive buffer.
This doesn't recover lost files, it just undoes changes in the buffer itself.
(defalias 'archive-undo #[nil "\301\302 )\207" [inhibit-read-only t undo] 1 (#$ . 40702) nil])
(defalias 'archive-arc-summarize #[nil "\306\307\310\311\211 \f\312\\dW\203\313 \f \313
f!)\314U\203\313 \fT \313
f!)\307V\203\313 \f\315\\\316\f\315\317#{ *\320\321*\"\206? \317 +\322*\307+O,\" -\323\f\324\\\325\326# .\323\f\327\\\315\" /\323\f\330\\\315\" 0\323\f\331\\\325\326# 1-\211\226\230\211 2\203\200 -\227\202\202 - 3\332\3331\334/!\3350!3% 4\n+] 1\\\3364\211G3GZ4G#B\336-32\311\fS% B\316\f\312\337.!#.\n\202\n eb\210\340\341\n\342\"\343Q 5\3445\261\210\345\237!\2105\332\346 G G\306U\203\364 \347\202\365 \350$\343\261\210)\351\336 \237\"-\207" [visual files maxlen totalsize p pos 1 0 8 nil 29 multibyte-char-to-unibyte 26 2 + 13 string-match " " decode-coding-string archive-l-e 15 4 float 19 21 25 format " %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector round "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" "" "s" apply namefld fnlen archive-file-name-coding-system efnname csize moddate modtime ucsize fiddle ifnname text dash] 8])
(defalias 'archive-arc-rename-entry #[(newname descr) "\306\307\"\203 \310\311!\210G\312V\203 \310\313!\210\314G\315OP\316\214\212~\210\317 \f\320H\321#b\210\322\323!\210\nC\211 \315 \211 \205n @\211\250\203^ \324W\203T \202Y \325\326\"c\210\202d \327!c\210A\211\204> \315.\207" [newname inhibit-read-only name archive-proper-file-start descr args 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" " " nil t + 4 2 delete-char 13 128 decode-char eight-bit string-to-multibyte elt --dolist-tail--] 5])
(defalias 'archive-lzh-summarize #[(&optional start) "\206 \306\307\310\311\211
b\210\312\313!\203m
@\314@f!) A\315
\316\\\317\320# B\315
\321\\\317\320# C\315
\322\\\323\" D\315
\324\\\323\" E
\325\\ @\314@f!) F\311\211 G H\311\211 I J\311\211 K L\311\211 M N\311\211 O P\311\211 Q R\311\211 S T\311\211 U V\311\211 W X\311\211 Y ZF\326U\203\230 \327\330!\210F\307U\204\246 F\306U\203\320
\331\\ @\314@f!)H
\332\\\333
\332H#{ [\334[\\\")I\333
\332H#NF\306U\203\340 N\326\\O\202\354 F\323U\203\354
\335\\OO\2031\315O\323\" ]O\323\\ @\314@f!) ^]\307U\204*^\306U\203BO\326\\\211 _O]\\W\203>I\336_ @\314@f!)!PI_T\211_\202)\202 ^\323U\203\203O\326\\\211 _O]\\W\203U_ @\314@f!)\337U\203n\340\202s\336_f!PU_T\211_\202P)\202 ^\341U\203\226\315O\326\\\323\"P\202 ^\342U\203\262\315O\326\\\323\"R\315O\343\\\323\"S\202 ^\344U\203\340O\326\\\211 _O]\\W\203\334W\336_f!PW_T\211_\202\300)\202 ^\345U\203 O\326\\\211 _O]\\W\203\nX\336_f!PX_T\211_\202\356)O]\\O\315O\323\"]O\323\\ @\314@f!)^\202O
ZG*F\307U\203<AGF\307U\203G\307\202dF\306U\203Y\333
\332H\323$f\202dF\323U\205d
\346\\f\211J\347U\203p\350\202|J\307U\205|I\211\226\230\211K\203\210I\227\202\212ILU\203\231ULP\202\233L\211V\203\250\351V!\202\251\307MP\203\267\352P!\202\270\353QF\323U\203\312\354DE\"\202\316\355E!ZF\323U\203\340\356DE\"\202\344\357D!Y`\203\360\361CR\206\365\362S\206\373\362L%\202\360\363QCZYV&T M]\fC\\\364T\211GVGZTG# B\364VLKP
S%\nBF\306U\203O\333
A\323\365B!$\202hF\323U\204]F\307U\203h\333
G\323\365B!$.\202 eb\210`\203y\366\202z\367\370 \371\"\372Q`\203\211\373\202\212\374`\203\223\375\202\224\376 a b cbc\261\210\377 \237!\210c\360a\f\nG\nG\306U\203\273\201d \202\276\201e $\372\261\210+\201f \364\n\237\"-\207" [start visual files maxlen totalsize p 1 0 8 nil looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-" multibyte-char-to-unibyte archive-l-e 7 4 float 11 15 2 17 20 3 error "can't handle lzh level 3 header type" 21 22 + decode-coding-string 24 char-to-string 255 "/" 80 81 5 82 83 23 77 t string-width archive-int-to-mode "??????????" archive-unixdate archive-dosdate archive-unixtime archive-dostime format " %8.0f %5S %5S %s" "?" " %10s %8.0f %-11s %-8s %s" vector round "- -------- ----- ----- " "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Length Uid Gid File\n" "M Filemode Length Date Time File\n" " %8.0f %d file%s" " %8.0f %d file%s" archive-summarize-files pos hsize csize ucsize time1 time2 hdrlvl thsize fnlen efnname osid fiddle ifnname width p2 neh mode modestr uid gid text dir prname gname uname modtime moddate str archive-file-name-coding-system ehsize etype i archive-alternate-display sumline header dash "" "s" apply] 8])
(defconst archive-lzh-alternate-display t)
(defalias 'archive-lzh-extract #[(archive name) "\303 \n#\207" [archive name archive-lzh-extract archive-extract-by-stdout] 4])
(defalias 'archive-lzh-resum #[(p count) "\304 \304V\203 S\n\305 f!)\\\nT\202 \306\307\")\207" [sum count p pos 0 multibyte-char-to-unibyte logand 255] 3])
(defalias 'archive-lzh-rename-entry #[(newname descr) "\214\212~\210 \306H\\\211\307 f!) \n\310\\\307 f!) G \311\f
[# \312 \313V\2038 \314\315!\210\n\310\\b\210\316
T!\210D\211 \317 \211 \205\203 @\211\250\203s \320W\203i \202n \321\322\"c\210\202y \323!c\210 A\211 \204S \317+\210\nb\210\316\324!\210\325\n\"D\211 \317 \211 \205\320 @\211\250\203\300 \320W\203\266 \202\273 \321\322\"c\210\202\306 \323!c\210 A\211 \204\240 \317. \207" [archive-proper-file-start descr p pos oldhsize oldfnlen 4 multibyte-char-to-unibyte 21 + t 255 error "The file name is too long" delete-char nil 128 decode-char eight-bit string-to-multibyte 2 archive-lzh-resum newname newfnlen newhsize inhibit-read-only args elt --dolist-tail--] 5])
(defalias 'archive-lzh-ogm #[(newval files errtxt ofs) "\212\214~\210\306\211\205\n@ \307H\\\211 \310
f!) \f\311\\ \310
f!) \312\f\313 # ! Z\314Y\203H !\315\\ \310
f!)\202I \316 \"\317 #\"\320U\203$\247\204h $\321!%\\\315\"!$!%\\b\210\322\315!\210\323$\324\"\325$\326\"D\211 &\306 '\211\205\266 \n@\211'\250\203\250 '\327W\203\236 '\202\243 \330\331'\"c\210\202\256 \332'!c\210\nA\211\204\211 \306+\210\fTb\210\322\333!\210\334\fT \"C\211 &\306 '\211\205\377 \n@\211'\250\203\361 '\327W\203\347 '\202\354 \330\331'\"c\210\202\367 \332'!c\210\nA\211\204\322 \306+\210\202
\335\336 \333H(#\210.\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p pos nil 4 multibyte-char-to-unibyte 21 + 22 24 2 0 t 85 archive-l-e delete-char logand 255 lsh -8 128 decode-char eight-bit string-to-multibyte 1 archive-lzh-resum message "Member %s does not have %s field" hsize fnlen p2 creator inhibit-read-only newval ofs args elt errtxt] 5])
(defalias 'archive-lzh-chown-entry #[(newuid files) "\302 \303\304$\207" [newuid files archive-lzh-ogm "an uid" 10] 5])
(defalias 'archive-lzh-chgrp-entry #[(newgid files) "\302 \303\304$\207" [newgid files archive-lzh-ogm "a gid" 12] 5])
(defalias 'archive-lzh-chmod-entry #[(newmode files) "\301\302\303\304$\207" [files archive-lzh-ogm #[(old) "\302 \303#\207" [old newmode archive-calc-mode t] 4] "a unix-style mode" 8] 5])
#@75 Summarize the contents of an LZH self-extracting exe, for `archive-mode'.
(defalias 'archive-lzh-exe-summarize #[nil "\300\301\302\"\210\303\304\224!\207" [re-search-forward "..-l[hz][0-9ds]-" nil archive-lzh-summarize 0] 3 (#$ . 48204)])
(defalias 'archive-lzh-exe-extract 'archive-lzh-extract "Extract a member from an LZH self-extracting exe, for `archive-mode'.")
(defalias 'archive-zip-summarize #[nil "d\306Zb\210\307\310!\210e\311`\312\\\306\"\\\313\314\315\211 \f\211\306\\{\316\230\203Z\f\317\\ \320
f!) <\311\f\321\\\322\" =\311\f\323\\\322\" >\311\f\324\\\306\325# ?\311\f\326\\\322\" @\311\f\327\\\322\" A\311\f\330\\\322\" B\311\f\331\\\306\" C\f\332\\\333\f\332@#{ D\334DE\") F?\314U\205\212 \335F!\336\230 G<\337>\203\234 \311\f\340\\\322\"\202\312 <\341>\203\311 \342G\203\255 \343\202\256 \314\344\345\f\346\\ \320
f!)\347\"!\203\303 \350\202\304 \314\351#\202\312 \315\211 H\203\327 \352H!\202\330 \353 IJ\205\356 <\354>??\205\356 F\226F\230\211 K\203\372 F\227\202\374 F L\355L! M\356\357I?\360>!\361=!L& N M]\n?\\\362N\211GLGZNG#BG?\205G\362FLKH\fSCD% B\333\f\332@AB%.\202 eb\210\363\364 \365\"\366Q O\367O\261\210\370\237!\210O\356\371\n G G\347U\203\203\336\202\204\372$\366\261\210)\373\362 \237\"-\207" [visual files totalsize maxlen p pos 4 search-backward-regexp "[P]K" archive-l-e 16 8 0 nil "PK" 5 multibyte-char-to-unibyte 12 2 14 24 float 28 30 32 42 46 + decode-coding-string file-name-nondirectory "" (2 3) 40 (0 5 6 7 10 11 15) logior 16457 zerop logand 38 1 146 292 archive-int-to-mode "??????????" (0 2 4 5 9) string-width format " %10s %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Filemode Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" "s" apply creator modtime moddate ucsize fnlen exlen fclen lheader str archive-file-name-coding-system efnname isdir mode modestr archive-zip-case-fiddle fiddle ifnname width text dash] 8])
(defalias 'archive-zip-extract #[(archive name) "\306@\307\"\203 \310 \n#\207@\311\232\203 \303 \n\")\207\312 \f\313>\203/ \314\305!\203<
\204< @\315\232\203< \316\n!\202= \n#\207" [archive-zip-extract archive name archive-7z-extract system-type w32-quote-process-args member-ignore-case ("pkunzip" "pkzip") archive-*-extract "7z" archive-extract-by-stdout (windows-nt ms-dos) boundp "unzip" shell-quote-argument] 4])
(defalias 'archive-zip-write-file-member #[(archive descr) "\304 \211\305H\203
\n\202 #\207" [archive descr archive-zip-update-case archive-zip-update archive-*-write-file-member 2] 5])
(defalias 'archive-zip-chmod-entry #[(newmode files) "\214\212~\210\306\211\205\374 \n@ \307H@\\\211 \310\\ \311
f!) \" \312H #\313#$\314# %\314 &\"\315>\203\212 \f\316\\b\210\317\320!\210\321%\322\"\323%\324\"D\211 '\306 (\211\205\205 \n@\211(\250\203w (\325W\203m (\202r \326\327(\"c\210\202} \330(!c\210\nA\211\204X \306+\210\202\363 \"\331>\203\357 \f\332\\b\210\333\321` \311
f!)\334\"\321\335\323%\336\"\337\"\337\"\"C\211 '\306 (\211\205\346 \n@\211(\250\203\330 (\325W\203\316 (\202\323 \326\327(\"c\210\202\336 \330(!c\210\nA\211\204\271 \306+\210\317\337!\210\202\363 \340\341!\210-\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p pos nil 4 5 multibyte-char-to-unibyte 3 archive-calc-mode t (2 3) 40 delete-char 2 logand 255 lsh -8 128 decode-char eight-bit string-to-multibyte (0 5 6 7 10 11 15) 38 logior 254 logxor -7 1 message "Don't know how to change mode for this member" creator oldmode newmode newval inhibit-read-only args elt] 8])
(defalias 'archive-zoo-summarize #[nil "\306\307\310\"T\311\312\313\211 \f\211\310\\{\314\230\203<\306\f\315\\\310\"\312V\203<\306\f\315\\\310\"T \306\f\316\\\317\" 0\306\f\320\\\317\" 1\306\f\321\\\310\322# 2\f\323\\\324\f\323\325#{ 3\f\310\\ 4\3264f!)\211 5\317U\203p \f\327\\ 4\3264f!)\202q \312 65\317U\203\210 \f\330\\ 4\3264f!)\202\211 \312 7\331\3323\"\206\224 \325 87\312V\203\262 \324\f\3336#\324\f\33367\334%{\335P\202\263 \3366\312V\203\310 \f\333\\\324\f\3336\334${\202\316 3\3128OP 9\3379:\") ;6\312U\205\346 ;\211\226\230\211 <\203\362 ;\227\202\364 ; =\340=! >\341\3422\3430!\3441!=% ? >]\n2\\\345?\211G=GZ?G#B\345;=<\313\fS% B
.\202 eb\210\346\347 \350\"\351Q @\352@\261\210\353\237!\210@\341\354\n G G\355U\203e\336\202f\356$\351\261\210)\357\345 \237\"-\207" [visual files totalsize maxlen p next archive-l-e 25 4 8 0 nil "\334\247\304\375" 6 14 2 16 20 float 38 + 13 multibyte-char-to-unibyte 56 57 string-match " " 58 -1 "/" "" decode-coding-string string-width format " %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" 1 "s" apply moddate modtime ucsize namefld pos dirtype lfnlen ldirlen fnlen str archive-file-name-coding-system efnname fiddle ifnname width text dash] 8])
(defalias 'archive-zoo-extract #[(archive name) "\303 \n#\207" [archive name archive-zoo-extract archive-extract-by-stdout] 4])
(defalias 'archive-rar-summarize #[(&optional file) "\204 \306!\307\310 \311 \312\313! .r.q\210\314\216\315\316\311\317\311\320\206' \n&\210\n\2032 \321\n!\210eb\210\322\323!\210\324\325!\203~ \326\225b\210\327\330!\327\331! /\211 0G V\203X 0G/G\fV\203d /G\3320\211\311\211/\327\333!\327\334!\327\310!&
B*\2029 +
\237eb\210\335\336\f\" \335 \337\340\341\f\342\"\340\343&\211 1G 2\335 \344\345\346\347\350&\351\261\2101\341 \342\"\351\261\210\352\353\354
\"!\2101\341 \342\"\351\261\210\355\332
\".\207" [file buffer-file-name copy maxname maxsize files file-local-copy 10 5 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) call-process "unrar-free" t "--list" delete-file re-search-forward "^-+\n" looking-at " \\(.*\\)\n +\\([0-9]+\\) +[0-9]+ +\\([0-9%]+\\) +\\([-0-9]+\\) +\\([0-9:]+\\) +[^ \n]\\{6,10\\} +[0-9A-F]+ +[^ \n]+ +[0-9.]+\n" 0 match-string 1 2 vector 3 4 format " %%s %%s %%%ds %%5s %%s" "--------" "-----" make-string 45 "" " Date " "Time " "Size " "Ratio" " Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H&\311\n \nG#)\207" [format desc text column 6 7 4 5 1 vector] 8] apply #1# size name sep column] 11])
(defalias 'archive-rar-extract #[(archive name) "\302!\203\n \303\304!\207\305 \306\307$\207" [name archive file-name-absolute-p error "Can't extract files with non-relative names" archive-extract-by-file ("unrar-free" "--extract") "All OK"] 5])
(defalias 'archive-rar-exe-summarize #[nil "\301\302!\303\216eb\210\304\305!\210\306\307\224d#\210\310!*\207" [tmpfile make-temp-file "rarexe" ((delete-file tmpfile)) re-search-forward "Rar!" write-region 0 archive-rar-summarize] 4])
(defalias 'archive-rar-exe-extract #[(archive name) "\305\306!\307 !\211?\205 \310\311!\312\216r\n\206 q\210\212\214\n\203) db\210~\210\2020 \313 !\210eb\210\314\315!\210\316\317\224d#\210+\320\f\",\207" [tmpfile archive buf tmpbuf name make-temp-file "rarexe" find-buffer-visiting generate-new-buffer " *rar-exe*" ((byte-code "\203 \302!\210\303 !\207" [tmpbuf tmpfile kill-buffer delete-file] 2)) insert-file-contents-literally re-search-forward "Rar!" write-region 0 archive-rar-extract] 5])
(defalias 'archive-7z-summarize #[nil "\306\307\310 \311\312! r
q\210\313\216\314\315\310\316\310\317\320\n&\210eb\210\321\322!\210\321\323\310\316#\203{ \324\225b\210\325\326!\212\321\327!\205= \325\326!)\212\321\330!\205H \325\326!) ( )\211 *G\fV\203Z *G)G V\203f )G\331*\211\310\211(\310\211)& B+\202$ + \237eb\210\332\333 \" \332\334 \335\"\336\337$\211 +G ,\332\340\341\342$\343\261\210+\334\f\335\"\343\261\210\344\345\346 \"!\210+\334\f\335\"\343\261\210\347\331 \".\207" [buffer-file-name files file maxsize maxname #1=#:temp-buffer 10 5 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "7z" t "l" "-slt" re-search-forward "^-----+\n" "^Path = \\(.*\\)\n" 0 match-string 1 "^Size = \\(.*\\)\n" "^Modified = \\(.*\\)\n" vector format " %%%ds %%s %%s" make-string 45 "-------------------" "" "Size " "Date Time " " Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H$\307\n \nG#)\207" [format desc text column 7 4 1 vector] 6] apply time size name sep column] 10])
(defalias 'archive-7z-extract #[(archive name) "\303 \n\304$\207" [archive name archive-7z-extract archive-extract-by-stdout "Everything is Ok"] 5])
(defalias 'archive-7z-write-file-member #[(archive descr) "\303 \n#\207" [archive descr archive-7z-update archive-*-write-file-member] 4])
(autoload 'tar-grind-file-mode "tar-mode")
(defconst archive-ar-file-header-re "\\(.\\{16\\}\\)\\([ 0-9]\\{12\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-7]\\{8\\}\\)\\([ 0-9]\\{10\\}\\)`\n")
(defalias 'archive-ar-summarize #[nil "\306\307\310\211\311 \310 \312 8eb\210\313\314!\210\3159!\203$\316\317!\312\320\316\321!!\316\322!\316\323!\320\316\310!\311\"\320\316\324!! : ; < = > ? @\325\225b\210\326\327\330>\331\245!\211 A\330>\332A_Z!)D\">@\333\232\203q \334\335\336\337#\202\216 @\340\232\203\200 \334\341\336\337#\202\216 \342\343@\"\205\216 @\325\211\224O?=\325\342\344=\"O=<\325\342\344<\"O<\345;!;:u\210\312f\306=\203\272 \317u\210\346:!:@GV\203\314 @G>G V\203\330 >G=G\nV\203\344 =G<G V\203\360 <G;G\fV\203\374 ;G:G
V\203:G\347@?\312;>=<:&8B8.\202 8\2378eb\210\350\351\f\n
& (\350(\352\f\353\"\352\n\353\"\352 \353\"\352
\353\"\352 \353\"\354&\211 BG C\350(\355\356\357\360\361\362&\363\261\210B\352\353\"\363\261\210\364\365\3668\"!\210B\352\353\"\363\261\210\367\3478\".\n\207" [maxname maxtime maxuser maxgroup maxmode maxsize 10 16 5 8 nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 2 3 4 6 0 format-time-string "%Y-%m-%d %H:%M" truncate 65536 65536.0 "// " propertize ".<ExtNamesTable>." face italic "/ " ".<LookupTable>." string-match "/? *\\'" " +\\'" tar-grind-file-mode number-to-string vector format "%%%ds %%%ds/%%-%ds %%%ds %%%ds %%s" make-string 45 "" " Mode " "User" "Group" " Size " " Date " "Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H \311H&\312\n \nG#)\207" [format desc text column 3 5 6 7 4 1 vector] 9] apply files archive-ar-file-header-re size mode group user time extname name high sep column] 10])
(defalias 'archive-ar-extract #[(archive name) "p\306!\307\211 r q\210\214\212~\210\310\311!\210\n\204M \312
!\203M \313\314! \315\313\316!!\317\225b\210\232\203< `\202I u\210\307f\320=\203I \314u\210)\202 \n\205g \321\307!\210r\fq\210\322 \n\211 \\#\210)\321\323!\210\324.\207" [archive size from archivebuf destbuf archive-ar-file-header-re find-file-noselect nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 6 0 10 set-buffer-multibyte insert-buffer-substring to t this name] 5])
(byte-code "\300\301!\210\300\302!\207" [provide archive-mode arc-mode] 2)