Lines Matching defs:col
37 (defun casl-indent-point-to-col (apoint)
75 (defun casl-indent-push-col (col &optional name)
79 (let ((tmp (cons col name)))
87 (casl-indent-push-col (casl-indent-point-to-col pos) name))
93 (casl-indent-push-col (+ (casl-indent-point-to-col pos)
237 (let ((cur-col 1024) ; maximum column number
242 (while (and (> cur-col 0) (= fl 0) (>= (point) start))
246 (< (current-column) cur-col) ; less indented column found
248 (setq cur-col (current-column)))
363 (casl-indent-push-col (casl-indent-current-indentation)))))
668 (casl-indent-point-to-col (car contour-line)))
729 (let (reg col diffcol reg-end)
733 (setq col (current-column))
734 (setq diffcol (- dest-column col))
744 (move-to-column col)))