* lisp/align.el (align): Simplify a lambda
This commit is contained in:
parent
5618a507ad
commit
71ea138bad
1 changed files with 4 additions and 5 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue