procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mail/emacsbug.el (report-emacs-bug): Try "sw_vers" on Darwin.

Browse source
This commit is contained in:
Glenn Morris 2017-12-11 21:17:55 -05:00
parent 2714a18fb2
commit b585a20401
1 changed files with 26 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/mail/emacsbug.el
View file

@ -232,13 +232,32 @@ usually do not have translators for other languages.\n\n")))
"', version "
(mapconcat 'number-to-string (x-server-version) ".") "\n")
(error t)))
(let ((lsb (with-temp-buffer
(if (eq 0 (ignore-errors
(call-process "lsb_release" nil '(t nil)
nil "-d")))
(buffer-string)))))
(if (stringp lsb)
(insert "System " lsb "\n")))
(let (os)
;; Maybe this should be factored out in a standalone function,
;; eg emacs-os-description.
(cond ((eq system-type 'darwin)
(with-temp-buffer
(when (eq 0 (ignore-errors
(call-process "sw_vers" nil '(t nil) nil)))
(dolist (s '("ProductName" "ProductVersion"))
(goto-char (point-min))
(if (re-search-forward (format "^%s\\s-*:\\s-+\\(.*\\)$" s)
nil t)
(setq os (concat os " " (match-string 1))))))))
;; TODO include other branches here.
;; MS Windows: systeminfo ?
;; Cygwin, *BSD, etc: ?
(t
(with-temp-buffer
(when (eq 0 (ignore-errors
(call-process "lsb_release" nil '(t nil)
nil "-d")))
(goto-char (point-min))
(if (looking-at "^\\sw+:\\s-+")
(goto-char (match-end 0)))
(setq os (buffer-substring (point) (line-end-position)))))))
(if (stringp os)
(insert "System Description: " os "\n\n")))
(let ((message-buf (get-buffer "*Messages*")))
(if message-buf
(let (beg-pos