diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index f23d938be..49bf4894d 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -253,11 +253,11 @@ This function returns a list whose contains: (len2 (length s2)) (start2 (or start2 0)) (end2 (or end2 len2)) - + (new-start (car (org-contacts-compare-strings (substring (org-reverse-string s1) (- len1 start1)) nil nil (substring (org-reverse-string s2) (- len2 start2)) nil nil))) - + (new-end (+ end1 (car (org-contacts-compare-strings (substring s1 end1) nil nil (substring s2 end2) nil nil)))))