(setq prog-mode-hook (copy-tree text-mode-hook))