# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 856417719 0
# Node ID b0a097ba0ec562d8cd8e6499b75cba1e39c72311
# Parent  3db0adbc53677c47c4582f88ace07d1c5187d4ee
(occur): Pay attention to multibyte characters.

diff -r 3db0adbc5367 -r b0a097ba0ec5 lisp/replace.el
--- a/lisp/replace.el	Thu Feb 20 05:48:19 1997 +0000
+++ b/lisp/replace.el	Thu Feb 20 05:48:39 1997 +0000
@@ -440,7 +440,7 @@
 		  (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 ?:)