From 9b4dac83a85cedef739ff9e7d578060002f5d088 Mon Sep 17 00:00:00 2001
From: Mohammad Hossein Bateni <address@hidden>
Date: Fri, 19 Apr 2019 06:45:39 -0400
Subject: [PATCH] Allow the user to customize which TeX commands are available in
 each mode.

Commands such as Biber, DVI2PS, PS2PDF, Index, etc. are not useful in
ConTeXt.  ConTeXt generates a PDF directly and has its own indexing
mechanism.

In Mark IV (which has been the preferred version for over a decade and
is actively developed), a new bibliography package is also available,
which can process old bibtex files as well.  So there is no need for
BibTeX.

Having so many commands in context-mode clutters the menus.  In the
definition of TeX-command-list, we either provide a list of relevant
modes, or set the value to `t' indicating that this command should
always be available.  In the latter case, the user cannot customize
it.  Here we provide sensible defaults as well as the ability for the
user to customize.
---
 tex.el | 34 ++++++++++++++++++++++++----------
 1 file changed, 24 insertions(+), 10 deletions(-)

diff --git a/tex.el b/tex.el
index f469a6c7..e714b7a8 100644
--- a/tex.el
+++ b/tex.el
@@ -136,27 +136,41 @@ If nil, none is specified."
     ("ConTeXt Full" "%(cntxcom) %(extraopts) %(execopts)%t"
      TeX-run-TeX nil
      (context-mode) :help "Run ConTeXt until completion")
-    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX")
-    ("Biber" "biber %s" TeX-run-Biber nil t :help "Run Biber")
+    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode
+		     context-mode)
+     :help "Run BibTeX")
+    ("Biber" "biber %s" TeX-run-Biber nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
+     :help "Run Biber")
     ("View" "%V" TeX-run-discard-or-function t t :help "Run Viewer")
     ("Print" "%p" TeX-run-command t t :help "Print the file")
     ("Queue" "%q" TeX-run-background nil t :help "View the printer queue"
      :visible TeX-queue-command)
-    ("File" "%(o?)dvips %d -o %f " TeX-run-dvips t t
+    ("File" "%(o?)dvips %d -o %f " TeX-run-dvips t
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Generate PostScript file")
-    ("Dvips" "%(o?)dvips %d -o %f " TeX-run-dvips nil t
+    ("Dvips" "%(o?)dvips %d -o %f " TeX-run-dvips nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Convert DVI file to PostScript")
-    ("Dvipdfmx" "dvipdfmx %d" TeX-run-dvipdfmx nil t
+    ("Dvipdfmx" "dvipdfmx %d" TeX-run-dvipdfmx nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Convert DVI file to PDF with dvipdfmx")
-    ("Ps2pdf" "ps2pdf %f" TeX-run-ps2pdf nil t
+    ("Ps2pdf" "ps2pdf %f" TeX-run-ps2pdf nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Convert PostScript file to PDF")
     ("Glossaries" "makeglossaries %s" TeX-run-command nil
-     t :help "Run makeglossaries to create glossary file")
-    ("Index" "makeindex %s" TeX-run-index nil t
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
+     :help "Run makeglossaries to create glossary
+     file")
+    ("Index" "makeindex %s" TeX-run-index nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Run makeindex to create index file")
-    ("upMendex" "upmendex %s" TeX-run-index t t
+    ("upMendex" "upmendex %s" TeX-run-index t
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Run upmendex to create index file")
-    ("Xindy" "texindy %s" TeX-run-command nil t
+    ("Xindy" "texindy %s" TeX-run-command nil
+     (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode)
      :help "Run xindy to create index file")
     ("Check" "lacheck %s" TeX-run-compile nil (latex-mode)
      :help "Check LaTeX file for correctness")
-- 
2.21.0