[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 82a67d227e5: Improve Emacsbug output
From: |
Po Lu |
Subject: |
master 82a67d227e5: Improve Emacsbug output |
Date: |
Wed, 9 Aug 2023 00:22:24 -0400 (EDT) |
branch: master
commit 82a67d227e52c70f438ced4b5ee260bb7d8be02d
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
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.
---
lisp/mail/emacsbug.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
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")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 82a67d227e5: Improve Emacsbug output,
Po Lu <=