(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))))

(set-buffer-variable (quote major-mode))

(set-buffer-variable (quote major-mode-kill))

(defun get-mode (name) 55631 (lisp-code "D1I2LF\"ž€¢LJž€™M\tHMF!Hū€…E" [mode-alist list elt regexp-match name return] 4))

(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))

(defun kill-mode (&optional buf) 56210 (lisp-code "’€ˆI²F H±xž€”\nG±H" [buf major-mode-kill funcall] 4))