mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Port arc to Android

Browse Source 
* lisp/arc-mode.el (archive-zip-extract): Default to -q and -p
when the Android system unzip is being employed.
This commit is contained in:
Po Lu 2023-10-08 10:42:47 +08:00
parent a01203ce33
commit 940df63d2d
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/arc-mode.el
View File

@ -231,13 +231,27 @@ Archive and member name will be added."
:group 'archive)
(defcustom archive-zip-extract
(cond ((executable-find "unzip") '("unzip" "-qq" "-c"))
(cond ((executable-find "unzip")
(if (and (eq system-type 'android)
;; Mind that the unzip provided by Android
;; does not understand -qq or -c, their
;; functions being assumed by -q and -p
;; respectively. Furthermore, the user
;; might install an unzip executable
;; distinct from the system-provided unzip,
;; and such situations must be detected as
;; well.
(member (executable-find "unzip")
'("/bin/unzip"
"/system/bin/unzip")))
'("unzip" "-q" "-p")
'("unzip" "-qq" "-c")))
(archive-7z-program `(,archive-7z-program "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.
Extraction should happen to standard output. Archive and member name will
be added."
Extraction should happen to standard output. Archive and member
name will be added."
:type '(list (string :tag "Program")
(repeat :tag "Options"
:inline t