diff options
| author | Stefan Monnier | 2013-11-05 09:32:01 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2013-11-05 09:32:01 -0500 |
| commit | 520a6e4a5fd6b8275c8b6948ffb29de362054b82 (patch) | |
| tree | 5d76f759a5a8d41c97c2a2919ce7727de8484dce /lisp/net | |
| parent | 158262615caff45976d334f79ff066d565682f1a (diff) | |
| download | emacs-520a6e4a5fd6b8275c8b6948ffb29de362054b82.tar.gz emacs-520a6e4a5fd6b8275c8b6948ffb29de362054b82.zip | |
* lisp/net/rcirc.el (rcirc-record-activity): Don't abuse add-to-list.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 2d8da415295..f7d43989868 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -1950,7 +1950,8 @@ activity. Only run if the buffer is not visible and | |||
| 1950 | (old-types rcirc-activity-types)) | 1950 | (old-types rcirc-activity-types)) |
| 1951 | (when (not (get-buffer-window (current-buffer) t)) | 1951 | (when (not (get-buffer-window (current-buffer) t)) |
| 1952 | (setq rcirc-activity | 1952 | (setq rcirc-activity |
| 1953 | (sort (add-to-list 'rcirc-activity (current-buffer)) | 1953 | (sort (if (memq (current-buffer) rcirc-activity) rcirc-activity |
| 1954 | (cons (current-buffer) rcirc-activity)) | ||
| 1954 | (lambda (b1 b2) | 1955 | (lambda (b1 b2) |
| 1955 | (let ((t1 (with-current-buffer b1 rcirc-last-post-time)) | 1956 | (let ((t1 (with-current-buffer b1 rcirc-last-post-time)) |
| 1956 | (t2 (with-current-buffer b2 rcirc-last-post-time))) | 1957 | (t2 (with-current-buffer b2 rcirc-last-post-time))) |