Lines Matching defs:type
19 :type 'integer
24 :type 'integer
62 (fset 'event-basic-type 'event-key)
212 (defun casl-indent-type-at-point ()
213 "Returns the type of the line (also puts information in `match-data')."
222 ;; fuer type-definition
244 (and (not (member (casl-indent-type-at-point)
270 type)
273 (setq type (casl-indent-type-at-point))
274 (if (or (eq type 'ident) (eq type 'other)) ; possible start of a value def
276 (if (eq type 'ident)
283 (setq valname (point)) ; type = other
286 (setq type (casl-indent-type-at-point))
287 (or (eq type 'ident) (eq type 'other)))
291 (if (and (< (point) end) (eq type 'rhs)) ; start of a rhs
296 (setq type (casl-indent-type-at-point))
297 (not (eq type 'guard)))
301 (if (and (< (point) end) (eq type 'guard)) ; start of a guard
564 (defun casl-indent-valdef-indentation (start end end-visible curr-line-type
568 (case curr-line-type
578 curr-line-type indent-info)
597 end-visible curr-line-type indent-info))
606 curr-line-type indent-info))
614 curr-line-type indent-info))))
646 (let* ((curr-line-type (casl-indent-type-at-point))
649 (if (eq curr-line-type 'ident)
650 (progn ; guess the type of line
675 end-visible curr-line-type
683 (defun casl-indent-event-type (event)
685 of `event-basic-type'. Needed for dealing with the case that Emacs
689 (t (event-basic-type event)))
708 (while (equal (casl-indent-event-type (setq com (read-event))) 'tab)
715 (if (not (equal (casl-indent-event-type com) 'return))