From 6dea0de7ca0c90b682bb8fffafa173a4de556006 Mon Sep 17 00:00:00 2001 From: Bastien Date: Mon, 30 Apr 2018 00:27:16 +0200 Subject: [PATCH] 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. --- lisp/org.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 582219906..8f2a26569 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20875,7 +20875,8 @@ an argument, unconditionally call `org-insert-heading'." "--" ("Documentation" ["Show Version" org-version t] - ["Info Documentation" org-info t]) + ["Info Documentation" org-info t] + ["Browse Org News" org-browse-news t]) ("Customize" ["Browse Org Group" org-customize t] "--" @@ -20886,8 +20887,7 @@ an argument, unconditionally call `org-insert-heading'." ("Refresh/Reload" ["Refresh setup current buffer" org-mode-restart 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) "Read documentation for Org in the info system. @@ -20895,6 +20895,11 @@ With optional NODE, go directly to that node." (interactive) (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 (defun org-submit-bug-report () "Submit a bug report on Org via mail.