Emacs fix delete entries with backslash in zip

zip-expunge-fix.el

;; make it possible to delete zip entries that have a backslash in
;; their name.

(defun archive-zip-fix-backslash-name
  (name)
  (replace-regexp-in-string "\\\\" "\\\\\\\\" name))

(defun archive-zip-expunge
  (archive files)
  (apply 'call-process
         "zip"
         nil
         nil
         nil
         (cons "-dq" (cons archive (mapcar 'archive-zip-fix-backslash-name files)))))