[elpa] master febb200 08/62: Added function to submit a bug report

[Ian Dunn]

branch: master
commit febb20002d8f041eeca930356538878d7fe8af72
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    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