diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-01-03 16:58:35 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-01-03 16:58:35 +0000 |
| commit | 71ea138bad3a6bc51106b4ff2f570296069ee4b1 (patch) | |
| tree | f1fe682f0522e3754eb1ac5332642fda3e0955a9 /lisp/align.el | |
| parent | 5618a507ad2ef7d84ae0dd643f87aab41e3f24f0 (diff) | |
| download | emacs-71ea138bad3a6bc51106b4ff2f570296069ee4b1.tar.gz | |
* lisp/align.el (align): Simplify a lambda
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/align.el b/lisp/align.el index da8e51cf120..7e439f3e073 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -893,11 +893,10 @@ on the format of these lists." (or exclude-rules align-mode-exclude-rules-list align-exclude-rules-list) - (function - (lambda (b e mode) - (when (and mode (listp mode)) - (setq sec-first (min sec-first b) - sec-last (max sec-last e)))))) + (lambda (b e mode) + (when (consp mode) + (setq sec-first (min sec-first b) + sec-last (max sec-last e))))) (if (< sec-first sec-last) (align-region sec-first sec-last 'entire (or rules align-mode-rules-list align-rules-list) |