Lines Matching refs:event
62 (fset 'event-basic-type 'event-key)
63 (fset 'read-event 'next-command-event)
683 (defun casl-indent-event-type (event)
685 of `event-basic-type'. Needed for dealing with the case that Emacs
687 (cond ((eq event ?\t) 'tab)
688 ((eq event ?\r) 'return)
689 (t (event-basic-type event)))
702 ;;(message "Indent-list:%s" indent-list) (read-event) ; uncomment for debug!!
708 (while (equal (casl-indent-event-type (setq com (read-event))) 'tab)
715 (if (not (equal (casl-indent-event-type com) 'return))