mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2018-08-28 21:22:37 -04:00
parent d0fc4f3f57
commit 190e85b8d2
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/mail/emacsbug.el
View file

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