Browse Source

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.
Grégoire Jadi 5 years ago
parent
commit
aff4b0b2de
1 changed files with 3 additions and 0 deletions
  1. 3 0
      contrib/lisp/org-contacts.el

+ 3 - 0
contrib/lisp/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)