; 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'.
This commit is contained in:
Philip Kaludercic 2023-07-17 22:02:38 +02:00
parent 17073af84d
commit ce3f9fba1a

View file

@ -2059,7 +2059,7 @@ connection."
(point-min))) (point-min)))
(when (let ((then (get-text-property (point) 'rcirc-time))) (when (let ((then (get-text-property (point) 'rcirc-time)))
(and then (not (time-less-p time then)))) (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) (forward-char 1)
(throw 'exit nil)))) (throw 'exit nil))))
(goto-char (line-beginning-position)) (goto-char (line-beginning-position))