(defvar pal-mode-hook nil)

(defvar pal-mode-map nil)

(or pal-mode-map (let ((bindings (quote (("" quote pal-foo))))) (setq pal-mode-map (make-keymap)) (while bindings (define-key pal-mode-map (car (car bindings)) (cdr (car bindings))) (setq bindings (cdr bindings)))))

(defun pal-mode nil (interactive) (byte-code "ÈΔ!ˆΕ‰ˆΖ‰ˆΗΘ!‡" [pal-mode-map mode-name major-mode nil use-local-map "Pal" pal-mode run-hooks pal-mode-hook] 3))