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