org-submit-bug-report: Submit Org-related warnings

* lisp/org.el (org--warnings): New variable storing Org mode warnings
to be submitted together with bug reports.
(org-submit-bug-report): Add `org--warnings' to bug report template.
* lisp/org-element.el (org-element--cache-warn): Store cache warnings
for submission.
This commit is contained in:
Ihor Radchenko 2024-03-13 16:07:06 +03:00
parent ca29290948
commit cd0568ab1b
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
2 changed files with 5 additions and 1 deletions

View File

@ -5929,6 +5929,7 @@ FORMAT-STRING and ARGS are the same arguments as in `format'."
(setq org-element--cache-diagnostics-ring nil)))))
(if (and (boundp 'org-batch-test) org-batch-test)
(error "%s" (concat "org-element--cache: " format-string))
(push (concat "org-element--cache: " format-string) org--warnings)
(display-warning '(org-element org-element-cache)
(concat "org-element--cache: " format-string)))))

View File

@ -18815,6 +18815,8 @@ With optional NODE, go directly to that node."
(interactive)
(browse-url "https://orgmode.org/Changes.html"))
(defvar org--warnings nil
"List of warnings to be added to the bug reports.")
;;;###autoload
(defun org-submit-bug-report ()
"Submit a bug report on Org via mail.
@ -18858,13 +18860,14 @@ appear in the form of file names, tags, todo states or search strings.
If you answer \"yes\" to the prompt, you might want to check and remove
such private information before sending the email.")
(add-text-properties (point-min) (point-max) '(face org-warning))
(when (yes-or-no-p "Include your Org configuration ")
(when (yes-or-no-p "Include your Org configuration and Org warning log ")
(mapatoms
(lambda (v)
(and (boundp v)
(string-match "\\`\\(org-\\|outline-\\)" (symbol-name v))
(or (and (symbol-value v)
(string-match "\\(-hook\\|-function\\)\\'" (symbol-name v)))
(eq v 'org--warnings)
(and
(get v 'custom-type) (get v 'standard-value)
(not (equal (symbol-value v)