From 46239783878d54f34c14312c7f0028f9506bf151 Mon Sep 17 00:00:00 2001 From: psg <> Date: Wed, 17 Aug 2011 02:44:21 +0000 Subject: deb-view.el: "deb-view does not support xz-compressed debs", thanks to Sven Joachim (Closes: #637579). --- deb-view.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'deb-view.el') diff --git a/deb-view.el b/deb-view.el index 7f5fa04..e9b8c3b 100644 --- a/deb-view.el +++ b/deb-view.el @@ -230,6 +230,9 @@ ;; 1.15 2009-11-02 Peter S. Galbraith ;; Fixed stupid bug "deb-view.el fails on own debian-el_30.9-1_all.deb", ;; thanks to Kevin Ryde (Closes: #554039). + +;; 1.16 2011-08-16 Peter S. Galbraith +;; Added support for data.tar.xz deb files (Closes: #637579). ;;; Code: @@ -438,6 +441,15 @@ at the prompt." (kill-buffer info-buffer) (error "%s: Not a valid package file" deb-view-buffer-name)) (call-process-region (point-min) (point-max) "bzip2" t t nil "-cd")))) + ((and (goto-char 1)(re-search-forward "data.tar.xz" nil t)) + (erase-buffer) + (call-process "ar" nil '(t t) nil "-p" debfile "data.tar.xz") + (goto-char (point-max)) + (when (search-backward "is not a valid archive" nil t) + (kill-buffer data-buffer) + (kill-buffer info-buffer) + (error "%s: Not a valid package file" deb-view-buffer-name)) + (call-process-region (point-min) (point-max) "xz" t t nil "-cd")))) (t (call-process shell-file-name nil t nil shell-command-switch (concat "dpkg-deb --fsys-tarfile " debfile)))) -- cgit v1.2.3