; 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'.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index cf1b952086af9de7647fcda81b3e8d27b64218b0..1ddffe8dec99afa9024e6a2a5b73f6a3ed0880d9 100644 (file)
--- 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))