emacs/address: use member instead of memq to check for pair

Quoting from the elisp reference:

     For other types (e.g., lists, vectors, strings), two arguments
     with the same contents or elements are not necessarily ‘eq’ to
     each other.

Thanks to "Attic Hermit" for the fix.
This commit is contained in:
David Bremner 2017-09-12 22:17:32 -03:00
parent 227ecf4949
commit ff6d3b6489

View file

@ -159,7 +159,7 @@ matching `notmuch-address-completion-headers-regexp'.
#'notmuch-address-expand-name))) #'notmuch-address-expand-name)))
(when setup-company (when setup-company
(notmuch-company-setup)) (notmuch-company-setup))
(unless (memq pair message-completion-alist) (unless (member pair message-completion-alist)
(setq message-completion-alist (setq message-completion-alist
(push pair message-completion-alist))))) (push pair message-completion-alist)))))