mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(slitex-mode): Add ###autoload magic cookie.

Browse Source
This commit is contained in:
Brian Fox 1993-09-21 07:48:37 +00:00
parent 80e7b471b6
commit bd2f232330
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lisp/textmodes/tex-mode.el
View File

@ -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 <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'."