bug#14751: 24.3.50; Global binding and a tool bar icon for browsing the web

[Juri Linkov <juri@jurta.org>]

> It is helpful to have a key that follows a URL at point.

`M-x ffap-bindings RET C-x C-f http://www.gnu.org/software/emacs/ RET'

> (I do suggest adding the start-browsing command to a menu, though.)

=== modified file 'lisp/menu-bar.el'
--- lisp/menu-bar.el	2013-02-25 21:10:59 +0000
+++ lisp/menu-bar.el	2013-07-02 22:47:53 +0000
@@ -1490,6 +1490,8 @@ (defvar menu-bar-tools-menu
     (bindings--define-key menu [separator-net]
       menu-bar-separator)
 
+    (bindings--define-key menu [browse-web]
+      '(menu-item "Browse the Web..." eww))
     (bindings--define-key menu [directory-search]
       '(menu-item "Directory Search" eudc-tools-menu))
     (bindings--define-key menu [compose-mail]


Also since it's verified that `eww' can correctly display gnu.org pages
without problems, the link "Emacs Guided Tour" on the start page could
be opened using eww (with an additional benefit of demonstrating to
newbies that Emacs can be used to browse the Web):

=== modified file 'lisp/startup.el'
--- lisp/startup.el	2013-06-30 22:29:23 +0000
+++ lisp/startup.el	2013-07-02 22:44:38 +0000
@@ -1674,6 +1674,7 @@ (defun fancy-startup-screen (&optional c
 	(insert "\n")
 	(fancy-startup-tail concise))
       (use-local-map splash-screen-keymap)
+      (setq-local browse-url-browser-function 'eww-browse-url)
       (setq tab-width 22
 	    buffer-read-only t)
       (set-buffer-modified-p nil)
@@ -1711,6 +1712,7 @@ (defun fancy-about-screen ()
 	(goto-char (point-min))
 	(force-mode-line-update))
       (use-local-map splash-screen-keymap)
+      (setq-local browse-url-browser-function 'eww-browse-url)
       (setq tab-width 22)
       (setq buffer-read-only t)
       (goto-char (point-min))