yatex
view yatexm-o.el @ 10:796a929a7b13
Initial revision
| author | yuuji |
|---|---|
| date | Tue, 04 May 1993 13:02:40 +0000 |
| parents | |
| children | 390df0e505da |
line source
1 ;;; -*- Emacs-Lisp -*-
2 ;;; Sample startup file to invoke yatex-mode with outline-minor mode.
3 ;;; (C)1993 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
4 ;;; Last modified Tue May 4 22:02:41 1993 on figaro
5 ;;; $Id$
7 ;;;
8 ;; outline-minor-mode(使用しない場合は不要です)
9 ;;;
10 (autoload 'outline-minor-mode "min-out" t)
11 (make-variable-buffer-local 'outline-prefix-char)
12 (make-variable-buffer-local 'outline-regexp)
13 (setq default-outline-regexp "[*\^l]+")
14 (make-variable-buffer-local 'outline-level-function)
15 (setq-default outline-level-function 'outline-level-default)
16 (defvar LaTeX-outline-regexp
17 (concat "[ \t]*" (regexp-quote "\\")
18 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
19 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"))
21 ;;;
22 ;; yatex-mode
23 ;;;
24 (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
25 (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
26 ;;↓min-outを使用しない場合、;;@ の行は不要です。
27 (defvar yatex-mode-hook
28 '(lambda ()
29 (setq outline-regexp LaTeX-outline-regexp) ;;@
30 (outline-minor-mode) ;;@
31 (YaTeX-define-begend-key "ba" "abstract")))
32 (defvar yatex-mode-load-hook
33 '(lambda ()
34 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
35 (require 'min-out) ;;@
36 (define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
37 ))