Lines Matching refs:ident
221 "[ \t\n]*\\)")) 'ident)
230 (defvar casl-indent-current-line-first-ident ""
231 "Global variable that keeps track of the first ident of the line to indent.")
274 (if (or (eq type 'ident) (eq type 'other)) ; possible start of a value def
276 (if (eq type 'ident)
287 (or (eq type 'ident) (eq type 'other)))
455 (defun casl-indent-ident (start end end-visible indent-info)
482 casl-indent-current-line-first-ident))
512 (t (error "casl-indent-ident: %s impossible case" test )))))))
530 ; (string-match "where[ \t]*" casl-indent-current-line-first-ident))
570 ('ident (casl-indent-ident start end end-visible indent-info))
649 (if (eq curr-line-type 'ident)
654 ;; if the first ident is where or the start of a def
657 (setq casl-indent-current-line-first-ident
659 (setq casl-indent-current-line-first-ident ""))))