(end-of-line)
;; Optimized for speed - checks only the last character.
- (when (some (lambda (char)
- (= (char-before) char))
- coffee-indenters-eol)
- (setq indenter-at-eol t)))
+ (let ((indenters coffee-indenters-eol))
+ (while indenters
+ (if (/= (char-before) (car indenters))
+ (setq indenters (cdr indenters))
+ (setq indenter-at-eol t)
+ (setq indenters nil)))))
;; If we found an indenter, return `t'.
(or indenter-at-bol indenter-at-eol))))