diff options
| author | Mattias Engdegård | 2021-07-26 09:15:04 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2021-07-26 09:15:04 +0200 |
| commit | 6b7c22e7ee87a57ff78e2baf0baa847e34b9b4da (patch) | |
| tree | 0f94ce9ec4dd8073f711bffb968eec971c2b3fc5 /lisp/replace.el | |
| parent | a45aed9479f610bcbc7a171b60d915fefc9b586a (diff) | |
| download | emacs-6b7c22e7ee87a57ff78e2baf0baa847e34b9b4da.tar.gz emacs-6b7c22e7ee87a57ff78e2baf0baa847e34b9b4da.zip | |
; * lisp/replace.el (occur-after-change-function): Fix logic mistake
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
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]." | |||
| 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)))) |