comparison lisp/net/rcirc.el @ 85500:0dcd1f3c9909

* textmodes/reftex.el: Move require easymenu before first use. (reftex-info): Require info at compile too. * textmodes/org-publish.el (org-publish-org-to-html) (org-publish-org-to): Require org at compile time too. (org-publish-attachment): Require at compile time too. * term/tty-colors.el (w32-tty-standard-colors): Pacify byte-compiler. * term/pc-win.el (frame-creation-function-alist): Add to this instead of setting frame-creation-function. * play/blackbox.el (bb-up, bb-down): Use forward-line. * net/rcirc.el (rcirc-markup-text-functions): Move definition earlier. * calendar/todo-mode.el: Require calendar at compile time. * calendar/cal-islam.el: Require diary-lib at compile time. * calendar/cal-hebrew.el: Require diary-lib and holidays at compile time. * w32-vars.el: Provide w32-vars. * term/w32-win.el: Require w32-vars. (w32-color-map): Pacify byte-compiler. * loadup.el: Load w32-wars before term/w32-win.

85499:0fdf639d434f

  "Non-nil means log IRC activity to disk.
Logfiles are kept in `rcirc-log-directory'."
  :type 'boolean
  :group 'rcirc)

(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,
record activity."
  (or text (setq text ""))

  (let ((position (event-end event)))
    (with-current-buffer (window-buffer (posn-window position))
      (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)
			'rcirc-timestamp)))

85500:0dcd1f3c9909

  "Non-nil means log IRC activity to disk.
Logfiles are kept in `rcirc-log-directory'."
  :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,
record activity."
  (or text (setq text ""))

  (let ((position (event-end event)))
    (with-current-buffer (window-buffer (posn-window position))
      (rcirc-browse-url-at-point (posn-point position)))))


(defun rcirc-markup-timestamp (sender response)
  (goto-char (point-min))
  (insert (rcirc-facify (format-time-string rcirc-time-format)
			'rcirc-timestamp)))