0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00

org.el: Add a new `org-browse-news' menu entry

* lisp/org.el (org-browse-news): New command to browse the
news for the latest major release.
(org-org-menu): New menu entry to use the new command.

Thanks to Thomas Dye and Tim Cross for suggesting this.
This commit is contained in:
Bastien 2018-04-30 00:27:16 +02:00
parent e11613b1c5
commit 6dea0de7ca

View file

@ -20875,7 +20875,8 @@ an argument, unconditionally call `org-insert-heading'."
"--" "--"
("Documentation" ("Documentation"
["Show Version" org-version t] ["Show Version" org-version t]
["Info Documentation" org-info t]) ["Info Documentation" org-info t]
["Browse Org News" org-browse-news t])
("Customize" ("Customize"
["Browse Org Group" org-customize t] ["Browse Org Group" org-customize t]
"--" "--"
@ -20886,8 +20887,7 @@ an argument, unconditionally call `org-insert-heading'."
("Refresh/Reload" ("Refresh/Reload"
["Refresh setup current buffer" org-mode-restart t] ["Refresh setup current buffer" org-mode-restart t]
["Reload Org (after update)" org-reload t] ["Reload Org (after update)" org-reload t]
["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"]) ["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])))
))
(defun org-info (&optional node) (defun org-info (&optional node)
"Read documentation for Org in the info system. "Read documentation for Org in the info system.
@ -20895,6 +20895,11 @@ With optional NODE, go directly to that node."
(interactive) (interactive)
(info (format "(org)%s" (or node "")))) (info (format "(org)%s" (or node ""))))
(defun org-browse-news ()
"Browse the news for the latest major release."
(interactive)
(browse-url "https://orgmode.org/Changes.html"))
;;;###autoload ;;;###autoload
(defun org-submit-bug-report () (defun org-submit-bug-report ()
"Submit a bug report on Org via mail. "Submit a bug report on Org via mail.