From 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 19 Apr 2011 15:44:55 +0200 Subject: lisp/*.el: Lexical-binding cleanup. --- lisp/align.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/align.el') diff --git a/lisp/align.el b/lisp/align.el index 83e27daeced..8767b6ff306 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1106,7 +1106,7 @@ documentation for `align-region-separate' for more details." (setq seps (cdr seps)))) yes)))) -(defun align-adjust-col-for-rule (column rule spacing tab-stop) +(defun align-adjust-col-for-rule (column _rule spacing tab-stop) "Adjust COLUMN according to the given RULE. SPACING specifies how much spacing to use. TAB-STOP specifies whether SPACING refers to tab-stop boundaries." @@ -1161,7 +1161,7 @@ have been aligned. No changes will be made to the buffer." (justify (cdr (assq 'justify rule))) (col (or fixed 0)) (width 0) - ecol change look) + ecol change) ;; Determine the alignment column. (let ((a areas)) @@ -1285,7 +1285,6 @@ purpose where you might want to know where the regions that the aligner would have dealt with are." (let ((end-mark (and end (copy-marker end t))) (real-beg beg) - (real-end end) (report (and (not func) align-large-region beg end (>= (- end beg) align-large-region))) (rule-index 1) @@ -1314,7 +1313,7 @@ aligner would have dealt with are." tab-stop tab-stop-c repeat repeat-c valid valid-c - pos-list first + first regions index last-point b e save-match-data -- cgit v1.2.3