Lines Matching refs:spaces
37 (defconstant indent-spaces '(#\Tab #\Space))
43 ;; Number of spaces to insert
50 &aux start line length index current tabs spaces string
66 ;; Skip any spaces after offset, "paranoia check"
67 (while (member (char-after offset) indent-spaces)
71 ;; Check if there are only spaces before `offset' and the line `start'
72 (while (and (>= index 0) (member (char line index) indent-spaces))
76 ;; `index' will be zero if there are only spaces in the `line'
101 ;; correct, removing spaces "inside" tabs.
110 (multiple-value-setq (tabs spaces) (floor (- indent base) 8))
112 length (+ tabs spaces)
163 (or align (member char indent-spaces)
218 #'(lambda (char) (member char indent-spaces))
249 (while (and (>= index 0) (member (char line index) indent-spaces))
252 ;; If line was only spaces