From bd2f232330d4ed86ba51dbc50139c9c52b837f51 Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 07:48:37 +0000 Subject: [PATCH] (slitex-mode): Add ###autoload magic cookie. --- lisp/textmodes/tex-mode.el | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index edf48c17d65..0c9c28a0411 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -354,6 +354,7 @@ subshell is initiated, the value of tex-shell-hook is called." (setq tex-trailer "\\end{document}\n") (run-hooks 'text-mode-hook 'tex-mode-hook 'latex-mode-hook)) +;;;###autoload (defun slitex-mode () "Major mode for editing files of input for SliTeX. Makes $ and } display the characters they match. @@ -976,6 +977,41 @@ so normally SUFFIX starts with one." suffix)) " ")) +;;; Use this code after discussing with rms. (bfox@ai.mit.edu) +;;; Date: Tue, 31 Aug 1993 14:30:26 EDT +;;; From: Stephen Gildea +;;; Sender: gnulists@ai.mit.edu +;;; Resent-From: bug-gnu-emacs-request@prep.ai.mit.edu +;;; +;;; The function tex-append in Emacs 19.19 needs to be updated for the +;;; newer C version of TeX, which parses filenames differently. +;;; Pascal-based TeX scans for the first period; C TeX uses the last. +;;; Here is a version of tex-append which tries both ways. +;;; +;;; (defun tex-append (file-name suffix) +;;; "Append to FILENAME the suffix SUFFIX, using same algorithm TeX uses. +;;; Pascal-based TeX scans for the first period, C TeX uses the last. +;;; No period is retained immediately before SUFFIX, +;;; so normally SUFFIX starts with one." +;;; (if (stringp file-name) +;;; (let ((file (file-name-nondirectory file-name)) +;;; trial-name) +;;; ;; try spliting on first period +;;; (setq trial-name +;;; (concat (file-name-directory file-name) +;;; (substring file 0 +;;; (string-match "\\." file)) +;;; suffix)) +;;; (if (or (file-exists-p trial-name) +;;; (file-exists-p (concat trial-name ".aux"))) ;for BibTeX files +;;; trial-name +;;; ;; not found, so split on last period +;;; (concat (file-name-directory file-name) +;;; (substring file 0 +;;; (string-match "\\.[^.]*$" file)) +;;; suffix))) +;;; " ")) + (defun tex-show-print-queue () "Show the print queue that \\[tex-print] put your job on. Runs the shell command defined by `tex-show-queue-command'." -- 2.39.5