branch: master
commit febb20002d8f041eeca930356538878d7fe8af72
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Added function to submit a bug report
* paced.el (paced-submit-bug-report): New defun.
---
paced.el | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/paced.el b/paced.el
index bd7bd8b..4902fb4 100644
--- a/paced.el
+++ b/paced.el
@@ -877,6 +877,22 @@ must be set with `paced-edit-named-dictionary' or
(customize-object dict)
(user-error "No dictionary found for current buffer")))
+
+
+(declare-function lm-report-bug "lisp-mnt" (topic))
+
+(defun paced-submit-bug-report (topic)
+ (interactive "sTopic: ")
+ (require 'lisp-mnt)
+ (let* ((src-file (locate-library "paced.el" t))
+ (src-buf-live (find-buffer-visiting src-file))
+ (src-buf (find-file-noselect src-file)))
+ (with-current-buffer src-buf
+ (lm-report-bug topic))
+ ;; Kill the buffer if it wasn't live
+ (unless src-buf-live
+ (kill-buffer src-buf))))
+
(provide 'paced)
;;; paced.el ends here
