(occur): Pay attention to multibyte characters.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 086fea67455..0cb0f0486c5 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -440,7 +440,7 @@ It serves as a menu to find any of the occurrences in this buffer.
                   (insert-buffer-substring buffer start end)
                   (set-marker final-context-start 
                               (- (point) (- end (match-end 0))))
-                  (backward-char (- end start))
+                  (goto-char (- (point) (- end start)))
                   (setq tem nlines)
                   (while (> tem 0)
                     (insert empty ?:)