Mercurial > emacs
diff lisp/net/rcirc.el @ 91073:4bc33ffdda1a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 902-908)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 27 Oct 2007 09:12:07 +0000 |
parents | f55f9811f5d7 0dcd1f3c9909 |
children | 880960b70474 |
line wrap: on
line diff
--- a/lisp/net/rcirc.el Sat Oct 27 00:30:50 2007 +0000 +++ b/lisp/net/rcirc.el Sat Oct 27 09:12:07 2007 +0000 @@ -1281,6 +1281,20 @@ :type 'boolean :group 'rcirc) +(defvar rcirc-markup-text-functions + '(rcirc-markup-attributes + rcirc-markup-my-nick + rcirc-markup-urls + rcirc-markup-keywords + rcirc-markup-bright-nicks + rcirc-markup-fill) + + "List of functions used to manipulate text before it is printed. + +Each function takes two arguments, SENDER, RESPONSE. The buffer +is narrowed with the text to be printed and the point is at the +beginning of the `rcirc-text' propertized text.") + (defun rcirc-print (process sender response target text &optional activity) "Print TEXT in the buffer associated with TARGET. Format based on SENDER and RESPONSE. If ACTIVITY is non-nil, @@ -2083,20 +2097,6 @@ (rcirc-browse-url-at-point (posn-point position))))) -(defvar rcirc-markup-text-functions - '(rcirc-markup-attributes - rcirc-markup-my-nick - rcirc-markup-urls - rcirc-markup-keywords - rcirc-markup-bright-nicks - rcirc-markup-fill) - - "List of functions used to manipulate text before it is printed. - -Each function takes two arguments, SENDER, RESPONSE. The buffer -is narrowed with the text to be printed and the point is at the -beginning of the `rcirc-text' propertized text.") - (defun rcirc-markup-timestamp (sender response) (goto-char (point-min)) (insert (rcirc-facify (format-time-string rcirc-time-format)