diff options
author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2018-06-27 15:18:52 +0200 |
---|---|---|
committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2018-06-27 15:18:52 +0200 |
commit | 5924259f152260551e2d153e1273ab600ccda293 (patch) | |
tree | 4a51ca4033fd5a12a2381cdc59356dd4e26ee723 /lisp/info.el | |
parent | 513b97c0e94f5c25dd9ac82aea86c9eba248589d (diff) | |
download | emacs-5924259f152260551e2d153e1273ab600ccda293.tar.gz |
Allow 'file:' protocol for Info-follow-nearest-node.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index c45b7f9cb3e..ab2c51d84bf 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3938,8 +3938,8 @@ If FORK is a string, it is the name to use for the new buffer." If FORK is non-nil, it is passed to `Info-goto-node'." (let (node) (cond - ((setq node (Info-get-token (point) "[hf]t?tps?://" - "\\([hf]t?tps?://[^ \t\n\"`‘({<>})’']+\\)")) + ((setq node (Info-get-token (point) "\\(?:f\\(?:ile\\|tp\\)\\|https?\\)://" + "\\(\\(?:f\\(?:ile\\|tp\\)\\|https?\\)://[^ \t\n\"`‘({<>})’']+\\)")) (browse-url node) (setq node t)) ((setq node (Info-get-token (point) "\\*note[ \n\t]+" |