home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / lisp / modes.jlc < prev    next >
Text File  |  1994-04-20  |  795b  |  13 lines
  1.  
  2. (setq mode-alist (quote (("^c(|-mode)$" . c-mode) ("\\.[ch]$" . c-mode) ("^lisp(|-mode)$" . lisp-mode) ("\\.jl$" . lisp-mode) ("^texinfo(|-mode)$" . texinfo-mode) ("\\.texi(|nfo)$" . texinfo-mode))))
  3.  
  4. (set-buffer-variable (quote major-mode))
  5.  
  6. (set-buffer-variable (quote major-mode-kill))
  7.  
  8. (defun get-mode (name) 55631 (lisp-code "D1I2LF\"þ€¢LJ þ€™M\tHMF!Hû€…E" [mode-alist list elt regexp-match name return] 4))
  9.  
  10. (defun init-mode (buf &optional name) 55783 (lisp-code "ÿ€†I²±xþ€ÿ€´ÿ€«ÿ€«†‡ˆˆ\n ÿ€«‰\tF\"HŠ\tF!H‹\tþ€ÁŒ\nG±H" [buf major-mode name mode-name regexp-expand-line "-\\*- *([^ ]+) *-\\*-" "\\1" pos 1 file-name get-mode functionp funcall] 7))
  11.  
  12. (defun kill-mode (&optional buf) 56210 (lisp-code "ÿ€ˆI²F H±xþ€”\nG±H" [buf major-mode-kill funcall] 4))
  13.