(defun px () (interactive) (setq x auto-mode-alist) (rplacd (assoc "\\.tex$" x) 'lisp-mode) )