Mercurial > emacs

comparison lisp/net/rcirc.el @ 91073:4bc33ffdda1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
91072:74ab3ea909f9 91073:4bc33ffdda1a
1279 "Non-nil means log IRC activity to disk. 1279 "Non-nil means log IRC activity to disk.
1280 Logfiles are kept in `rcirc-log-directory'." 1280 Logfiles are kept in `rcirc-log-directory'."
1281 :type 'boolean 1281 :type 'boolean
1282 :group 'rcirc) 1282 :group 'rcirc)
1283 1283
1284 (defvar rcirc-markup-text-functions
1285 '(rcirc-markup-attributes
1286 rcirc-markup-my-nick
1287 rcirc-markup-urls
1288 rcirc-markup-keywords
1289 rcirc-markup-bright-nicks
1290 rcirc-markup-fill)
1291
1292 "List of functions used to manipulate text before it is printed.
1293
1294 Each function takes two arguments, SENDER, RESPONSE. The buffer
1295 is narrowed with the text to be printed and the point is at the
1296 beginning of the `rcirc-text' propertized text.")
1297
1284 (defun rcirc-print (process sender response target text &optional activity) 1298 (defun rcirc-print (process sender response target text &optional activity)
1285 "Print TEXT in the buffer associated with TARGET. 1299 "Print TEXT in the buffer associated with TARGET.
1286 Format based on SENDER and RESPONSE. If ACTIVITY is non-nil, 1300 Format based on SENDER and RESPONSE. If ACTIVITY is non-nil,
1287 record activity." 1301 record activity."
1288 (or text (setq text "")) 1302 (or text (setq text ""))
2081 (let ((position (event-end event))) 2095 (let ((position (event-end event)))
2082 (with-current-buffer (window-buffer (posn-window position)) 2096 (with-current-buffer (window-buffer (posn-window position))
2083 (rcirc-browse-url-at-point (posn-point position))))) 2097 (rcirc-browse-url-at-point (posn-point position)))))
2084 2098
2085 2099
2086 (defvar rcirc-markup-text-functions
2087 '(rcirc-markup-attributes
2088 rcirc-markup-my-nick
2089 rcirc-markup-urls
2090 rcirc-markup-keywords
2091 rcirc-markup-bright-nicks
2092 rcirc-markup-fill)
2093
2094 "List of functions used to manipulate text before it is printed.
2095
2096 Each function takes two arguments, SENDER, RESPONSE. The buffer
2097 is narrowed with the text to be printed and the point is at the
2098 beginning of the `rcirc-text' propertized text.")
2099
2100 (defun rcirc-markup-timestamp (sender response) 2100 (defun rcirc-markup-timestamp (sender response)
2101 (goto-char (point-min)) 2101 (goto-char (point-min))
2102 (insert (rcirc-facify (format-time-string rcirc-time-format) 2102 (insert (rcirc-facify (format-time-string rcirc-time-format)
2103 'rcirc-timestamp))) 2103 'rcirc-timestamp)))
2104 2104