diff --git a/org-contacts.el b/org-contacts.el index f23d938..49bf489 100644 --- a/org-contacts.el +++ b/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)))))