aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Bastien Guerry 2013-02-13 18:28:26 +01:00
parent 50d8ec9752
commit fb87d0eac0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-contacts.el
View file

@ -253,11 +253,11 @@ This function returns a list whose contains:
(len2 (length s2)) (len2 (length s2))
(start2 (or start2 0)) (start2 (or start2 0))
(end2 (or end2 len2)) (end2 (or end2 len2))
(new-start (car (org-contacts-compare-strings (new-start (car (org-contacts-compare-strings
(substring (org-reverse-string s1) (- len1 start1)) nil nil (substring (org-reverse-string s1) (- len1 start1)) nil nil
(substring (org-reverse-string s2) (- len2 start2)) nil nil))) (substring (org-reverse-string s2) (- len2 start2)) nil nil)))
(new-end (+ end1 (car (org-contacts-compare-strings (new-end (+ end1 (car (org-contacts-compare-strings
(substring s1 end1) nil nil (substring s1 end1) nil nil
(substring s2 end2) nil nil))))) (substring s2 end2) nil nil)))))