diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-08-28 21:22:37 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-08-28 21:22:37 -0400 |
| commit | 190e85b8d286408a88bb611967e658639c48d6c5 (patch) | |
| tree | a2b4e23a3cce5817bbf93d7c3aa5f2256fb8d0fd /lisp/mail/emacsbug.el | |
| parent | d0fc4f3f578ac33b4e11adea4a2281d2b849840e (diff) | |
| download | emacs-190e85b8d286408a88bb611967e658639c48d6c5.tar.gz emacs-190e85b8d286408a88bb611967e658639c48d6c5.tar.bz2 emacs-190e85b8d286408a88bb611967e658639c48d6c5.zip | |
* lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 16 |
1 files changed, 14 insertions, 2 deletions
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) |