diff options
| author | Tom Tromey | 2017-03-18 23:06:05 +0100 |
|---|---|---|
| committer | Tom Tromey | 2017-04-05 15:53:38 -0600 |
| commit | 95aba610f1c1a40b0218b64b4d20ade7a6299208 (patch) | |
| tree | 169876feadc71357a792a9691a5bdf882240c5c4 | |
| parent | c92bae9a08cc7c2eb61bad32d9a9d6553b6d2c19 (diff) | |
| download | emacs-95aba610f1c1a40b0218b64b4d20ade7a6299208.tar.gz emacs-95aba610f1c1a40b0218b64b4d20ade7a6299208.zip | |
change align to use derived-mode-p
* lisp/align.el (align-region): Use derived-mode-p.
| -rw-r--r-- | lisp/align.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/align.el b/lisp/align.el index b6a855b4954..000b63ed785 100644 --- a/lisp/align.el +++ b/lisp/align.el | |||
| @@ -1322,7 +1322,7 @@ aligner would have dealt with are." | |||
| 1322 | (modes (assq 'modes rule))) | 1322 | (modes (assq 'modes rule))) |
| 1323 | ;; unless the `run-if' form tells us not to, look for the | 1323 | ;; unless the `run-if' form tells us not to, look for the |
| 1324 | ;; rule.. | 1324 | ;; rule.. |
| 1325 | (unless (or (and modes (not (memq major-mode | 1325 | (unless (or (and modes (not (cl-member-if #'derived-mode-p |
| 1326 | (eval (cdr modes))))) | 1326 | (eval (cdr modes))))) |
| 1327 | (and run-if (not (funcall (cdr run-if))))) | 1327 | (and run-if (not (funcall (cdr run-if))))) |
| 1328 | (let* ((case-fold-search case-fold-search) | 1328 | (let* ((case-fold-search case-fold-search) |