[elpa] externals/org-contacts 8e9ac123b1 034/154: Do not complete when it's not necessary

[ELPA Syncer]

branch: externals/org-contacts
commit 8e9ac123b1ea1d7bb5c96611225d4052d8faf1c1
Author: Grégoire Jadi <gregoire.jadi@gmail.com>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>

    Do not complete when it's not necessary
    
    * contrib/lisp/org-contacts.el (org-contacts-message-complete-function):
      Remove `completion-in-region--postch' from `post-command-hook'
      because it doesn't (seem?) do anything really useful.
---
 org-contacts.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/org-contacts.el b/org-contacts.el
index 7af8c356a4..e3ec7c7907 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -436,6 +436,9 @@ A group FOO is composed of contacts with the tag FOO."
 
 (defun org-contacts-message-complete-function (&optional start)
   "Function used in `completion-at-point-functions' in `message-mode'."
+  ;; Avoid to complete in `post-command-hook'.
+  (when completion-in-region-mode
+    (remove-hook 'post-command-hook #'completion-in-region--postch))
   (let ((mail-abbrev-mode-regexp
          
"^\\(Resent-To\\|To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\|Disposition-Notification-To\\|Return-Receipt-To\\):"))
     (when (mail-abbrev-in-expansion-header-p)