Lines Matching defs:push
10 (require 'cl) ;need defs of push and pop
75 (defun casl-indent-push-col (col &optional name)
82 (push tmp indent-info))))
84 (defun casl-indent-push-pos (pos &optional name)
87 (casl-indent-push-col (casl-indent-point-to-col pos) name))
89 (defun casl-indent-push-pos-offset (pos &optional offset)
93 (casl-indent-push-col (+ (casl-indent-point-to-col pos)
247 (push (point) contour) ; new contour point found
318 ;; push information indentation for the visible part
320 (casl-indent-push-pos guard)
322 (casl-indent-push-pos-offset rhs-sign 2) ; behind "::="
324 (casl-indent-push-pos-offset valname)
335 ;; push information indentation for the visible part
337 (casl-indent-push-pos rhs-sign)
339 (casl-indent-push-pos-offset guard)
341 (casl-indent-push-pos-offset valname)
342 (casl-indent-push-pos-offset valname))))))
357 (casl-indent-push-pos comment-start)
361 (casl-indent-push-pos (point)))
363 (casl-indent-push-col (casl-indent-current-indentation)))))
415 (casl-indent-push-pos valname)
416 (casl-indent-push-pos-offset valname)
420 (casl-indent-push-pos valname)
424 (1 (casl-indent-push-pos valname)
425 (casl-indent-push-pos-offset rhs-sign 2)
426 (casl-indent-push-pos guard))
428 (2 (casl-indent-push-pos valname)
430 (casl-indent-push-pos aft-valname)
431 (casl-indent-push-pos valname valname-string)))
433 (3 (casl-indent-push-pos valname)
435 (casl-indent-push-pos aft-valname))
436 (casl-indent-push-pos-offset rhs-sign 2)
439 (4 (casl-indent-push-pos valname)
440 (casl-indent-push-pos-offset rhs-sign 2))
442 (5 (casl-indent-push-pos guard))
444 (6 (casl-indent-push-pos rhs-sign))
446 (7 (casl-indent-push-pos-offset rhs-sign 2))
448 (8 (if guard (casl-indent-push-pos guard))
449 (casl-indent-push-pos valname))
479 (casl-indent-push-pos valname)
483 (casl-indent-push-pos-offset valname))
487 (casl-indent-push-pos valname)
491 (1 (casl-indent-push-pos valname))
493 (2 (casl-indent-push-pos valname)
495 (casl-indent-push-pos aft-valname)
496 (casl-indent-push-pos valname valname-string)))
498 (3 (casl-indent-push-pos-offset rhs-sign 2))
500 (4 (casl-indent-push-pos valname))
502 (5 ;; (casl-indent-push-pos 0)
503 (casl-indent-push-pos guard))
505 (6 (casl-indent-push-pos rhs-sign))
508 (casl-indent-push-pos-offset rhs-sign 2))
510 (8 (casl-indent-push-pos valname))
541 (casl-indent-push-pos-offset valname)
545 (1 (casl-indent-push-pos valname))
547 (2 (casl-indent-push-pos-offset valname))
549 (3 (casl-indent-push-pos valname))
551 (4 (casl-indent-push-pos valname))
553 (5 (casl-indent-push-pos guard))
555 (6 (casl-indent-push-pos-offset rhs-sign 2))
559 (8 (casl-indent-push-pos valname))
609 (casl-indent-push-pos beg-match)))
627 (casl-indent-push-pos open); align a ) or punct with (
634 (casl-indent-push-pos-offset open 1)
635 (casl-indent-push-pos follow))))
679 (casl-indent-push-pos start)))