Mercurial > emacs
changeset 4768:9d84105b1248
(slitex-mode): Add ###autoload magic cookie.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:48:37 +0000 |
| parents | 12ff77449baa |
| children | d1b5ca8f5493 |
| files | lisp/textmodes/tex-mode.el |
| diffstat | 1 files changed, 36 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el Tue Sep 21 07:47:15 1993 +0000 +++ b/lisp/textmodes/tex-mode.el Tue Sep 21 07:48:37 1993 +0000 @@ -354,6 +354,7 @@ (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 @@ suffix)) " ")) +;;; Use this code after discussing with rms. (bfox@ai.mit.edu) +;;; Date: Tue, 31 Aug 1993 14:30:26 EDT +;;; From: Stephen Gildea <gildea@expo2.x.org> +;;; 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'."