Mercurial > emacs
changeset 91746:a93414764441
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 11 Feb 2008 03:19:40 +0000 |
| parents | 68ea42b6ac6f |
| children | 1796244e9d3d |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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]+"