contrib/lisp/org-contacts: Fix two typos in comments
* 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:
parent
68a0286a8f
commit
43d2cdde45
1 changed files with 2 additions and 2 deletions
|
@ -225,7 +225,7 @@ This overrides `org-email-link-description-format' if set."
|
|||
org-contacts-db))
|
||||
|
||||
(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 (and (null name-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))) "") ":")))))))
|
||||
(list start end
|
||||
(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
|
||||
(car completion-list))))
|
||||
(lambda (string pred &optional to-ignore)
|
||||
|
|
Loading…
Reference in a new issue