Kevin Ryde <user42 at zip.com.au>

(Info-fontify-node): Fontify https as well as http and ftp.
2007-05-19 04:46:32 +00:00 · 2007-05-19 04:46:32 +00:00 · 68b77b6489
commit 68b77b6489
parent 877d11feb6
1 changed files with 2 additions and 1 deletions
--- a/lisp/info.el
+++ b/lisp/info.el
@ -4074,7 +4074,8 @@ 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