1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index f8c5fed5578..d0c63669159 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1407,9 +1407,9 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]."
                     (common-prefix
                      (lambda (s1 s2)
                        (let ((c (compare-strings s1 nil nil s2 nil nil)))
-                          (if (zerop c)
+                          (if (numberp c)
-                              (length s1)
+                              (1- (abs c))
-                            (1- (abs c))))))
+                            (length s1)))))
                     (prefix-len (funcall common-prefix buf-str text))
                     (suffix-len (funcall common-prefix
                                          (reverse buf-str) (reverse text))))

diff --git a/lisp/replace.el b/lisp/replace.el index f8c5fed5578..d0c63669159 100644 --- a/lisp/replace.el +++ b/lisp/replace.el
@@ -1407,9 +1407,9 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]."
1407	(common-prefix	1407	(common-prefix
1408	(lambda (s1 s2)	1408	(lambda (s1 s2)
1409	(let ((c (compare-strings s1 nil nil s2 nil nil)))	1409	(let ((c (compare-strings s1 nil nil s2 nil nil)))
1410	(if (zerop c)	1410	(if (numberp c)
1411	(length s1)	1411	(1- (abs c))
1412	(1- (abs c))))))	1412	(length s1)))))
1413	(prefix-len (funcall common-prefix buf-str text))	1413	(prefix-len (funcall common-prefix buf-str text))
1414	(suffix-len (funcall common-prefix	1414	(suffix-len (funcall common-prefix
1415	(reverse buf-str) (reverse text))))	1415	(reverse buf-str) (reverse text))))