diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2023-07-17 22:02:38 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2023-07-17 22:02:44 +0200 |
| commit | ce3f9fba1a32260ff837d689ac6928a75bab86d9 (patch) | |
| tree | 5e96f0c4f3b8ad617a275516c005bf62619aba72 | |
| parent | 17073af84d7eaedc81d84fc16f8aa0db215c6a31 (diff) | |
| download | emacs-ce3f9fba1a32260ff837d689ac6928a75bab86d9.tar.gz | |
; Improve accuracy of out-out-order message insertion
* lisp/net/rcirc.el (rcirc-print): Do not ignore the return value of
'next-single-property-change'.
| -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 cf1b952086a..1ddffe8dec9 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2059,7 +2059,7 @@ connection." (point-min))) (when (let ((then (get-text-property (point) 'rcirc-time))) (and then (not (time-less-p time then)))) - (next-single-property-change (point) 'hard) + (goto-char (next-single-property-change (point) 'hard)) (forward-char 1) (throw 'exit nil)))) (goto-char (line-beginning-position)) |