mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

* lisp/align.el (align): Simplify a lambda

Browse Source
This commit is contained in:
Artur Malabarba 2016-01-03 16:58:35 +00:00
parent 5618a507ad
commit 71ea138bad
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/align.el
View File

@ -893,11 +893,10 @@ on the format of these lists."
(or exclude-rules (or exclude-rules
align-mode-exclude-rules-list align-mode-exclude-rules-list
align-exclude-rules-list) align-exclude-rules-list)
(function (lambda (b e mode)
(lambda (b e mode) (when (consp mode)
(when (and mode (listp mode)) (setq sec-first (min sec-first b)
(setq sec-first (min sec-first b) sec-last (max sec-last e)))))
sec-last (max sec-last e))))))
(if (< sec-first sec-last) (if (< sec-first sec-last)
(align-region sec-first sec-last 'entire (align-region sec-first sec-last 'entire
(or rules align-mode-rules-list align-rules-list) (or rules align-mode-rules-list align-rules-list)