emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]