diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-28 08:40:15 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-28 08:40:15 +0100 |
commit | 8992f8abf348b5b4eb2b2074d00b9c9aaaa6df17 (patch) | |
tree | 2998d71f8f217cbc16970ac4625a0a665ad1e46a /lisp/whitespace.el | |
parent | e7e7ef15886ce28d1d1873164e7ee17a6a5878e0 (diff) | |
download | emacs-8992f8abf348b5b4eb2b2074d00b9c9aaaa6df17.tar.gz |
Make the default `whitespace-enable-predicate' use `derived-mode-p'
* lisp/whitespace.el (whitespace-enable-predicate): Use
`derived-mode-p' to check modes instead of `eq' (bug#40481).
Diffstat (limited to 'lisp/whitespace.el')
-rw-r--r-- | lisp/whitespace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 7b8e5b7cc11..22bfae06975 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -1000,8 +1000,8 @@ See also `whitespace-style', `whitespace-newline' and ((eq whitespace-global-modes t)) ((listp whitespace-global-modes) (if (eq (car-safe whitespace-global-modes) 'not) - (not (memq major-mode (cdr whitespace-global-modes))) - (memq major-mode whitespace-global-modes))) + (not (apply #'derived-mode-p (cdr whitespace-global-modes))) + (apply #'derived-mode-p whitespace-global-modes))) (t nil)) ;; ...we have a display (not running a batch job) (not noninteractive) |