diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-02-11 03:21:08 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-02-11 03:21:08 +0000 |
| commit | 4ba89826fb3fdd9c23da03d6546a7f99bfeba23d (patch) | |
| tree | 67b7c88c1dc4cc05892dce1037c403eb75eaf7c8 /lisp | |
| parent | d6f0bd5a78a41fadb60cd28fa19edb45441f9b27 (diff) | |
| download | emacs-4ba89826fb3fdd9c23da03d6546a7f99bfeba23d.tar.gz emacs-4ba89826fb3fdd9c23da03d6546a7f99bfeba23d.tar.bz2 emacs-4ba89826fb3fdd9c23da03d6546a7f99bfeba23d.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/info.el | 6 |
2 files changed, 9 insertions, 4 deletions
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]+" |