diff options
| author | Artur Malabarba | 2016-01-03 16:58:35 +0000 |
|---|---|---|
| committer | Artur Malabarba | 2016-01-03 16:58:35 +0000 |
| commit | 71ea138bad3a6bc51106b4ff2f570296069ee4b1 (patch) | |
| tree | f1fe682f0522e3754eb1ac5332642fda3e0955a9 | |
| parent | 5618a507ad2ef7d84ae0dd643f87aab41e3f24f0 (diff) | |
| download | emacs-71ea138bad3a6bc51106b4ff2f570296069ee4b1.tar.gz emacs-71ea138bad3a6bc51106b4ff2f570296069ee4b1.zip | |
* lisp/align.el (align): Simplify a lambda
| -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." | |||
| 893 | (or exclude-rules | 893 | (or exclude-rules |
| 894 | align-mode-exclude-rules-list | 894 | align-mode-exclude-rules-list |
| 895 | align-exclude-rules-list) | 895 | align-exclude-rules-list) |
| 896 | (function | 896 | (lambda (b e mode) |
| 897 | (lambda (b e mode) | 897 | (when (consp mode) |
| 898 | (when (and mode (listp mode)) | 898 | (setq sec-first (min sec-first b) |
| 899 | (setq sec-first (min sec-first b) | 899 | sec-last (max sec-last e))))) |
| 900 | sec-last (max sec-last e)))))) | ||
| 901 | (if (< sec-first sec-last) | 900 | (if (< sec-first sec-last) |
| 902 | (align-region sec-first sec-last 'entire | 901 | (align-region sec-first sec-last 'entire |
| 903 | (or rules align-mode-rules-list align-rules-list) | 902 | (or rules align-mode-rules-list align-rules-list) |