emacs: rename notmuch-address-completion-hook to notmuch-address-post-completion...

Apparently it is a (not completely adhered to) emacs convention [1] that
only hooks that don't take arguments end in 'hook'

[1]: https://www.gnu.org/software/emacs/manual/html_node/elisp/Hooks.html

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 36c796f9e34d11145dda5162a3360cf5db2f31c6..5b2beefeb823c906280755ed4da121fe209969ee 100644 (file)
--- a/emacs/notmuch-address.el
+++ b/emacs/notmuch-address.el
@@ -98,7 +98,7 @@ to know how address selection is made by default."
   :group 'notmuch-send
   :group 'notmuch-external)
 
   :group 'notmuch-send
   :group 'notmuch-external)
 

-(defcustom notmuch-address-completion-hook nil
+(defcustom notmuch-address-post-completion-functions nil

   "Functions called after completing address.
 
 The completed address is passed as an argument to each function.
   "Functions called after completing address.
 
 The completed address is passed as an argument to each function.


@@ -218,7 +218,7 @@ external commands."
            (push chosen notmuch-address-history)
            (delete-region beg end)
            (insert chosen)
            (push chosen notmuch-address-history)
            (delete-region beg end)
            (insert chosen)

-           (run-hook-with-args 'notmuch-address-completion-hook chosen))
+           (run-hook-with-args 'notmuch-address-post-completion-functions chosen))

        (message "No matches.")
        (ding))))
    (t nil)))
        (message "No matches.")
        (ding))))
    (t nil)))

diff --git a/emacs/notmuch-company.el b/emacs/notmuch-company.el
index 91c4804f4a086c95a1f755e10b43eaf4fd421929..b0f9782175a0c0d1c78c67045d0030785e8ab7a9 100644 (file)
--- a/emacs/notmuch-company.el
+++ b/emacs/notmuch-company.el
@@ -86,7 +86,7 @@
       (match (if (string-match notmuch-company-last-prefix arg)
                 (match-end 0)
               0))
       (match (if (string-match notmuch-company-last-prefix arg)
                 (match-end 0)
               0))

-      (post-completion (run-hook-with-args 'notmuch-address-completion-hook arg))
+      (post-completion (run-hook-with-args 'notmuch-address-post-completion-functions arg))

       (no-cache t))))
 
 
       (no-cache t))))