(Info-fontify-node): Match https also.

diff --git a/lisp/info.el b/lisp/info.el
index b9216b903ecf4278ede0e1b510ef42083e935cf2..3b709abca370a36c44dd24105f7c41f597a8cd0b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4074,7 +4074,7 @@ the variable `Info-file-list-for-emacs'."
       ;; Fontify http and ftp references
       (goto-char (point-min))
       (when not-fontified-p
-        (while (re-search-forward "[hf]t?tp://[^ \t\n\"`({<>})']+" nil t)
+        (while (re-search-forward "\\(https?\\|ftp\\)://[^ \t\n\"`({<>})']+" nil t)
           (add-text-properties (match-beginning 0) (match-end 0)
                                '(font-lock-face info-xref
                                                 mouse-face highlight