;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:32 2007 ;;; from file /home/cyd/emacs/lisp/arc-mode.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`arc-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\301%\210\300\310\302\311\304\301%\210\300\312\302\313\304\301%\210\300\314\302\315\304\301%\207" [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."] 6) #@54 Directory for temporary files made by `arc-mode.el'. (custom-declare-variable 'archive-tmpdir '(make-temp-name (expand-file-name (if (eq system-type 'ms-dos) "ar" "archive.tmp") temporary-file-directory)) '(#$ . 990) :type 'directory :group 'archive) #@186 *Regexp recognizing archive files names that are not local. A non-local file is one whose file name is not proper outside Emacs. A local copy of the archive will be used when updating. (custom-declare-variable 'archive-remote-regexp '"^/[^/:]*[^/:.]:" '(#$ . -1248) :type 'regexp :group 'archive) #@58 *Hooks to run when an archive member has been extracted. (custom-declare-variable 'archive-extract-hooks 'nil '(#$ . -1551) :type 'hook :group 'archive) #@164 *Program and its options to run in order to extract an arc file member. Extraction should happen to the current directory. Archive and member name will be added. (custom-declare-variable 'archive-arc-extract ''("arc" "x") '(#$ . -1711) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@110 *Program and its options to run in order to delete arc file members. Archive and member names will be added. (custom-declare-variable 'archive-arc-expunge ''("arc" "d") '(#$ . -2070) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@111 *Program and its options to run in order to update an arc file member. Archive and member name will be added. (custom-declare-variable 'archive-arc-write-file-member ''("arc" "u") '(#$ . -2375) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@158 *Program and its options to run in order to extract an lzh file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-lzh-extract ''("lha" "pq") '(#$ . -2691) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@110 *Program and its options to run in order to delete lzh file members. Archive and member names will be added. (custom-declare-variable 'archive-lzh-expunge ''("lha" "d") '(#$ . -3045) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@111 *Program and its options to run in order to update an lzh file member. Archive and member name will be added. (custom-declare-variable 'archive-lzh-write-file-member ''("lha" "a") '(#$ . -3350) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@157 *Program and its options to run in order to extract a zip file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-zip-extract '(if (and (not (executable-find "unzip")) (executable-find "pkunzip")) '("pkunzip" "-e" "-o-") '("unzip" "-qq" "-c")) '(#$ . -3666) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@110 *Program and its options to run in order to delete zip file members. Archive and member names will be added. (custom-declare-variable 'archive-zip-expunge '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-d") '("zip" "-d" "-q")) '(#$ . -4122) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@189 *Program and its options to run in order to update a zip file member. Options should ensure that specified directory will be put into the zip file. Archive and member name will be added. (custom-declare-variable 'archive-zip-update '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-u" "-P") '("zip" "-q")) '(#$ . -4516) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@196 *Program and its options to run in order to update a case fiddled zip member. Options should ensure that specified directory will be put into the zip file. Archive and member name will be added. (custom-declare-variable 'archive-zip-update-case '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-u" "-P") '("zip" "-q" "-k")) '(#$ . -4988) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@153 *If non-nil then zip file members may be down-cased. This case fiddling will only happen for members created by a system that uses caseless file names. (custom-declare-variable 'archive-zip-case-fiddle 't '(#$ . -5477) :type 'boolean :group 'archive-zip) #@157 *Program and its options to run in order to extract a zoo file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-zoo-extract ''("zoo" "xpq") '(#$ . -5739) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@110 *Program and its options to run in order to delete zoo file members. Archive and member names will be added. (custom-declare-variable 'archive-zoo-expunge ''("zoo" "DqPP") '(#$ . -6093) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@110 *Program and its options to run in order to update a zoo file member. Archive and member name will be added. (custom-declare-variable 'archive-zoo-write-file-member ''("zoo" "a") '(#$ . -6401) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@33 Symbol describing archive type. (defvar archive-subtype nil (#$ . 6715)) #@34 Position of first contents line. (defvar archive-file-list-start nil (#$ . 6794)) #@41 Position just after last contents line. (defvar archive-file-list-end nil (#$ . 6882)) #@35 Position of real archive's start. (defvar archive-proper-file-start nil (#$ . 6975)) #@46 Non-nil if the archive is read-only on disk. (defvar archive-read-only nil (#$ . 7066)) #@39 Name of local copy of remote archive. (defvar archive-local-name nil (#$ . 7160)) #@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\325#\210\304\326\306#\210\304\327\306#\210\304\330\306#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\334#\210\304\340\334#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\332#\210\304\356\357#\210\304\360\361#\210\304\362\363#\210\364\365!\203\304\304\366\367#\210\304\370\367#\210\202\322\371\372\367 $\210\371\373\367 $\210\304\374\315#\210\304\375\376\377\376!B#\210\304\201@\201A#\210\304\201B\201C#\210\304\201D\201E#\210\304\201F\201G#\210\304\201H\201I#\210\304\201J\201K\377\201K!B#\210\304\201L\201M#\210\304\201N\201O#\210\304\201P\201Q#\210\304\201R\201S#\210\304\201T\201U\377\201U!B#\210\304\201V\201W#\210\304\201X\201Y#\210\304\201Z\201[#\210\304\201\\\201]#\210\304\201^\201_#\210)\207" [map global-map make-keymap suppress-keymap define-key " " archive-next-line "a" archive-alternate-display "d" archive-flag-deleted "" "e" archive-extract "f" " " "g" revert-buffer "h" describe-mode "m" archive-mark "n" "" [down] "o" archive-extract-other-window "p" archive-previous-line "q" quit-window "" [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 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) (#$ . 7248)) #@32 Column where file names start. (defvar archive-file-name-indent nil (#$ . 11043)) #@48 Non-nil if the archive is outside file system. (defvar archive-remote nil (#$ . 11131)) (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 (#$ . 11342)) (make-variable-buffer-local 'archive-member-coding-system) #@46 Non-nil when alternate information is shown. (defvar archive-alternate-display nil (#$ . 11495)) (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 (#$ . 11726)) (put 'archive-superior-buffer 'permanent-local t) #@36 Non-nil in archive member buffers. (defvar archive-subfile-mode nil (#$ . 11871)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-subfile-mode 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 (#$ . 12083)) (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\211\n W\2036\nT\f\203( \306_\202,\307 \310\" \nZH\\\202 *\207" [str len i result float 0 256.0 ash 8] 4 (#$ . 12485)]) #@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 (#$ . 13022)]) #@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\" H\\\314\\ T\211\202\315\316\f\317\" \"+\207\306\320\"\203\310\f\321\224H\310\313\224)* \313\225W\203\221 H+\315 +\322U\203_\323\202\210+\324U\203j\325\202\210+\326U\203u\327\202\210+\330U\203\200\331\202\210+\332U\205\210\333\" T)\202F*\311\225W\203*H\211,\334U\203\251\335\202\307,\336U\203\264\337\202\307,\340U\203\277\341\202\307,\342U\205\307\343-)\344U\203\330\316 \345-!\")\346U\203\355\316 \345\316- \"!\"\202\366\315 \316- \"\"**T\211*\202\223 -\207'\205\f\347\350\"\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 (#$ . 13833)]) #@35 Stringify dos packed DATE record. (defalias 'archive-dosdate #[(date) "\304\305\306\"\307\"\310\\\304\305\311\"\312\"\304\313\"\n\314V\204#\n\315W\203'\316\2020\317\320 \321\nSH $+\207" [date day month year logand ash -9 127 1980 -5 15 31 12 1 "" format "%2d-%s-%d" ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"]] 5 (#$ . 15273)]) #@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 (#$ . 15646)]) #@33 Stringify Unix (LOW HIGH) date. (defalias 'archive-unixdate #[(low high) "\303 B!\304\305\n\306\307O\n\310\311O\n\312\313O$)\207" [high low str current-time-string format "%s-%s-%s" 8 10 4 7 20 24] 7 (#$ . 15897)]) #@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 (#$ . 16120)]) (defalias 'archive-get-lineno #[nil "`Y\203\301\212\302 \210`)\"\207\303\207" [archive-file-list-start count-lines beginning-of-line 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 (#$ . 16432)]) #@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\n \207 ?\205\n?\205\277\310 \311\312 !!\313 \210\314\305!\210 \314\315!\210\316 \317\320!\210,\204=\321\322\323\324\325$\210\314\326!\210\324\314\327!\210\324\314\330!\210\325\314\331!\210\332\333 !?\206k-\205k\334.-\320H\"\314\335!\210,\204\207\334/\333 \"\206\205\334.\333 \",\3360\f\337P1\340\3412\342\343\312 !\3442R!)\345\"\210\3463!\210*\314\347!\210\314\350!\210\314\351!\210\314\352!\210\353\324!\210\325\2114\207" [default-major-mode force archive-files type typename archive-subtype zerop buffer-size archive-find-type capitalize symbol-name kill-all-local-variables make-local-variable revert-buffer-function 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 archive-summarize archive-remote archive-subfile-mode file-name-invalid-regexp archive-remote-regexp major-mode mode-name suffix archive-mode-map buffer-read-only] 6 (#$ . 16907)]) (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\202H\303\306!\203\307\202H\303\310!\203%\311\202H\303\312!\203;\313\314 \2063\315 \"\203;\316\202H\303\317!\203E\320\202H\321\322!)\207" [case-fold-search buffer-file-name nil looking-at "[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 error "Buffer format not recognized"] 3]) #@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!\210\310 \204\311\312!\210\313p!\210\314\315\316\317 !\320\nR!)  \204*\311\321!\210\322 e`}\210\323\307!\210\324 \210)b\210\325\326!\207" [inhibit-read-only shut-up suffix archive-subtype archive-files archive-proper-file-start set-buffer-multibyte nil t 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-file-list-start] 5 (#$ . 19374)]) #@46 Recreate the contents listing of an archive. (defalias 'archive-resummarize #[nil "\305 \306 \307~\210e |\210\310\307!\210\311\n!\210\fb\210\312 !+\207" [inhibit-read-only no modified archive-proper-file-start archive-file-list-start buffer-modified-p archive-get-lineno t archive-summarize restore-buffer-modified-p archive-next-line] 3 (#$ . 20253)]) #@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 (#$ . 20615)]) #@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 (#$ . 21124) 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) "\305 \"\306\n\" \204\307\f!\203,\310\305\311\312!\203%\312 \204%\313\202&\314 \"!\202-\f*\207" [fname dir file-name-invalid-regexp alien fullname expand-file-name string-match file-exists-p make-temp-file fboundp msdos-long-file-names "am" "arc-mode."] 4 (#$ . 21422)]) (defalias 'archive-maybe-copy #[(archive) "\306 \2036d\n\203\n\307H\206 \310\f\"\311\312!\313\"\210\214~\210\314 d\315\316%\210)*\202?\317 \203>\320 \210 )\207" [coding-system-for-write archive-remote archive-subfile-mode archive archive-name start no-conversion 0 archive-unique-fname make-directory file-name-directory t 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 (#$ . 23125)]) (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\203F\f\314=\204F\315ed\f#\210\202I\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 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 (#$ . 23691)]) (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&\306\211:\203\3078:\203\307\202\3108\202#\311 `\312\313F)!\210 \314=\315 \211\313H \310Hp@AB\316 C\317C!D\317 !\320D\321RE\322F\323\324\325G!\326FR!)HI\206o\n\206o\327J\f\"K\330D\331 Q!L\332E!M\333NM\203\222\316M!L\230\2048\334C!C\335E!E\336E!M\337NrMq\210L\340!OBA\341\342!\210@\"\343\344\345\333\337$\210 PQ\205\323R\346ST\347\350\351\217*\204\361N\203\361\352\333!\210\353M!\210\2023\354\f!\210eb\210\355E!\210KU\333V\352\333!\210\356 W\357 \210\360\361!\203&\337XK\203 \337I\362\363\364\337#\210\365\366!\210I\2033\367\370!\210)\371\337!\210\372M!?\206m\n\203Q\373MN\205M\353\"\202m \374=\203^\375M!\202m \203i\376M!\202m\377M!.\207" [event other-window-p view-p descr ename iname posn-set-point 2 1 selected-window (0 . 0) 0 view archive-get-descr 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-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-hooks message "Note: altering this archive is not implemented." archive-maybe-update buffer-name view-buffer 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 buffer-file-truename archive-subfile-mode enable-multibyte-characters file-name-coding-system coding-system-for-read coding-system-for-write buffer-read-only buffer-undo-list buffer-saved-size archive-remote] 6 (#$ . 24578) (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\f\320U\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 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 command archive] 11]) (defalias 'archive-extract-by-stdout #[(archive name command) "\303\304@\305\306\305\307A \nD\"&\207" [command archive name apply call-process nil t append] 10]) #@54 In archive mode, find this member in another window. (defalias 'archive-extract-other-window #[nil "\300\301!\207" [archive-extract t] 2 (#$ . 27874) nil]) #@57 In archive mode, display this member in another window. (defalias 'archive-display-other-window #[nil "\300\301!\207" [archive-extract display] 2 (#$ . 28036) nil]) #@48 In archive mode, view the member on this line. (defalias 'archive-view #[nil "\300\301!\207" [archive-extract view] 2 (#$ . 28207) nil]) #@61 Add current buffer to the archive in ARCBUF naming it NAME. (defalias 'archive-add-new-member #[(arcbuf name) "rq\210 \306=\204\307\310!\210\n\203\307\311!\210)p=\203!\307\312!\210 \313\230\203+\307\314!\210rq\210\315\316\317\320 !\321\fR!*p\322!\203Wrq\210 #)\202Z\307\323!*\207" [arcbuf major-mode archive-read-only name suffix archive-subtype 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" membuf func buffer-file-name] 5 (#$ . 28350) (list (get-buffer (read-buffer "Buffer containing archive: " (let ((bufs (buffer-list))) (while (and bufs (not (with-current-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\320ed \321\322%\210\323H\203F\324 \325\323H\326\"\"\210 \203Q\327 !\"\330\331\"@\321\211\211\332\"A# D\"&\211$\306\232?\205r\333\334$\".\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 apply call-process append error "Updating was unsuccessful (%S)" major-mode last-coding-system-used archive-member-coding-system enable-multibyte-characters file-name-coding-system command archive exitcode] 11]) (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 (#$ . 31203) "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 (#$ . 31715) "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 (#$ . 31946) "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 (#$ . 32190) 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 (#$ . 32512) "p"]) (defalias 'archive-get-marked #[(mark &optional default) "\305\212 b\210`\nW\203g 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 (#$ . 33201) "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 (#$ . 33849) "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 (#$ . 34327) "nNew gid: "]) #@27 Do the flagged deletions. (defalias 'archive-expunge #[nil "\306\212 b\210`\nW\203g\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 (#$ . 34805) 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 !\203? \2036\321 \"\2027 \f\"\210\322 \202B\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" enable-multibyte-characters file-name-coding-system] 5 (#$ . 35781) "sNew name: "]) (defalias 'archive-mode-revert #[(&optional no-auto-save no-confirm) "\305 \306\211\307\310\306!\210\311\312\211\"\210*\313 \210\fb\210\314!)\207" [no archive-files coding-system-for-read revert-buffer-function archive-file-list-start archive-get-lineno nil no-conversion set-buffer-multibyte 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 (#$ . 36792) nil]) (defalias 'archive-arc-summarize #[nil "\306\307\310\311\211\f\312\\dW\203\270\ff\313U\203\270\fTf\307V\203\270\f\314\\\f\315\\{\316\317 \"\2061\320' \307'O(\321\f\315\\\322\323#)\321\f\324\\\314\"*\321\f\325\\\314\"+\321\f\326\\\322\323#,(\211\226\230\211-\203m(\227\202o(.\327\330,\331*!\332+!.%/\n'] ,\\\333/\211G.GZ/G#B\333(.-\311\fS% B\f\334)!\\\312\\.\n\202\neb\210\335\336\n\337\"\340Q0\3410\261\210\342\237!\2100\327\343 G G\306U\203\341\344\202\342\345$\340\261\210)\346\333 \237\"-\207" [visual files maxlen totalsize p namefld 1 0 8 nil 29 26 2 15 string-match "" 13 archive-l-e 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 fnlen efnname csize moddate modtime ucsize fiddle ifnname text dash] 8]) (defalias 'archive-arc-rename-entry #[(newname descr) "\305\306\"\203 \307\310!\210G\311V\203\307\312!\210\313G\314OP\315\214\212~\210\316\314!\210 \f\317H\\\320\\b\210\321\322!\210\nc,\207" [newname inhibit-read-only name archive-proper-file-start descr 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 set-buffer-multibyte 4 2 delete-char 13] 4]) (defalias 'archive-lzh-summarize #[(&optional start) "\206\306\307\310\311\211 b\210\312\313!\203I f@\314 \315\\\316\317#A\314 \320\\\316\317#B\314 \321\\\322\"C\314 \323\\\322\"D \324\\fE\311\211FG\311\211HI\311\211JK\311\211LM\311\211NO\311\211PQ\311\211RS\311\211TU\311\211VW\311\211XYE\325U\203\212\326\327!\210E\307U\204\230E\306U\203\307 \330\\fG \331\\ G\\\331\\{Z[\203\270\332Z[\"\202\274\333Z!)H G\\\331\\ME\306U\203\327M\325\\N\202\343E\322U\203\343 \334\\NN\203\f\314N\322\"\\N\322\\f]\\\307U\204]\306U\203+N\325\\\211^N\\\\W\203'H\335^f!PH^T\211^\202 )\202\355]\322U\203eN\325\\\211^N\\\\W\203aT^f\336U\203P\337\202U\335^f!PT^T\211^\2029)\202\355]\340U\203x\314N\325\\\322\"O\202\355]\341U\203\224\314N\325\\\322\"Q\314N\342\\\322\"R\202\355]\343U\203\302N\325\\\211^N\\\\W\203\276V\335^f!PV^T\211^\202\242)\202\355]\344U\203\355N\325\\\211^N\\\\W\203\354W\335^f!PW^T\211^\202\320)N\\\\N\314N\322\"\\N\322\\f]\202\366N ZF*E\307U\203@FE\307U\203\"\307\202>E\306U\2033 G\\\334\\f\202>E\322U\205> \345\\f\211I\346U\203J\347\202VI\307U\205VH\211\226\230\211J\203bH\227\202dHKT\203sTKP\202uK\211U\203\202\350U!\202\203\307LO\203\221\351O!\202\222\352PE\322U\203\244\353CD\"\202\250\354D!YE\322U\203\272\355CD\"\202\276\356C!X_\203\333\357\360BQ\206\317\361R\206\325\361K%\202\351\357\362PBYXU&S L]\fB\\\363S\211GUGZSG# B\363UKJO S%\nBE\306U\203* @\\\364A!\\\322\\\202DE\322U\2048E\307U\203D F\\\364A!\\\322\\.\202eb\210\365`!\210_\203Z\366\202[\367\370 \371\"\372Q_\203j\373\202k\374_\203t\375\202u\376abcbc\261\210\377 \237!\210c\357a\f\nG\nG\306U\203\234\201d\202\237\201e$\372\261\210+\201f\363\n\237\"-\207" [start visual files maxlen totalsize p 1 0 8 nil looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-" 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 string-as-multibyte 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 set-buffer-multibyte "- -------- ----- ----- " "- ---------- -------- ----------- -------- " 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 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 file-name-coding-system ehsize etype i archive-alternate-display default-enable-multibyte-characters sumline header dash "" "s" apply] 8]) (byte-code "\301B\302\303!\207" [current-load-list archive-lzh-alternate-display (lambda (#1=#:defconst-tmp-var) (defconst archive-lzh-alternate-display #1#)) t] 2) (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) "\303 \303V\203 S\nf\\\nT\202\304\305\")\207" [sum count p 0 logand 255] 3]) (defalias 'archive-lzh-rename-entry #[(newname descr) "\214\212~\210\306\307!\210 \310H\\\211f\n\311\\f G \\\f[\\\312\313V\2031\314\315!\210\n\311\\b\210\316\fT!\210 \261\210\nb\210\316\317!\210\320\n\"\261.\207" [archive-proper-file-start descr p oldhsize oldfnlen newname set-buffer-multibyte nil 4 21 t 255 error "The file name is too long" delete-char 2 archive-lzh-resum newfnlen newhsize inhibit-read-only] 5]) (defalias 'archive-lzh-ogm #[(newval files errtxt ofs) "\212\214~\210\306\307!\210\307\211\203\227\n@ \310H\\\211f\f\311\\f\f\\\312\\ Z\313Y\203;\314\\f\202<\315\316\317U\203\205\247\204[\320\\\314\"!\\b\210\321\314!\210\322\323\"\324\325\"\261\210\fTb\210\321\326!\210\327\fT \"c\210\202\216\330\331 \326H #\210.\nA\211\204,\307\207" [files fil #1=#:--cl-dolist-temp-- archive-proper-file-start p hsize set-buffer-multibyte nil 4 21 22 24 2 0 t 85 archive-l-e delete-char logand 255 lsh -8 1 archive-lzh-resum message "Member %s does not have %s field" fnlen p2 creator inhibit-read-only newval ofs 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 (#$ . 43434)]) (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\\f\311\f\320\\\321\";\311\f\322\\\321\"<\311\f\323\\\306\324#=\311\f\325\\\321\">\311\f\326\\\321\"?\311\f\327\\\321\"@\311\f\330\\\306\"A\f\331\\\f>\\\331\\{BC\203|\332BC\"\202\200\333B!)D=\314U\205\220\334D!\335\230E \336>\203\241\311\f\337\\\321\"\202\311 \340>\203\310\341E\203\261\342\202\262\314\343\344\f\345\\f\346\"!\203\302\347\202\303\314\350#\202\311\315\211F\203\326\351F!\202\327\352GH\205\354 \353>??\205\354D\226D\230\211I\203\370D\227\202\372DJ\354J!K\355\356G=\357\\?\\@\\\331\\.\202eb\210\362\363 \364\"\365QM\366M\261\210\367\237!\210M\355\370\n G G\346U\203\203\335\202\204\371$\365\261\210)\372\361 \237\"-\207" [visual files totalsize maxlen p creator 4 search-backward-regexp "[P]K" archive-l-e 16 8 0 nil "PK" 5 12 2 14 24 float 28 30 32 42 46 decode-coding-string string-as-multibyte 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 modtime moddate ucsize fnlen exlen fclen lheader str file-name-coding-system efnname isdir mode modestr archive-zip-case-fiddle fiddle ifnname width text dash] 8]) (defalias 'archive-zip-extract #[(archive name) "@\303\232\203 \304 \n#\207\305 \n#\207" [archive-zip-extract archive name "pkzip" archive-*-extract archive-extract-by-stdout] 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\307!\210\307\211\203\201\n@ \310H@\\\211\311\\f \312H\313\314# \314! \315>\203O\f\316\\b\210\317\320!\210\321 \322\"\323 \324\"\261\210\202y \325>\203u\f\326\\b\210\327\321`f\330\"\321\331\323 \332\"\333\"\333\"\"c\210\317\333!\210\202y\334\335!\210-\nA\211\204,\307\207" [files fil #1=#:--cl-dolist-temp-- archive-proper-file-start p creator set-buffer-multibyte nil 4 5 3 archive-calc-mode t (2 3) 40 delete-char 2 logand 255 lsh -8 (0 5 6 7 10 11 15) 38 logior 254 logxor -7 1 message "Don't know how to change mode for this member" oldmode newmode newval inhibit-read-only] 8]) (defalias 'archive-zoo-summarize #[nil "\306\307\310\"T\311\312\313\211\f\211\310\\{\314\230\2030\306\f\315\\\310\"\312V\2030\306\f\315\\\310\"T\306\f\316\\\317\"/\306\f\320\\\317\"0\306\f\321\\\310\322#1\f\323\\\f\324\\{2\f\310\\f\2113\317U\203`\f\325\\f\202a\31243\317U\203q\f\326\\f\202r\3125\327\3302\"\206}\33165\312V\203\233\f4\\\332\\\f4\\5\\\326\\{\333P\202\234\3344\312V\203\260\f\332\\\f4\\\326\\{\202\2662\3126OP78\203\307\33578\"\202\313\3367!)94\312U\205\3329\211\226\230\211:\203\3469\227\202\3509;\337;!<\340\3411\342/!\3430!;%= <]\n1\\\344=\211G;GZ=G#B\3449;:\313\fS% B .\202eb\210\345\346 \347\"\350Q>\351>\261\210\352\237!\210>\340\353\n G G\354U\203Y\334\202Z\355$\350\261\210)\356\344 \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 51 56 57 string-match "" 13 58 "/" "" decode-coding-string string-as-multibyte 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 dirtype lfnlen ldirlen fnlen str 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]) (byte-code "\300\301!\210\300\302!\207" [provide archive-mode arc-mode] 2)