Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexm-o.el @ 515:b6853d450b0a dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a function to examine the point is in %#BEGIN/%#END or not.
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 04 Jan 2018 23:58:07 +0900
parents 2a72779d9c50
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
287
5921f28ef77c Change the first lines.
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1 ;;; yatexm-o.el --- Sample to invoke yatex-mode with outline-minor mode
5921f28ef77c Change the first lines.
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2
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]
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
4 ;;; Last modified Sun Dec 21 14:15:47 2014 on firestorm
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
5
287
5921f28ef77c Change the first lines.
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
6 ;;; Code:
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
7 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
8 ;; outline-minor-mode(使用しない場合は不要です)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
9 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
10 (autoload 'outline-minor-mode "min-out" t)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
11 (make-variable-buffer-local 'outline-prefix-char)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
12 (make-variable-buffer-local 'outline-regexp)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
13 (setq default-outline-regexp "[*\^l]+")
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
14 (make-variable-buffer-local 'outline-level-function)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
15 (setq-default outline-level-function 'outline-level-default)
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
16 (setq LaTeX-outline-regexp
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
17 (concat "[ \t]*" (regexp-quote "\\")
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
18 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
19 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
20 "\\*?[ \t]*[[{]"))
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
21
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
22 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
23 ;; yatex-mode
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
24 ;;;
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
25 (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
26 (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
27 ;;↓min-outを使用しない場合、;;@ の行は不要です。
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
28 (defvar yatex-mode-hook
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
29 (function
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
30 (lambda ()
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
31 (setq outline-regexp LaTeX-outline-regexp) ;;@
16
cb9afa9c1213 Auto-indentation at begin-type completion works correctly.
yuuji
parents: 13
diff changeset
32 (outline-minor-mode 1) ;;@
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
33 )))
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
34 (defvar yatex-mode-load-hook
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
35 (function
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
36 (lambda ()
10
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
37 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
796a929a7b13 Initial revision
yuuji
parents:
diff changeset
38 (require 'min-out) ;;@
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
39 ;;auctex 付属の min-out.el の場合これ↓
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
40 ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
41 ;;Emacs 付属の outline.el の場合これ↓
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 16
diff changeset
42 (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
16
cb9afa9c1213 Auto-indentation at begin-type completion works correctly.
yuuji
parents: 13
diff changeset
43 (YaTeX-define-begend-key "ba" "abstract")
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 287
diff changeset
44 )))

yatex.org