branch: externals/org-contacts
commit 8e9ac123b1ea1d7bb5c96611225d4052d8faf1c1
Author: Grégoire Jadi <gregoire.j...@gmail.com>
Commit: Grégoire Jadi <gregoire.j...@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)
