mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-16 12:46:27 +00:00
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.
This commit is contained in:
parent
5800920c99
commit
aff4b0b2de
|
@ -436,6 +436,9 @@ A group FOO is composed of contacts with the tag FOO."
|
||||||
|
|
||||||
(defun org-contacts-message-complete-function (&optional start)
|
(defun org-contacts-message-complete-function (&optional start)
|
||||||
"Function used in `completion-at-point-functions' in `message-mode'."
|
"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
|
(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\\):"))
|
"^\\(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)
|
(when (mail-abbrev-in-expansion-header-p)
|
||||||
|
|
Loading…
Reference in a new issue