diff options
| author | Glenn Morris | 2018-08-28 21:22:37 -0400 |
|---|---|---|
| committer | Glenn Morris | 2018-08-28 21:22:37 -0400 |
| commit | 190e85b8d286408a88bb611967e658639c48d6c5 (patch) | |
| tree | a2b4e23a3cce5817bbf93d7c3aa5f2256fb8d0fd | |
| parent | d0fc4f3f578ac33b4e11adea4a2281d2b849840e (diff) | |
| download | emacs-190e85b8d286408a88bb611967e658639c48d6c5.tar.gz emacs-190e85b8d286408a88bb611967e658639c48d6c5.zip | |
* lisp/mail/emacsbug.el (report-emacs-bug--os-description): Add BSD.
| -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 | |||
| 150 | nil t) | 150 | nil t) |
| 151 | (setq os (concat os " " (match-string 1))))))) | 151 | (setq os (concat os " " (match-string 1))))))) |
| 152 | os)))) | 152 | os)))) |
| 153 | ;; TODO include other branches here. | 153 | ((eq system-type 'berkeley-unix) |
| 154 | ;; Cygwin, *BSD, etc: ? | 154 | (with-temp-buffer |
| 155 | (when | ||
| 156 | (or (eq 0 (ignore-errors (call-process "freebsd-version" nil | ||
| 157 | '(t nil) nil "-u"))) | ||
| 158 | (progn (erase-buffer) | ||
| 159 | (eq 0 (ignore-errors | ||
| 160 | (call-process "uname" nil | ||
| 161 | '(t nil) nil "-a"))))) | ||
| 162 | (unless (zerop (buffer-size)) | ||
| 163 | (goto-char (point-min)) | ||
| 164 | (buffer-substring (line-beginning-position) | ||
| 165 | (line-end-position)))))) | ||
| 166 | ;; TODO Cygwin, Solaris (usg-unix-v). | ||
| 155 | (t | 167 | (t |
| 156 | (or (let ((file "/etc/os-release")) | 168 | (or (let ((file "/etc/os-release")) |
| 157 | (and (file-readable-p file) | 169 | (and (file-readable-p file) |