summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--deb-view.el12
1 files changed, 12 insertions, 0 deletions
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 <psg@debian.org>
;; 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 <psg@debian.org>
+;; 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))))