Allow 'file:' protocol for Info-follow-nearest-node.

diff --git a/etc/NEWS b/etc/NEWS
index d86d5e9817e9d372a3328f185e8d26b1b226ff47..6bfc8e58cf9f457625f24cdff8c93e64cd1f1cd9 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -84,6 +84,12 @@ work right without some adjustment:
 \f
 * 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

diff --git a/lisp/info.el b/lisp/info.el
index c45b7f9cb3e96a70b2915775db0638a7cb723f75..ab2c51d84bf5049b05593cc857d5c5a6fda268a4 100644 (file)
--- 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]+"