[Emacs-diffs] /srv/bzr/emacs/trunk r110174: * lisp/mail/emacsbug.el (report-emacs-bug): Include `lsb_release -d'.

[Glenn Morris]

------------------------------------------------------------
revno: 110174
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-23 17:46:47 -0700
message:
  * lisp/mail/emacsbug.el (report-emacs-bug): Include `lsb_release -d'.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-23 18:21:33 +0000
+++ b/lisp/ChangeLog    2012-09-24 00:46:47 +0000
@@ -1,3 +1,7 @@
+2012-09-24  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): Include `lsb_release -d'.
+
 2012-09-23  Fabián Ezequiel Gallina  <address@hidden>
 
        * progmodes/python.el (python-indent-line): More consistent cursor

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2012-09-21 03:03:48 +0000
+++ b/lisp/mail/emacsbug.el     2012-09-24 00:46:47 +0000
@@ -248,6 +248,13 @@
                     "', version "
                    (mapconcat 'number-to-string (x-server-version) ".") "\n")
          (error t)))
+    (let ((lsb (with-temp-buffer
+                (if (eq 0 (ignore-errors
+                            (call-process "lsb_release" nil '(t nil)
+                                          nil "-d")))
+                    (buffer-string)))))
+      (if (stringp lsb)
+         (insert "LSB Release " lsb "\n")))
     (when (and system-configuration-options
               (not (equal system-configuration-options "")))
       (insert "Configured using:\n `configure "