diff --git a/yatexm-o.el b/yatexm-o.el new file mode 100644 index 0000000..6a34ed6 --- /dev/null +++ b/yatexm-o.el @@ -0,0 +1,37 @@ +;;; -*- Emacs-Lisp -*- +;;; Sample startup file to invoke yatex-mode with outline-minor mode. +;;; (C)1993 by HIROSE Yuuji [yuuji@ae.keio.ac.jp] +;;; Last modified Tue May 4 22:02:41 1993 on figaro +;;; $Id$ + +;;; +;; outline-minor-mode(�g�p���Ȃ��ꍇ�͕s�v�ł�) +;;; +(autoload 'outline-minor-mode "min-out" t) +(make-variable-buffer-local 'outline-prefix-char) +(make-variable-buffer-local 'outline-regexp) +(setq default-outline-regexp "[*\^l]+") +(make-variable-buffer-local 'outline-level-function) +(setq-default outline-level-function 'outline-level-default) +(defvar LaTeX-outline-regexp + (concat "[ \t]*" (regexp-quote "\\") + "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|" + "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)")) + +;;; +;; yatex-mode +;;; +(setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist)) +(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) +;;��min-out���g�p���Ȃ��ꍇ�A;;@ �̍s�͕s�v�ł��B +(defvar yatex-mode-hook + '(lambda () + (setq outline-regexp LaTeX-outline-regexp) ;;@ + (outline-minor-mode) ;;@ + (YaTeX-define-begend-key "ba" "abstract"))) +(defvar yatex-mode-load-hook + '(lambda () + (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@ + (require 'min-out) ;;@ + (define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@ + ))