Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexm-o.el @ 91:801593454c59 current start-branch-for-1.75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MVER=1.74 (but not used recently)
author yuuji@gentei.org
date Mon, 28 Sep 2009 12:18:36 +0900
parents 0734be649cb8
children 5921f28ef77c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
1 ;;; -*- Emacs-Lisp -*-
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
2 ;;; Sample startup file to invoke yatex-mode with outline-minor mode.
79
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents: 70
diff changeset
3 ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org]
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents: 70
diff changeset
4 ;;; Last modified Fri Jun 27 12:10:15 2003 on firestorm
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
5
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
6 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
7 ;; outline-minor-mode(使用しない場合は不要です)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
8 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
9 (autoload 'outline-minor-mode "min-out" t)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
10 (make-variable-buffer-local 'outline-prefix-char)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
11 (make-variable-buffer-local 'outline-regexp)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
12 (setq default-outline-regexp "[*\^l]+")
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
13 (make-variable-buffer-local 'outline-level-function)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
14 (setq-default outline-level-function 'outline-level-default)
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
15 (setq LaTeX-outline-regexp
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
16 (concat "[ \t]*" (regexp-quote "\\")
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
17 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
18 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
19 "\\*?[ \t]*[[{]"))
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
20
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
21 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
22 ;; yatex-mode
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
23 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
24 (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
25 (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
26 ;;↓min-outを使用しない場合、;;@ の行は不要です。
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
27 (defvar yatex-mode-hook
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
28 '(lambda ()
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
29 (setq outline-regexp LaTeX-outline-regexp) ;;@
16
cb9afa9c1213 Auto-indentation at begin-type completion works correctly.
yuuji
parents: 13
diff changeset
30 (outline-minor-mode 1) ;;@
cb9afa9c1213 Auto-indentation at begin-type completion works correctly.
yuuji
parents: 13
diff changeset
31 ))
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
32 (defvar yatex-mode-load-hook
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
33 '(lambda ()
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
34 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
35 (require 'min-out) ;;@
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
36 ;;auctex 付属の min-out.el の場合これ↓
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
37 ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
38 ;;Emacs 付属の outline.el の場合これ↓
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
39 (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
16
cb9afa9c1213 Auto-indentation at begin-type completion works correctly.
yuuji
parents: 13
diff changeset
40 (YaTeX-define-begend-key "ba" "abstract")
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
41 ))

yatex.org