diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-12-22 22:32:50 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-12-22 22:32:50 -0800 |
| commit | e29861ae23f310894de46d799ef6607f314faebf (patch) | |
| tree | c5eab85b7358e39beab2d95ddcb5408a240f0752 | |
| parent | a000d14a3753d717b778b99a8bf2dc595cb7a44a (diff) | |
[company-ebdb] Use derived-mode-p with company-ebdb-modes
* packages/company-ebdb/company-ebdb.el (company-ebdb-modes): And
remove notmuch-message-mode from the list, as that derives from
message-mode.
| -rw-r--r-- | company-ebdb.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/company-ebdb.el b/company-ebdb.el index e889935..9766d04 100644 --- a/company-ebdb.el +++ b/company-ebdb.el @@ -41,7 +41,7 @@ "Completion backend for EBDB." :group 'company) -(defcustom company-ebdb-modes '(message-mode mail-mode notmuch-message-mode) +(defcustom company-ebdb-modes '(message-mode mail-mode) "Major modes in which `company-ebdb' may complete." :type '(repeat (symbol :tag "Major mode")) :package-version '(company . "0.8.8")) @@ -54,7 +54,7 @@ (ebdb-field-mail ,arg)))))) (defun company-ebdb--post-complete (arg) - (when (memq major-mode company-ebdb-modes) + (when (apply #'derived-mode-p company-ebdb-modes) (let* ((bits (ebdb-decompose-ebdb-address arg)) (recs (ebdb-message-search (car bits) (nth 1 bits)))) (when recs @@ -66,7 +66,7 @@ (interactive (list 'interactive)) (cl-case command (interactive (company-begin-backend 'company-ebdb)) - (prefix (and (memq major-mode company-ebdb-modes) + (prefix (and (apply #'derived-mode-p company-ebdb-modes) (featurep 'ebdb-com) (looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)" (line-beginning-position)) |