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

contrib/lisp/org-contacts: Fix two typos in comments

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-db): fix typo in the
  word `matching'.
* contrib/lisp/org-contacts.el (org-contacts-complete-group): fix typo
  in the word `found'.

TINYCHANGE
This commit is contained in:
Michael Strey 2013-04-26 12:06:34 +02:00 committed by Grégoire Jadi
parent 68a0286a8f
commit 43d2cdde45
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

@ -225,7 +225,7 @@ This overrides `org-email-link-description-format' if set."
org-contacts-db)) org-contacts-db))
(defun org-contacts-filter (&optional name-match tags-match) (defun org-contacts-filter (&optional name-match tags-match)
"Search for a contact maching NAME-MATCH and TAGS-MATCH. "Search for a contact matching NAME-MATCH and TAGS-MATCH.
If both match values are nil, return all contacts." If both match values are nil, return all contacts."
(if (and (null name-match) (if (and (null name-match)
(null tags-match)) (null tags-match))
@ -433,7 +433,7 @@ A group FOO is composed of contacts with the tag FOO."
(or (cdr (assoc-string "ALLTAGS" (caddr contact))) "") ":"))))))) (or (cdr (assoc-string "ALLTAGS" (caddr contact))) "") ":")))))))
(list start end (list start end
(if (= (length completion-list) 1) (if (= (length completion-list) 1)
;; We've foudn the correct group, returns the address ;; We've found the correct group, returns the address
(lexical-let ((tag (get-text-property 0 'org-contacts-group (lexical-let ((tag (get-text-property 0 'org-contacts-group
(car completion-list)))) (car completion-list))))
(lambda (string pred &optional to-ignore) (lambda (string pred &optional to-ignore)