emacs-27.2/lisp/arc-mode.el

107 (defgroup archive nil  unknown
113   :group 'archive)
117   :group 'archive)
121   :group 'archive)
125   :group 'archive)
135   :group 'archive)
142   :group 'archive)
149   :group 'archive)
157   :group 'archive)
481     (define-key map [menu-bar operate expunge]
892 (defun archive-maybe-copy (archive)
903 		   archive)))
911       archive)))
1015          (archive (buffer-file-name))
1016          (arcname (file-name-nondirectory archive))
1031 	(setq archive (archive-maybe-copy archive))
1061 			  (funcall extractor archive ename)
1062 			(archive-*-extract archive ename
1099 (defun archive-*-extract (archive name command)
1111 		 (append (cdr command) (list archive name))))
1127 (defun archive-extract-by-stdout (archive name command &optional stderr-test)
1136 		   (append (cdr command) (list archive name)))
1147 (defun archive-extract-by-file (archive name command &optional stdout-test)
1238 	    (archive (with-current-buffer archive-superior-buffer
1241 	    (funcall writer archive archive-subfile-mode)
1242 	  (archive-*-write-file-member archive
1255 (defun archive-*-write-file-member (archive descr command)
1285 					  (list archive ename)))))
1428 	 (let ((archive (archive-maybe-copy (buffer-file-name)))
1431 	       (funcall expunger archive files)
1432 	     (archive-*-expunge archive files (symbol-value expunger)))
1438 (defun archive-*-expunge (archive files command)
1444 	 (append (cdr command) (cons archive files))))
1697 (defun archive-lzh-extract (archive name)
1698   (archive-extract-by-stdout archive name archive-lzh-extract))
1890 (defun archive-zip-extract (archive name)
1893     (archive-*-extract archive name archive-zip-extract))
1896       (archive-7z-extract archive name)))
1899      archive
1913 (defun archive-zip-write-file-member (archive descr)
1915    archive
2007 (defun archive-zoo-extract (archive name)
2008   (archive-extract-by-stdout archive name archive-zoo-extract))
2067 (defun archive-rar-extract (archive name)
2073     (archive-extract-by-file archive name '("unar" "-no-directory" "-o") "Successfully extracted")))
2087 (defun archive-rar-exe-extract (archive name)
2089          (buf (find-buffer-visiting archive))
2100                   (insert-file-contents-literally archive)
2155 (defun archive-7z-extract (archive name)
2160    archive name archive-7z-extract "Everything is Ok"))
2162 (defun archive-7z-write-file-member (archive descr)
2164    archive
2254 (defun archive-ar-extract (archive name)
2256         (archivebuf (find-file-noselect archive))