diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
commit | 5dc602d16c5be2fd035b254ca23484a90aebd6dc (patch) | |
tree | 72efb15fba318cc2096a8cc6999ed3fa0bff317d /Master/texmf-dist/doc/texsis/base/texsis.el | |
parent | b4fc5f639874db951177ec539299d20908adb654 (diff) |
doc 5
git-svn-id: svn://tug.org/texlive/trunk@81 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/texsis/base/texsis.el')
-rw-r--r-- | Master/texmf-dist/doc/texsis/base/texsis.el | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/texsis/base/texsis.el b/Master/texmf-dist/doc/texsis/base/texsis.el new file mode 100644 index 00000000000..41e251e31b0 --- /dev/null +++ b/Master/texmf-dist/doc/texsis/base/texsis.el @@ -0,0 +1,46 @@ +;; file: texsis.el (TeXsis version 2.18) +;; @(#) $Revision: 18.3 $ / $Date: 1998/09/26 23:57:01 $ / $Author: myers $ +;;======================================================================* +; GNU emacs support for TeXsis (A TeX macro package for Physicists) +; +; The function texsis-mode makes TeXsis the version of TeX run by the +; commands TeX-buffer and TeX-region. If the mode is not already +; "TeX" then plain-tex-mode is invoked first. +; +; The function look-for-texsis looks for "\texsis" (or actually, just +; the word "texsis") and sets texsis-mode if such is found. Put this +; in your TeX-mode-hook to automatically set texsis-mode for TeXsis files. +; +; This file is a part of TeXsis. +; +; Eric Myers, University of Texas at Austin, 22 September 1990 +; (with help from lion@navier.stanford.edu -- thanks, leo.) +;======================================================================* + +(defun look-for-texsis () + "search for \"texsis\" within first 256 characters of the file. +If found, turn on texsis-mode." + (goto-char (point-min)) + (if (search-forward "texsis" (min (point-max) (+ (point-min) 255)) t) + (texsis-mode)) +) + + +(defun texsis-mode () "TeX mode for processing TeXsis files." + (if (or (equal mode-name "TeX") (equal mode-name "TeXsis") ) + (progn + (setq TeX-command "texsis") ;; emacs 18.xx + (setq tex-command "texsis") ;; emacs 19.xx + (setq mode-name "TeXsis") ;; mode name is TeXsis + (goto-char (point-min)) + (message "TeXsis mode.") + ) + + ;; if not a TeX mode then first invoke plain-tex-mode + + (progn + (plain-tex-mode) + (if (not (equal mode-name "TeXsis")) (texsis-mode) ) + ) + ) +)
\ No newline at end of file |