Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 76450:a3474cbaf397
(report-emacs-bug): Don't hard code the "X" name.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 11 Mar 2007 01:29:50 +0000 |
| parents | e3694f1cb928 |
| children | 8e27d63c45eb 738ce3540ffb 8c2ef9d5d4a8 |
comparison
equal
deleted
inserted
replaced
| 76449:2a29ff806389 | 76450:a3474cbaf397 |
|---|---|
| 137 (add-text-properties (1+ user-point) (point) prompt-properties) | 137 (add-text-properties (1+ user-point) (point) prompt-properties) |
| 138 | 138 |
| 139 (insert "\n\nIn " (emacs-version) "\n") | 139 (insert "\n\nIn " (emacs-version) "\n") |
| 140 (if (fboundp 'x-server-vendor) | 140 (if (fboundp 'x-server-vendor) |
| 141 (condition-case nil | 141 (condition-case nil |
| 142 (insert "X server distributor `" (x-server-vendor) "', version " | 142 ;; This is used not only for X11 but also W32 and others. |
| 143 (insert "Windowing system distributor `" (x-server-vendor) | |
| 144 "', version " | |
| 143 (mapconcat 'number-to-string (x-server-version) ".") "\n") | 145 (mapconcat 'number-to-string (x-server-version) ".") "\n") |
| 144 (error t))) | 146 (error t))) |
| 145 (if (and system-configuration-options | 147 (if (and system-configuration-options |
| 146 (not (equal system-configuration-options ""))) | 148 (not (equal system-configuration-options ""))) |
| 147 (insert "configured using `configure " | 149 (insert "configured using `configure " |
| 279 'field 'emacsbug-prompt)) | 281 'field 'emacsbug-prompt)) |
| 280 (delete-region pos (field-end (1+ pos))))))) | 282 (delete-region pos (field-end (1+ pos))))))) |
| 281 | 283 |
| 282 (provide 'emacsbug) | 284 (provide 'emacsbug) |
| 283 | 285 |
| 284 ;;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49 | 286 ;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49 |
| 285 ;;; emacsbug.el ends here | 287 ;;; emacsbug.el ends here |