Lines Matching defs:guard
223 ((looking-at "\\(|[^|_]\\)[ \t\n]*") 'guard)
269 guard aft-guard
297 (not (eq type 'guard)))
301 (if (and (< (point) end) (eq type 'guard)) ; start of a guard
303 (setq guard (match-beginning 0))
306 (setq aft-guard (point)))))
309 guard aft-guard))))
311 (defun casl-indent-guard (start end end-visible indent-info)
312 "Finds indentation information for a line starting with a guard."
317 (guard (nth 5 sep)))
319 (if (and guard (< guard end-visible))
320 (casl-indent-push-pos guard)
334 (guard (nth 5 sep)))
338 (if (and guard (< guard end-visible))
339 (casl-indent-push-pos-offset guard)
400 (guard (pop sep))
401 (aft-guard (pop sep))
408 (if (and guard (< guard end-visible)) "1" "0")
409 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
426 (casl-indent-push-pos guard))
442 (5 (casl-indent-push-pos guard))
448 (8 (if guard (casl-indent-push-pos guard))
465 (guard (pop sep))
466 (aft-guard (pop sep))
473 (if (and guard (< guard end-visible)) "1" "0")
474 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
503 (casl-indent-push-pos guard))
517 than an identifier, a guard or rhs."
526 (guard (pop sep))
527 (aft-guard (pop sep))
536 (if (and guard (< guard end-visible)) "1" "0")
537 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
553 (5 (casl-indent-push-pos guard))
571 ('guard (casl-indent-guard start end end-visible indent-info))