contrib/lisp/org-contacts.el: Delete trailing whitespaces

This commit is contained in:
Bastien Guerry 2013-02-13 18:28:26 +01:00
parent 50d8ec9752
commit fb87d0eac0

View file

@ -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)))))