From: Glenn Morris <rgm@gnu.org>
Date: Mon, 11 Feb 2008 03:21:08 +0000 (+0000)
Subject: Kevin Ryde  <user42 at zip.com.au>
X-Git-Tag: emacs-pretest-23.0.90~8021
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ba89826fb3fdd9c23da03d6546a7f99bfeba23d;p=emacs.git

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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c5b7141e30..c4cfe013835 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-11  Kevin Ryde  <user42@zip.com.au>
+
+	* info.el (Info-next-reference, Info-prev-reference)
+	(Info-try-follow-nearest-node): Move to and follow https:// links too.
+
 2008-02-11  Sam Steingold  <sds@gnu.org>
 
 	* vc-hooks.el (vc-prefix-key): Remove (undo 2008-02-06 patch).
@@ -2321,7 +2326,7 @@
 
 2008-02-01  Dave Love  <fx@gnu.org>
 
-	* international/characters.el: Make $,1!8(B and ,A(B a case pair.
+	* international/characters.el: Make ,_/(B and ,A(B a case pair.
 
 2008-02-01  Kenichi Handa  <handa@etl.go.jp>
 
diff --git a/lisp/info.el b/lisp/info.el
index 91305ee025b..090e470efec 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2673,7 +2673,7 @@ See `Info-scroll-down'."
 (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 @@ See `Info-scroll-down'."
 (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 a string, it is the name to use for the new buffer."
 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]+"