(defun eshell-report-bug (topic)
-Prompts for the TOPIC.
Leaves you in a mail buffer.
+Prompts for the TOPIC.Leaves you in a mail buffer.
Please include any configuration details that might be involved."
(interactive "sBug Subject: ")
(compose-mail eshell-report-bug-address topic)
(let ((signature (buffer-substring (point) (point-max))))
;; Discourage users from writing non-English text.
- (set-buffer-multibyte nil)
+ ;; XEmacs change: We don't have `set-buffer-multibyte'.
+ (when (fboundp 'set-buffer-multibyte)
+ (set-buffer-multibyte nil))
(delete-region (point) (point-max))
(backward-char (length signature)))
(insert "emacs-version: " (emacs-version))
+ ;; XEmacs change: We keep track of upstream author version.
+ ;; Pull in 'package-get, if it is available.
+ (when (featurep 'package-get)
+ (insert "\neshell-version: "
+ (package-get-info 'eshell 'author-version)))
(insert "\n\nThere appears to be a bug in Eshell.\n\n"
"Please describe exactly what actions "
"triggered the bug and the precise\n"
"symptoms of the bug:\n\n")
;; This is so the user has to type something in order to send
- (use-local-map (nconc (make-sparse-keymap) (current-local-map))))
+ (use-local-map (let ((map (make-sparse-keymap)))
+ (set-keymap-parents map (current-local-map))
+ (use-local-map (nconc (make-sparse-keymap) (current-local-map)))))