[Emacs-diffs] Changes to emacs/lisp/arc-mode.el

[Kenichi Handa]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.46 emacs/lisp/arc-mode.el:1.47
*** emacs/lisp/arc-mode.el:1.46 Sun May 19 12:00:48 2002
--- emacs/lisp/arc-mode.el      Sun May 19 12:02:26 2002
***************
*** 235,241 ****
  (defcustom archive-zip-expunge
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-d" "-q")
!     (if (locate-file "zip" nil 'file-executable-p)
         '("pkzip" "-d")
        '("zip" "-d" "-q")))
    "*Program and its options to run in order to delete zip file members.
--- 235,241 ----
  (defcustom archive-zip-expunge
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-d" "-q")
!     (if (locate-file "pkzip" nil 'file-executable-p)
         '("pkzip" "-d")
        '("zip" "-d" "-q")))
    "*Program and its options to run in order to delete zip file members.
***************
*** 249,255 ****
  (defcustom archive-zip-update
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-q")
!     (if (locate-file "zip" nil 'file-executable-p)
         '("pkzip" "-u" "-P")
        '("zip" "-q")))
    "*Program and its options to run in order to update a zip file member.
--- 249,255 ----
  (defcustom archive-zip-update
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-q")
!     (if (locate-file "pkzip" nil 'file-executable-p)
         '("pkzip" "-u" "-P")
        '("zip" "-q")))
    "*Program and its options to run in order to update a zip file member.
***************
*** 264,270 ****
  (defcustom archive-zip-update-case
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-q" "-k")
!     (if (locate-file "zip" nil 'file-executable-p)
         '("pkzip" "-u" "-P")
        '("zip" "-q" "-k")))
    "*Program and its options to run in order to update a case fiddled zip 
member.
--- 264,270 ----
  (defcustom archive-zip-update-case
    (if (locate-file "zip" nil 'file-executable-p)
        '("zip" "-q" "-k")
!     (if (locate-file "pkzip" nil 'file-executable-p)
         '("pkzip" "-u" "-P")
        '("zip" "-q" "-k")))
    "*Program and its options to run in order to update a case fiddled zip 
member.