;; jemarch's abbrevs


;;; Abbrevs for C mode

(add-hook 'c-mode-hook
	  (lambda () 
	    (setq abbrev-mode t)))

(add-hook 'c-mode-hook
	  (lambda ()
	    (define-abbrev c-mode-abbrev-table "typedoc"
	      ""
	      'jem-skel-c-type-doc)))

(add-hook 'c-mode-hook
	  (lambda ()
	    (define-abbrev c-mode-abbrev-table "routdoc"
	      ""
	      'jem-skel-c-routine-doc)))

(add-hook 'c-mode-hook
	  (lambda ()
	    (define-abbrev c-mode-abbrev-table "headdoc"
	      ""
	      'jem-skel-c-file-header)))

(add-hook 'c-mode-hook
	  (lambda ()
	    (define-abbrev c-mode-abbrev-table "ife" 
	      ""
	      'jem-skel-c-ife)))


;;; Abbrevs for Tcl mode

(add-hook 'tcl-mode-hook
	  (lambda ()
	    (setq abbrev-mode t)))

(add-hook 'tcl-mode-hook

	  (lambda ()
	    (define-abbrev tcl-mode-abbrev-table "routdoc"
	      ""
	      'jem-skel-tcl-routine-doc)))