yatex
view yatexm-o.el @ 183:1c41dc8a28eb
doc fix
| author | yuuji@gentei.org |
|---|---|
| date | Thu, 13 Oct 2011 10:16:58 +0900 |
| parents | 44e3a5e1e883 |
| children | 5921f28ef77c |
line source
1 ;;; -*- Emacs-Lisp -*-
2 ;;; Sample startup file to invoke yatex-mode with outline-minor mode.
3 ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org]
4 ;;; Last modified Fri Jun 27 12:10:15 2003 on firestorm
6 ;;;
7 ;; outline-minor-mode(使用しない場合は不要です)
8 ;;;
9 (autoload 'outline-minor-mode "min-out" t)
10 (make-variable-buffer-local 'outline-prefix-char)
11 (make-variable-buffer-local 'outline-regexp)
12 (setq default-outline-regexp "[*\^l]+")
13 (make-variable-buffer-local 'outline-level-function)
14 (setq-default outline-level-function 'outline-level-default)
15 (setq LaTeX-outline-regexp
16 (concat "[ \t]*" (regexp-quote "\\")
17 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
18 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"
19 "\\*?[ \t]*[[{]"))
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 1) ;;@
31 ))
32 (defvar yatex-mode-load-hook
33 '(lambda ()
34 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
35 (require 'min-out) ;;@
36 ;;auctex 付属の min-out.el の場合これ↓
37 ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
38 ;;Emacs 付属の outline.el の場合これ↓
39 (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
40 (YaTeX-define-begend-key "ba" "abstract")
41 ))