Tex/LaTeX changes

  - set fill column correctly
  - remove keyadvice since it never worked
  - add XeLaTeX support
  - do not auto revert tex output; it only makes sense manually

3 files changed, 9 insertions, 14 deletions

diff --git a/init.el b/init.el
index 18c060f..973d04b 100644
--- a/init.el
+++ b/init.el
@@ -118,10 +118,6 @@
         (bind-key "<f8>" 'ido-switch-buffer)))
     (bind-key "<f12>" 'undo-tree-undo)))
 
-(use-package keyadvice
-  :load-path ,(ravi/emacs-file "site-lisp/keyadvice")
-  )
-
 (use-package free-keys
   :ensure t
   :commands free-keys)
diff --git a/ravi-init-files.el b/ravi-init-files.el
index 44d1683..96d4dc5 100644
--- a/ravi-init-files.el
+++ b/ravi-init-files.el
@@ -36,6 +36,7 @@
 
 ;; Also auto refresh dired, but be quiet about it
 (setq global-auto-revert-non-file-buffers t)
+(setq global-auto-revert-ignore-modes '(TeX-output-mode))
 (setq auto-revert-verbose nil)
 
 ;; Transparently open compressed files
diff --git a/ravi-init-tex.el b/ravi-init-tex.el
index e61cac4..d7725e9 100644
--- a/ravi-init-tex.el
+++ b/ravi-init-tex.el
@@ -164,26 +164,24 @@ starting with \\ and followed by a block of text enclosed in {}."
           (TeX-fold-mode t)
 
           (smartparens-mode 1)
-          (keyadvice-mode t)
 
           (LaTeX-add-environments
            '("derivation" LaTeX-env-label))
           (TeX-add-symbols '("emph" 1))
 
-          (setq fill-column 100000)
+          (setq fill-column 88)
+
+          ;; Add XeLaTeX support to AucTeX
+          (add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
+          (setq TeX-command-default "XeLaTeX")
+          (setq TeX-save-query nil)
+          (setq TeX-show-compilation t)
 
           (message "LaTeX mode init complete."))
         ;; ACUTeX replaces latex-mode-hook with LaTeX-mode-hook
         (add-hook 'LaTeX-mode-hook 'my-LaTeX-mode-init)
 
-        ;; Why does this not work?
-        (keyadvice-add-advice (kbd "`")
-                              (if (and (eq major-mode 'latex-mode) (texmathp))
-                                  (let* ((events (let ((overriding-local-map LaTeX-math-keymap))
-                                                   (read-key-sequence "math: ")))
-                                         (binding (lookup-key LaTeX-math-keymap events)))
-                                    (call-interactively binding))
-                                keyadvice-do-it))))
+        ))
     )
   )