From: Po Lu <luangruo@yahoo.com>
Date: Wed, 9 Aug 2023 04:21:03 +0000 (+0800)
Subject: Improve Emacsbug output
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82a67d227e52c70f438ced4b5ee260bb7d8be02d;p=emacs.git

Improve Emacsbug output

* lisp/mail/emacsbug.el (report-emacs-bug--os-description):
Handle `android'.
(emacs-build-description): Don't print the Android build
fingerprint here.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 3893e93238f..bebaad720db 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -144,6 +144,10 @@ This requires either the macOS \"open\" command, or the freedesktop
                (goto-char (point-min))
                (buffer-substring (line-beginning-position)
                                  (line-end-position))))))
+        ((eq system-type 'android)
+         ;; This is a short string containing the Android version,
+         ;; build number, and window system distributor.
+         (symbol-value 'android-build-fingerprint))
         ;; TODO Cygwin, Solaris (usg-unix-v).
         (t
          (or (let ((file "/etc/os-release"))
@@ -408,12 +412,6 @@ copy text to your preferred mail program.\n"
                   "', version "
 		  (mapconcat #'number-to-string (x-server-version) ".") "\n")
 	(error t)))
-  (when (and (boundp 'android-build-fingerprint)
-             (symbol-value 'android-build-fingerprint))
-    ;; This is used on Android.
-    (insert "Android version and manufacturer: "
-            (symbol-value 'android-build-fingerprint)
-            "\n"))
   (let ((os (ignore-errors (report-emacs-bug--os-description))))
     (if (stringp os)
         (insert "System Description: " os "\n\n")))