mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/rcirc.el (rcirc-markup-urls): Check if rcirc-url-regexp is nil.

Browse source
This commit is contained in:
Deniz Dogan 2011-05-19 14:38:39 +02:00
parent 8274564053
commit 9ff90d99bf
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,6 +1,7 @@
2011-05-19 Deniz Dogan <deniz@dogan.se>
* net/rcirc.el (rcirc-mode): Initialize rcirc-urls to nil.
(rcirc-markup-urls): Check if rcirc-url-regexp is nil.
2011-05-19 Glenn Morris <rgm@gnu.org>

3
lisp/net/rcirc.el
View file

@ -2394,7 +2394,8 @@ keywords when no KEYWORD is given."
(rcirc-record-activity (current-buffer) 'nick)))))
(defun rcirc-markup-urls (sender response)
(while (re-search-forward rcirc-url-regexp nil t)
(while (and rcirc-url-regexp ;; nil means disable URL catching
(re-search-forward rcirc-url-regexp nil t))
(let ((start (match-beginning 0))
(end (match-end 0)))
(rcirc-add-face start end 'rcirc-url)