[Emacs-diffs] master 5924259: Allow 'file:' protocol for Info-follow-nearest-node.

[Vincent Belaïche]

branch: master
commit 5924259f152260551e2d153e1273ab600ccda293
Author: Vincent Belaïche <address@hidden>
Commit: Vincent Belaïche <address@hidden>

    Allow 'file:' protocol for Info-follow-nearest-node.
---
 etc/NEWS     | 6 ++++++
 lisp/info.el | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index d86d5e9..6bfc8e5 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -85,6 +85,12 @@ work right without some adjustment:
 * Changes in Emacs 27.1
 
 ---
+*** Info browser can follow ``file:'' protocol URL's URL created with
+The URL's created by the @url Texinfo command, and followed with the
+Info-follow-nearest-node function, can now have 'file:' prototype and
+are passed to 'browse-url' function, like were the other Web protocols
+(namely ftp, http, and https).
+---
 ** New variable 'xft-ignore-color-fonts'.
 Default t means don't try to load color fonts when using Xft, as they
 often cause crashes.  Set it to nil if you really need those fonts.
diff --git a/lisp/info.el b/lisp/info.el
index c45b7f9..ab2c51d 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]+"