; 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:
parent
17073af84d
commit
ce3f9fba1a
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Reference in a new issue