Mercurial > emacs
diff lisp/erc/erc-match.el @ 76856:2fae574a2382
Release ERC 5.2.
I have updated the version of ERC to 5.2, since it fixes a bug with C-c
C-SPC being bound globally by default. For the full list of changes in
this version, see etc/ERC-NEWS.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-687
Creator: Michael Olson <mwolson@gnu.org>
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 01 Apr 2007 13:36:38 +0000 |
| parents | 7a3f13e2dd57 |
| children | 85d67fae9a94 |
line wrap: on
line diff
--- a/lisp/erc/erc-match.el Sun Apr 01 07:44:57 2007 +0000 +++ b/lisp/erc/erc-match.el Sun Apr 01 13:36:38 2007 +0000 @@ -1,6 +1,7 @@ ;;; erc-match.el --- Highlight messages matching certain regexps -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, +;; 2007 Free Software Foundation, Inc. ;; Author: Andreas Fuchs <asf@void.at> ;; Keywords: comm, faces @@ -540,7 +541,7 @@ (when (and (or (eq erc-log-matches-flag t) (and (eq erc-log-matches-flag 'away) - erc-away)) + (erc-away-time))) match-buffer-name) (let ((line (format-spec erc-log-match-format (format-spec-make @@ -572,7 +573,7 @@ (defun erc-log-matches-come-back (proc parsed) "Display a notice that messages were logged while away." - (when (and erc-away + (when (and (erc-away-time) (eq erc-log-matches-flag 'away)) (mapc (lambda (match-type) @@ -583,7 +584,7 @@ (with-current-buffer buffer (get-text-property (1- (point-max)) 'timestamp)))) - (away-time (erc-emacs-time-to-erc-time erc-away))) + (away-time (erc-emacs-time-to-erc-time (erc-away-time)))) (when (and away-time last-msg-time (erc-time-gt last-msg-time away-time)) (erc-display-message