Mercurial > emacs
comparison lisp/erc/erc-ibuffer.el @ 85650:437a25964d35
* emulation/edt-mapper.el (edt-emacs-variant): Replace the only
use with the definition. Remove.
* add-log.el (change-log-start-entry-re): New defconst.
(change-log-sortable-date-at): Use it.
(change-log-beginning-of-defun, change-log-end-of-defun): New
functions.
(change-log-mode): Use them for beginning-of-defun-function and
end-of-defun-function.
* erc-ibuffer.el (erc-modified-channels-alist): Pacify
byte-compiler.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 25 Oct 2007 23:25:08 +0000 |
| parents | 85d67fae9a94 |
| children | 763be5e829a7 |
comparison
equal
deleted
inserted
replaced
| 85649:9abc9e84d380 | 85650:437a25964d35 |
|---|---|
| 68 regexp))) | 68 regexp))) |
| 69 (with-current-buffer buf | 69 (with-current-buffer buf |
| 70 (and (eq major-mode 'erc-mode) | 70 (and (eq major-mode 'erc-mode) |
| 71 (string-match qualifier (or erc-server-announced-name | 71 (string-match qualifier (or erc-server-announced-name |
| 72 erc-session-server))))) | 72 erc-session-server))))) |
| 73 | |
| 74 (defvar erc-modified-channels-alist) | |
| 73 | 75 |
| 74 (define-ibuffer-column erc-modified (:name "M") | 76 (define-ibuffer-column erc-modified (:name "M") |
| 75 (if (and (boundp 'erc-track-mode) | 77 (if (and (boundp 'erc-track-mode) |
| 76 erc-track-mode) | 78 erc-track-mode) |
| 77 (let ((entry (assq (current-buffer) erc-modified-channels-alist))) | 79 (let ((entry (assq (current-buffer) erc-modified-channels-alist))) |