mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +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
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)