Lines Matching defs:contour
233 (defun casl-indent-contour-line (start end)
234 "Generates contour information between START and END points."
239 contour)
247 (push (point) contour) ; new contour point found
251 contour))))
622 indent-info open follow contour-line pt)
644 (setq contour-line (casl-indent-contour-line start end))
645 (if contour-line
660 (while contour-line ; explore the contour points
661 (setq line-start (pop contour-line))
665 (if contour-line ; next contour point
668 (casl-indent-point-to-col (car contour-line)))
678 ;; simple contour just one indentation at start