home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / text / tex / 9516 < prev    next >
Encoding:
Text File  |  1992-07-25  |  14.9 KB  |  405 lines
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!mips!pacbell.com!network.ucsd.edu!mvb.saic.com!info-tex
  2. From: SENS@fasecon.econ.nyu.edu
  3. Newsgroups: comp.text.tex
  4. Subject: AUC TeX and GNU Emacs for OS/2 2.0 (long)
  5. Message-ID: <MAILQUEUE-101.920725231422.480@fasecon.econ.nyu.edu>
  6. Date: 25 Jul 92 23:14:22 EST
  7. Organization: Info-Tex<==>Comp.Text.Tex Gateway
  8. X-Gateway-Source-Info: Mailing List
  9. Lines: 394
  10.  
  11. Greetings fellow emTeXers,
  12.  
  13. I don't know how big the set OS/2 /\ emTeX /\ Emacs is (surely it is non
  14. empty!), but here is how I got AUC TeX to work with GNU Emacs and emTeX
  15. for OS/2 2.0, in case any one is interested.  My method is probably crude,
  16. but it works (at least on my machine).  On a 386/25DX with 8M memory and
  17. an all hpfs drive, the speed is quite good.
  18.  
  19. 1. Apply the following patch to auc-tex.el:
  20.  
  21. ------------------------------ cut here ------------------------------
  22. diff -cbB auc-tex.el \Emacs\auctex\auc-tex.el
  23. *** auc-tex.el          Fri Jun 12 20:55:15 1992
  24. --- /Emacs/auctex/auc-tex.el    Fri Jul 24 16:49:28 1992
  25. ***************
  26. *** 243,249 ****
  27.     (setq TeX-mode-map (make-sparse-keymap))
  28.     (TeX-define-common-keys TeX-mode-map)
  29.     (define-key TeX-mode-map "\177"     'backward-delete-char-untabify)
  30. !   (define-key TeX-mode-map "\n"       'TeX-terminate-paragraph)
  31.     (define-key TeX-mode-map "\""       'TeX-insert-quote)
  32.     (define-key TeX-mode-map "\e}"      'up-list)
  33.     (define-key TeX-mode-map "\e{"      'TeX-insert-braces)
  34. --- 247,253 ----
  35.     (setq TeX-mode-map (make-sparse-keymap))
  36.     (TeX-define-common-keys TeX-mode-map)
  37.     (define-key TeX-mode-map "\177"     'backward-delete-char-untabify)
  38. !   (define-key TeX-mode-map "\C-j"     'TeX-terminate-paragraph)
  39.     (define-key TeX-mode-map "\""       'TeX-insert-quote)
  40.     (define-key TeX-mode-map "\e}"      'up-list)
  41.     (define-key TeX-mode-map "\e{"      'TeX-insert-braces)
  42. ***************
  43. *** 251,257 ****
  44.     (define-key TeX-mode-map "\C-c'"    'TeX-comment-out-paragraph)
  45.     (define-key TeX-mode-map "\C-c:"    'TeX-un-comment-region)
  46.     (define-key TeX-mode-map "\C-c\""   'TeX-un-comment)
  47. !   (define-key TeX-mode-map "\C-c\C-o" 'outline-minor-mode)
  48.     (define-key TeX-mode-map "\C-c\C-b" 'TeX-bold)
  49.     (define-key TeX-mode-map "\C-c\C-i" 'TeX-italic)
  50.     (define-key TeX-mode-map "\C-c\C-s" 'TeX-slanted)
  51. --- 255,261 ----
  52.     (define-key TeX-mode-map "\C-c'"    'TeX-comment-out-paragraph)
  53.     (define-key TeX-mode-map "\C-c:"    'TeX-un-comment-region)
  54.     (define-key TeX-mode-map "\C-c\""   'TeX-un-comment)
  55. !   (define-key TeX-mode-map "\C-c\C-o" 'TeX-cmd-on-region)
  56.     (define-key TeX-mode-map "\C-c\C-b" 'TeX-bold)
  57.     (define-key TeX-mode-map "\C-c\C-i" 'TeX-italic)
  58.     (define-key TeX-mode-map "\C-c\C-s" 'TeX-slanted)
  59. ***************
  60. *** 270,298 ****
  61.     (define-key TeX-mode-map "\C-c\C-w" 'TeX-toggle-debug-boxes)
  62.     (define-key TeX-mode-map "\C-c?"    'TeX-mode-help)
  63.     (define-key TeX-mode-map "\C-c!"    'TeX-print)
  64. !   (define-key TeX-mode-map "\e\t"     'TeX-complete-symbol)
  65. !
  66. !   (define-key TeX-mode-map "\C-c$"    'TeX-run-lacheck))
  67.  
  68.   (if LaTeX-mode-map
  69.       ()
  70.     (setq LaTeX-mode-map (copy-keymap TeX-mode-map))
  71. !   (define-key LaTeX-mode-map "\n"       'reindent-then-newline-and-indent)
  72.     (define-key LaTeX-mode-map "\t"       'LaTeX-indent-line)
  73. !   (define-key LaTeX-mode-map "\M-\r"     'LaTeX-insert-item)
  74. !   (define-key LaTeX-mode-map "\C-c\n"   'TeX-terminate-paragraph)
  75.     (define-key LaTeX-mode-map "\C-c\C-x" 'LaTeX-section)
  76.     (define-key LaTeX-mode-map "\C-c\C-c" 'LaTeX-environment)
  77.     (define-key LaTeX-mode-map "\C-c@"    'LaTeX-bibtex)
  78.     (define-key LaTeX-mode-map "\C-c#"    'LaTeX-makeindex)
  79. !   (define-key LaTeX-mode-map "\M-m"     'LaTeX-math-mode)
  80. !   (define-key LaTeX-mode-map "\M-q"     'LaTeX-format-paragraph)
  81. !   (define-key LaTeX-mode-map "\M-g"     'LaTeX-format-region)
  82. !   (define-key LaTeX-mode-map "\M-s"     'LaTeX-format-section)
  83. !   (define-key LaTeX-mode-map "\M-\C-e"  'LaTeX-mark-environment)
  84.     (define-key LaTeX-mode-map "\C-c\C-f"  'LaTeX-close-environment)
  85. !   (define-key LaTeX-mode-map "\M-\C-x"  'LaTeX-mark-section)
  86. !   (define-key LaTeX-mode-map "\M-\C-q"  'LaTeX-format-environment))
  87.  
  88.   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  89.   ;; TeX / LaTeX modes
  90. --- 272,298 ----
  91.     (define-key TeX-mode-map "\C-c\C-w" 'TeX-toggle-debug-boxes)
  92.     (define-key TeX-mode-map "\C-c?"    'TeX-mode-help)
  93.     (define-key TeX-mode-map "\C-c!"    'TeX-print)
  94. !   (define-key TeX-mode-map "\e\t"     'TeX-complete-symbol))
  95.  
  96.   (if LaTeX-mode-map
  97.       ()
  98.     (setq LaTeX-mode-map (copy-keymap TeX-mode-map))
  99. !   (define-key LaTeX-mode-map "\C-j"     'reindent-then-newline-and-indent)
  100.     (define-key LaTeX-mode-map "\t"       'LaTeX-indent-line)
  101. !   (define-key LaTeX-mode-map "\e-\C-m"  'LaTeX-insert-item)
  102. !   (define-key LaTeX-mode-map "\C-\n"    'TeX-terminate-paragraph)
  103.     (define-key LaTeX-mode-map "\C-c\C-x" 'LaTeX-section)
  104.     (define-key LaTeX-mode-map "\C-c\C-c" 'LaTeX-environment)
  105.     (define-key LaTeX-mode-map "\C-c@"    'LaTeX-bibtex)
  106.     (define-key LaTeX-mode-map "\C-c#"    'LaTeX-makeindex)
  107. !   (define-key LaTeX-mode-map "\e-m"     'LaTeX-math-mode)
  108. !   (define-key LaTeX-mode-map "\e-q"     'LaTeX-format-paragraph)
  109. !   (define-key LaTeX-mode-map "\e-g"     'LaTeX-format-region)
  110. !   (define-key LaTeX-mode-map "\e-s"     'LaTeX-format-section)
  111. !   (define-key LaTeX-mode-map "\e-\C-e"  'LaTeX-mark-environment)
  112.     (define-key LaTeX-mode-map "\C-c\C-f" 'LaTeX-close-environment)
  113. !   (define-key LaTeX-mode-map "\e-\C-x"  'LaTeX-mark-section)
  114. !   (define-key LaTeX-mode-map "\e-\C-q"  'LaTeX-format-environment))
  115.  
  116.   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  117.   ;; TeX / LaTeX modes
  118. ***************
  119. *** 375,381 ****
  120.     (setq mode-name "TeX")
  121.     (setq major-mode 'plain-TeX-mode)
  122.     (make-local-variable 'TeX-command)
  123. !   (setq TeX-command "tex")
  124.     (setq TeX-bibtex-command "bibtex")
  125.     (setq TeX-index-command "makeindex")
  126.     (setq paragraph-start
  127. --- 375,381 ----
  128.     (setq mode-name "TeX")
  129.     (setq major-mode 'plain-TeX-mode)
  130.     (make-local-variable 'TeX-command)
  131. !   (setq TeX-command "tex386")
  132.     (setq TeX-bibtex-command "bibtex")
  133.     (setq TeX-index-command "makeindex")
  134.     (setq paragraph-start
  135. ***************
  136. *** 485,491 ****
  137.     (setq outline-regexp LaTeX-outline-regexp)
  138.  
  139.     (make-local-variable 'TeX-command)
  140. !   (setq TeX-command "latex")
  141.  
  142.     (make-local-variable 'TeX-format-package)
  143.     (setq TeX-format-package LaTeX-format-package)
  144. --- 485,491 ----
  145.     (setq outline-regexp LaTeX-outline-regexp)
  146.  
  147.     (make-local-variable 'TeX-command)
  148. !   (setq TeX-command "tex386")
  149.  
  150.     (make-local-variable 'TeX-format-package)
  151.     (setq TeX-format-package LaTeX-format-package)
  152. ------------------------------ cut here ------------------------------
  153.  
  154. 2. Apply the following patch to tex-buf.el:
  155.  
  156. ------------------------------ cut here ------------------------------
  157. diff -cbB tex-buf.el \Emacs\auctex\tex-buf.el
  158. *** tex-buf.el          Fri Jun 12 21:08:32 1992
  159. --- /Emacs/auctex/tex-buf.el    Fri Jul 24 20:15:10 1992
  160. ***************
  161. *** 566,575 ****
  162.     (let ((command (concat TeX-preview-command " " TeX-zap-file ".dvi")))
  163.  
  164.       (process-kill-without-query
  165. !      (apply 'start-process
  166. !       "preview"
  167. !       "*TeX-output*"
  168. !       (split-string " " command)))
  169.  
  170.       (with-output-to-temp-buffer "*TeX-output*"
  171.         (princ (format "Started %s; process is \"preview\"\n" command)))))
  172. --- 555,563 ----
  173.     (let ((command (concat TeX-preview-command " " TeX-zap-file ".dvi")))
  174.  
  175.       (process-kill-without-query
  176. !      (start-process "preview" "*TeX-output*" "cmd"))
  177. !
  178. !     (process-send-string "preview" (concat command  "\n"))
  179.  
  180.       (with-output-to-temp-buffer "*TeX-output*"
  181.         (princ (format "Started %s; process is \"preview\"\n" command)))))
  182. ***************
  183. *** 596,605 ****
  184.       (setq TeX-default-printer-name TeX-printer-name)
  185.  
  186.       (let ((command (concat TeX-print-command
  187. !              " -P" TeX-printer-name
  188.                (if (not (equal Options ""))
  189.                    (concat " " Options))
  190. !              " " TeX-zap-file ".dvi")))
  191.  
  192.         (cond ((y-or-n-p (concat "PRINT: "
  193.                    command
  194. --- 585,594 ----
  195.       (setq TeX-default-printer-name TeX-printer-name)
  196.  
  197.       (let ((command (concat TeX-print-command
  198. !              "" TeX-printer-name
  199.                (if (not (equal Options ""))
  200.                    (concat " " Options))
  201. !              " " TeX-zap-file ".dvi" " " "-po=" TeX-zap-file ".jet")))
  202.  
  203.         (cond ((y-or-n-p (concat "PRINT: "
  204.                    command
  205. ***************
  206. *** 604,614 ****
  207.         (cond ((y-or-n-p (concat "PRINT: "
  208.                    command
  209.                    "  sure? "))
  210.          (setq TeX-process
  211. !          (apply 'start-process
  212. !             "printing"
  213. !             "*TeX-output*"
  214. !             (split-string " " command)))
  215.          (with-output-to-temp-buffer "*TeX-output*"
  216.            (princ (format "Started %s; process is \"printing\"\n" command)))
  217.  
  218. --- 593,604 ----
  219.         (cond ((y-or-n-p (concat "PRINT: "
  220.                    command
  221.                    "  sure? "))
  222. +
  223.          (setq TeX-process
  224. !          (start-process "printing" "*TeX-output*" "cmd"))
  225. !
  226. !        (process-send-string "printing" (concat command "\n"))
  227. !
  228.          (with-output-to-temp-buffer "*TeX-output*"
  229.            (princ (format "Started %s; process is \"printing\"\n" command)))
  230.  
  231. ------------------------------ cut here ------------------------------
  232.  
  233. 3. Apply the following patch to tex-site.el:
  234.  
  235. ------------------------------ cut here ------------------------------
  236. diff -cbB tex-site.el \Emacs\auctex\tex-site.el
  237. *** tex-site.el         Wed Apr  1 14:47:01 1992
  238. --- /Emacs/auctex/tex-site.el   Thu Jul 23 17:56:15 1992
  239. ***************
  240. *** 60,78 ****
  241.  
  242.   in your .emacs file, to have LaTeX preview as it runs.")
  243.  
  244. ! (defvar TeX-print-command "dvips"
  245.     "*The command to print the .dvi file.")
  246.  
  247.   (defvar TeX-bibtex-command "bibtex"
  248.     "*The command to run BibTeX")
  249.  
  250. ! (defvar TeX-index-command "makeindex"
  251.     "*The command to run a program generating an index, usually \"makeindex\"")
  252.  
  253.   (defvar TeX-index-suffix ".ind"
  254.     "*The suffix (file-name-extention) of the file generated by \\[LaTeX-makeindex]")
  255.  
  256. ! (defvar TeX-default-printer-name "lw2"
  257.     "*Name of the printer used by the print-command. Appended to the `-P' option")
  258.  
  259.   (defvar TeX-compilation-cd-command "cd"
  260. --- 60,78 ----
  261.  
  262.   in your .emacs file, to have LaTeX preview as it runs.")
  263.  
  264. ! (defvar TeX-print-command "dvihplj @lj.cnf"
  265.     "*The command to print the .dvi file.")
  266.  
  267.   (defvar TeX-bibtex-command "bibtex"
  268.     "*The command to run BibTeX")
  269.  
  270. ! (defvar TeX-index-command "makeindx"
  271.     "*The command to run a program generating an index, usually \"makeindex\"")
  272.  
  273.   (defvar TeX-index-suffix ".ind"
  274.     "*The suffix (file-name-extention) of the file generated by \\[LaTeX-makeindex]")
  275.  
  276. ! (defvar TeX-default-printer-name ""
  277.     "*Name of the printer used by the print-command. Appended to the `-P' option")
  278.  
  279.   (defvar TeX-compilation-cd-command "cd"
  280. ***************
  281. *** 157,163 ****
  282.                 "xdvi -paper a4r -s 4")
  283.  
  284.                    ;; else we assume some terminal
  285. !                  (t "dvitty -q -w 160")))
  286.  
  287.   (setq TeX-preview-a5 (cond
  288.               ;; if we're in OpenWindows2
  289. --- 157,163 ----
  290.                 "xdvi -paper a4r -s 4")
  291.  
  292.                    ;; else we assume some terminal
  293. !                  (t "dvipm @lj.cnf -fl=-1 -o3 -ouin")))
  294.  
  295.   (setq TeX-preview-a5 (cond
  296.               ;; if we're in OpenWindows2
  297. ***************
  298. *** 177,183 ****
  299.                "open")
  300.  
  301.               ;; else we assume some terminal
  302. !             (t "dvitty -q -w 80")))
  303.  
  304.   (setq TeX-preview-portrait (cond
  305.                    ;; if we're in OpenWindows2
  306. --- 177,183 ----
  307.                "open")
  308.  
  309.               ;; else we assume some terminal
  310. !             (t "dvipm  @lj.cnf -fl=-1 -o3 -ouin")))
  311.  
  312.   (setq TeX-preview-portrait (cond
  313.                    ;; if we're in OpenWindows2
  314. ***************
  315. *** 197,203 ****
  316.                 "xdvi")
  317.  
  318.                    ;; else we assume some terminal
  319. !                  (t "dvitty -q -w 80")))
  320.  
  321.   (defvar TeX-preview-alist
  322.     '(("\\\\documentstyle.*landscape" . TeX-preview-landscape )
  323. --- 197,203 ----
  324.                 "xdvi")
  325.  
  326.                    ;; else we assume some terminal
  327. !                  (t "dvipm @lj.cnf -fl=-1 -o3 -ouin")))
  328.  
  329.   (defvar TeX-preview-alist
  330.     '(("\\\\documentstyle.*landscape" . TeX-preview-landscape )
  331. ------------------------------ cut here ------------------------------
  332.  
  333. 4. Put the following in your .emacs file (see the comments):
  334.  
  335. ------------------------------ cut here ------------------------------
  336. ;; make the appropriate change to the path of the AUC TeX files
  337.  
  338. (setq load-path (cons (expand-file-name "c:/emacs/auctex/") load-path))
  339.  
  340. (autoload 'tex-mode "auc-tex" "Automatic select TeX or LaTeX mode" t)
  341. (autoload 'plain-tex-mode "auc-tex" "Mode for Plain TeX" t)
  342. (autoload 'latex-mode "auc-tex" "Mode for LaTeX" t)
  343. (autoload 'LaTeX-math-mode    "tex-math"      "Math mode for TeX." t)
  344. (autoload 'outline-minor-mode "outline-minor" "Minor Outline Mode." t)
  345.  
  346. ;; load AUC TeX with the appropriate mode when opning .tex files
  347.  
  348. (setq auto-mode-alist (append '(("\\.tex$" . tex-mode))
  349.                               auto-mode-alist))
  350.  
  351. ;; use the lplain format for LaTeX files
  352.  
  353. (setq LaTeX-mode-hook '(lambda()
  354.              (setq TeX-args '("&lplain"))))
  355.  
  356.  
  357. (defun Ctl-C-prefix ()                  ; Use Ctl-C as a command prefix
  358.   Ctl-C-keymap)
  359. (setq Ctl-C-keymap (make-keymap))       ; allocate Ctl-C keymap table
  360. (global-set-key "\C-c" (Ctl-C-prefix))  ; define Ctl-C function
  361.  
  362. (define-key Ctl-C-keymap "m" 'LaTeX-math-mode)
  363. (autoload 'LaTeX-math-mode "tex-math" t)
  364.  
  365. ;;  Setup outline-minor-mode
  366.  
  367. (define-key Ctl-C-keymap "o" 'outline-minor-mode)
  368. (autoload 'outline-minor-mode "min-out" t)
  369.  
  370. (make-variable-buffer-local 'outline-prefix-char)
  371. (setq-default outline-prefix-char "\C-l")
  372. (make-variable-buffer-local 'outline-regexp)
  373. (setq-default outline-regexp "[*\^l]+")
  374. (make-variable-buffer-local 'outline-level-function)
  375. (setq-default outline-level-function 'outline-level-default)
  376.  
  377. ;; Personal defaults for AUC-TeX mode, change it to your taste
  378.  
  379. (setq LaTeX-figure-label "fig:")
  380. (setq LaTeX-table-label "tab:")
  381. (setq LaTeX-section-label "sec:")
  382. (setq LaTeX-default-style "article")
  383. (setq LaTeX-default-style-options "12pt,fleqn")
  384. (setq LaTeX-float "hbtp")
  385. ------------------------------ cut here ------------------------------
  386.  
  387. 5. Byte-compile the AUC TeX files and fire up emacs.
  388.  
  389. 6. Become thoroughly spoiled and forget all the LaTeX control sequences.
  390.  
  391. Note: 1. Auctex documentation says it is available from iesd.auc.dk (and
  392.          possibly elsewhere).  I just copied it from a local Unix machine.
  393.       2. GNU tar, patch and compress for OS/2 are all available from
  394.          hobbes.nmsu.edu (128.123.35.151).
  395.       3. GNU Emacs (a courtsey of E.Mattes and others) is also available
  396.          from hobbes.nmsu.edu.  It can be installed only on an hpfs
  397.          partition (>= 10M), no 8+3 file name nonsense.
  398.  
  399. Disclaimer: Disclaimers? We don't need no stinkin' disclaimers!
  400.  
  401. Sincerely,
  402.  
  403. Sunando Sen
  404. sens@fasecon.econ.nyu.edu
  405.