yuuji@10: ;;; -*- Emacs-Lisp -*-
yuuji@10: ;;; Sample startup file to invoke yatex-mode with outline-minor mode.
yuuji@13: ;;; (c )1993 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
yuuji@16: ;;; Last modified Wed May  4 19:44:53 1994 on 98fa
yuuji@10: 
yuuji@10: ;;;
yuuji@10: ;; outline-minor-mode(使用しない場合は不要です)
yuuji@10: ;;; 
yuuji@10: (autoload 'outline-minor-mode "min-out" t)
yuuji@10: (make-variable-buffer-local 'outline-prefix-char)
yuuji@10: (make-variable-buffer-local 'outline-regexp)
yuuji@10: (setq  default-outline-regexp "[*\^l]+")
yuuji@10: (make-variable-buffer-local 'outline-level-function)
yuuji@10: (setq-default outline-level-function 'outline-level-default)
yuuji@10: (defvar LaTeX-outline-regexp
yuuji@10:   (concat "[ \t]*" (regexp-quote "\\")
yuuji@10: 	  "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
yuuji@10: 	  "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"))
yuuji@10: 
yuuji@10: ;;;
yuuji@10: ;; yatex-mode
yuuji@10: ;;;
yuuji@10: (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
yuuji@10: (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
yuuji@10: ;;↓min-outを使用しない場合、;;@ の行は不要です。
yuuji@10: (defvar yatex-mode-hook
yuuji@10:   '(lambda ()
yuuji@10:      (setq outline-regexp LaTeX-outline-regexp)			    ;;@
yuuji@16:      (outline-minor-mode 1)					    ;;@
yuuji@16:      ))
yuuji@10: (defvar yatex-mode-load-hook
yuuji@10:   '(lambda ()
yuuji@10:      (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
yuuji@10:      (require 'min-out)						    ;;@
yuuji@10:      (define-key outline-minor-keymap "\C-?" 'hide-subtree)	    ;;@
yuuji@16:      (YaTeX-define-begend-key "ba" "abstract")
yuuji@10:      ))