"Submit via mail a bug report on Riece."
;; This strange form ensures that (recent-keys) is the value before
;; the bug subject string is read.
- (interactive (list (with-output-to-string
- (print-recent-messages 20))
- (recent-keys)))
+ (interactive (list (riece-recent-messages 20) (recent-keys)))
(require 'reporter)
(let ((reporter-prompt-for-summary-p t))
(unless riece-debug
(cdr (assoc (car (car pointer))
riece-server-alist))))
"\n"
- (if (process-live-p (cdr (car pointer)))
+ (if (riece-server-process-opened (cdr (car pointer)))
(save-excursion
(set-buffer (process-buffer (cdr (car pointer))))
(goto-char (point-max))
"(closed server)"))
(setq pointer (cdr pointer))))
;; Insert recent keystrokes.
- (insert "\n\n"
- "Recent keystrokes:\n-----------------\n\n")
+ (insert "\n\nRecent keystrokes:\n"
+ "-----------------\n\n")
(let ((before-keys (point)))
(insert (key-description recent-keys))
(save-restriction
(search-forward " " nil t)
(insert "\n"))))
;; Insert recent minibuffer messages.
- (insert "\nRecent messages (most recent first):\n"
+ (insert "\n\nRecent messages (most recent first):\n"
"-----------------------------------\n"
recent-messages))))