From: Glenn Morris <rgm@gnu.org>
Date: Wed, 29 Aug 2018 01:22:37 +0000 (-0400)
Subject: * lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.
X-Git-Tag: emacs-27.0.90~4491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=190e85b8d286408a88bb611967e658639c48d6c5;p=emacs.git

* lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 43ecddf265c..92b005d47d2 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)