Lines Matching defs:mode
12 (defconst casl-mode-version "0.3"
16 "Major mode for editing (heterogeneous) CASL specifications."
21 (defvar casl-mode-hook nil)
22 (defvar casl-mode-map (let ((keymap (make-keymap)))
29 "Keymap for CASL major mode")
37 ;; Syntax table for CASL major mode
38 (defvar casl-mode-syntax-table nil
39 "Syntax table for CASL mode.")
41 (if casl-mode-syntax-table
74 (setq casl-mode-syntax-table table))
77 ;; Various mode variables.
117 "CASL mode face for Annotations")
262 "Default syntax highlighting level in CASL mode")
302 (compilation-mode "hets-compile")
369 ;; and hack its mode line.
374 ;; Since the buffer and mode line will show that the
402 "Write msg in the current buffer and hack its mode-line-process."
411 (insert ?\n mode-name " " (car status))
416 (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
417 ;; Force mode line redisplay soon.
418 (force-mode-line-update)
493 ;; casl major mode setup
494 ;; Definition of CASL major mode
495 (defun casl-mode ()
496 "Major mode for editing CASL models"
499 (setq major-mode 'casl-mode)
500 (setq mode-name "CASL")
502 (use-local-map casl-mode-map)
504 (set-syntax-table casl-mode-syntax-table)
514 (add-hook 'compilation-mode-hook
518 (define-key compilation-minor-mode-map [mouse-2]
520 (define-key compilation-minor-mode-map "\C-m"
522 (run-hooks 'casl-mode-hook)
525 (provide 'casl-mode)
527 ;; CASL-mode ends here