Mercurial > hgrepos > hgweb.cgi > yatex
changeset 10:796a929a7b13
Initial revision
author | yuuji |
---|---|
date | Tue, 04 May 1993 13:02:40 +0000 |
parents | 7becca042f80 |
children | 390df0e505da |
files | yatexm-o.el |
diffstat | 1 files changed, 37 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/yatexm-o.el Tue May 04 13:02:40 1993 +0000 @@ -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(使用しない場合は不要です) +;;; +(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を使用しない場合、;;@ の行は不要です。 +(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) ;;@ + ))