Re: [h-e-w] Display links in blue for browse-url

[Jeff Rancier]

This obviously fontifies only the specified mode, emacs-lisp-mode.  Is there
any way to make this globally active?

Jeff

----- Original Message -----
From: "Jeff Rancier" <address@hidden>
To: "Jason Rumney" <address@hidden>
Cc: "Daniel Hegyi" <address@hidden>; <address@hidden>
Sent: Tuesday, February 26, 2002 8:45 AM
Subject: Re: [h-e-w] Display links in blue for browse-url


| Daniel,
|
| I cleaned up the regular expressions a bit.  I had a bit of trouble
| understanding the different methods of using font-lock-add-keywords(), but
| this appears to work.  Fixes, simplifications are welcome.
|
| (setq font-lock-hyperlink-face (make-face 'font-lock-hyperlink-face))
| (set-face-foreground 'font-lock-hyperlink-face "blue")
| (set-face-underline-p 'font-lock-hyperlink-face t)
|
| (font-lock-add-keywords 'emacs-lisp-mode
|
| '(("\\([hH][tT][tT][pP][sS]?://[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1
| font-lock-hyperlink-face prepend)
|
|
("\\([hH][tT][tT][pP][sS]?://[0-9a-zA-Z_-]+\.[0-9a-zA-Z_-]+\.[0-9a-zA-Z_-]+\
| \)" 1 font-lock-hyperlink-face prepend)))
|
| Jeff
|
| ----- Original Message -----
| From: "Jason Rumney" <address@hidden>
| To: "Jeff Rancier" <address@hidden>
| Cc: "Daniel Hegyi" <address@hidden>;
<address@hidden>
| Sent: Monday, February 25, 2002 4:39 PM
| Subject: Re: [h-e-w] Display links in blue for browse-url
|
|
| | "Jeff Rancier" <address@hidden> writes:
| |
| | > (font-lock-add-keywords 'emacs-lisp-mode
| | >                         '(("\\(^.*http:.*$\\)" 1
| font-lock-hyperlink-face
| | > prepend)))
| | >
| | > The only problem is that the whole line is underlined?  Can a more
| seasoned
| | > veteran assist with this?
| |
| | Try "\\(http:[^ \t\n]*\\)" as the regexp.  You don't want to match
| | what's before the http:, and you only want to match up to the next
| | whitespace character.
| |
| |
| | --
| | Jason Rumney
|