[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 190e85b: * lisp/mail/emacsbug.el (report-emacs-bug-
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 190e85b: * lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD. |
Date: |
Tue, 28 Aug 2018 21:23:02 -0400 (EDT) |
branch: master
commit 190e85b8d286408a88bb611967e658639c48d6c5
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.
---
lisp/mail/emacsbug.el | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 43ecddf..92b005d 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -150,8 +150,20 @@ This requires either the macOS \"open\" command, or the
freedesktop
nil t)
(setq os (concat os " " (match-string 1)))))))
os))))
- ;; TODO include other branches here.
- ;; Cygwin, *BSD, etc: ?
+ ((eq system-type 'berkeley-unix)
+ (with-temp-buffer
+ (when
+ (or (eq 0 (ignore-errors (call-process "freebsd-version" nil
+ '(t nil) nil "-u")))
+ (progn (erase-buffer)
+ (eq 0 (ignore-errors
+ (call-process "uname" nil
+ '(t nil) nil "-a")))))
+ (unless (zerop (buffer-size))
+ (goto-char (point-min))
+ (buffer-substring (line-beginning-position)
+ (line-end-position))))))
+ ;; TODO Cygwin, Solaris (usg-unix-v).
(t
(or (let ((file "/etc/os-release"))
(and (file-readable-p file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 190e85b: * lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.,
Glenn Morris <=