# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1202699980 0
# Node ID a934147644410686759c5f8fba37e6bfc0add183
# Parent  68ea42b6ac6f82d9baae7f040bcd8f220dceee19
Kevin Ryde  <user42 at zip.com.au>

(Info-next-reference, Info-prev-reference)
(Info-try-follow-nearest-node): Move to and follow https:// links too.

diff -r 68ea42b6ac6f -r a93414764441 lisp/info.el
--- a/lisp/info.el	Mon Feb 11 02:22:13 2008 +0000
+++ b/lisp/info.el	Mon Feb 11 03:19:40 2008 +0000
@@ -2673,7 +2673,7 @@
 (defun Info-next-reference (&optional recur)
   "Move cursor to the next cross-reference or menu item in the node."
   (interactive)
-  (let ((pat "\\*note[ \n\t]+\\([^:]+\\):\\|^\\* .*:\\|[hf]t?tp://")
+  (let ((pat "\\*note[ \n\t]+\\([^:]+\\):\\|^\\* .*:\\|[hf]t?tps?://")
 	(old-pt (point))
 	(case-fold-search t))
     (or (eobp) (forward-char 1))
@@ -2695,7 +2695,7 @@
 (defun Info-prev-reference (&optional recur)
   "Move cursor to the previous cross-reference or menu item in the node."
   (interactive)
-  (let ((pat "\\*note[ \n\t]+\\([^:]+\\):\\|^\\* .*:\\|[hf]t?tp://")
+  (let ((pat "\\*note[ \n\t]+\\([^:]+\\):\\|^\\* .*:\\|[hf]t?tps?://")
 	(old-pt (point))
 	(case-fold-search t))
     (or (re-search-backward pat nil t)
@@ -3123,7 +3123,7 @@
 If FORK is non-nil, it i spassed to `Info-goto-node'."
   (let (node)
     (cond
-     ((Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)")
+     ((Info-get-token (point) "[hf]t?tps?://" "[hf]t?tps?://\\([^ \t\n\"`({<>})']+\\)")
       (setq node t)
       (browse-url (browse-url-url-at-point)))
      ((setq node (Info-get-token (point) "\\*note[ \n\t]+"