[elpa] scratch/org-contacts-rebased 48ca58b 033/118: Do not complete when it's not necessary

[Stefan Monnier]

branch: scratch/org-contacts-rebased
commit 48ca58b758cea71005a1e653070e4967b057b096
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 7af8c35..e3ec7c7 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)