diff options
| author | Philip Kaludercic | 2021-06-10 19:44:00 +0200 |
|---|---|---|
| committer | Philip Kaludercic | 2021-06-10 19:44:00 +0200 |
| commit | a44e402b69b5d44afe1dfdd38fec7fcb57d8af38 (patch) | |
| tree | ecbaa94b8a52819b4471ba939c412921c5d88966 | |
| parent | fd96e3a0d9f8180ed4ef4829c7a738d10a4b858e (diff) | |
| download | emacs-a44e402b69b5d44afe1dfdd38fec7fcb57d8af38.tar.gz emacs-a44e402b69b5d44afe1dfdd38fec7fcb57d8af38.zip | |
Preserve incoming order of messages with same timestamp
* rcirc.el (rcirc-print): Emulate time-less-or-equal-p
| -rw-r--r-- | lisp/net/rcirc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index abe4cfb0b30..50ddb6ca050 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -1767,7 +1767,7 @@ connection." | |||
| 1767 | (goto-char (or (previous-single-property-change (point) 'hard) | 1767 | (goto-char (or (previous-single-property-change (point) 'hard) |
| 1768 | (point-min))) | 1768 | (point-min))) |
| 1769 | (when (let ((then (get-text-property (point) 'rcirc-time))) | 1769 | (when (let ((then (get-text-property (point) 'rcirc-time))) |
| 1770 | (and then (time-less-p then time))) | 1770 | (and then (not (time-less-p time then)))) |
| 1771 | (next-single-property-change (point) 'hard) | 1771 | (next-single-property-change (point) 'hard) |
| 1772 | (forward-char 1) | 1772 | (forward-char 1) |
| 1773 | (throw 'exit nil)))) | 1773 | (throw 'exit nil)))) |