Lines Matching defs:info
77 followed by NAME (if present). Makes sure that the same indentation info
78 is not pushed twice in a row. Uses free var `indent-info'."
80 (if (and indent-info (equal tmp (car indent-info)))
81 indent-info
82 (push tmp indent-info))))
311 (defun casl-indent-guard (start end end-visible indent-info)
326 indent-info)
328 (defun casl-indent-rhs (start end end-visible indent-info)
343 indent-info)
345 (defun casl-indent-comment (start end indent-info)
364 indent-info)
390 (defun casl-indent-empty (start end end-visible indent-info)
453 indent-info)
455 (defun casl-indent-ident (start end end-visible indent-info)
513 indent-info)
515 (defun casl-indent-other (start end end-visible indent-info)
562 indent-info)
565 indent-info)
569 ('empty (casl-indent-empty start end end-visible indent-info))
570 ('ident (casl-indent-ident start end end-visible indent-info))
571 ('guard (casl-indent-guard start end end-visible indent-info))
572 ('rhs (casl-indent-rhs start end end-visible indent-info))
574 ('other (casl-indent-other start end end-visible indent-info)))
575 indent-info))
578 curr-line-type indent-info)
580 and find indentation info for each part."
593 (setq indent-info
597 end-visible curr-line-type indent-info))
603 (setq indent-info ; do not try to find indentation points
606 curr-line-type indent-info))
612 (setq indent-info
614 curr-line-type indent-info))))
615 indent-info)
617 (defun casl-indent-indentation-info ()
622 indent-info open follow contour-line pt)
640 (setq indent-info ; computing comment indentation
642 (point) indent-info)))
673 (setq indent-info
676 indent-info)))
680 indent-info
698 (let (il indent-list com indent-info cdrii marker)
701 (setq il (setq indent-list (casl-indent-indentation-info)))
703 (setq indent-info (car il))
704 (casl-indent-line-to (car indent-info)) ; insert indentation
712 (setq indent-info (car il))
713 (casl-indent-line-to (car indent-info)) ; insert indentation