yatex
annotate yatexm-o.el @ 13:eafae54794a0
Show message at comment-region on begin/end mode.
Greek letters completion in yatexmth.
YaTeX-mark environment and YaTeX-%-menu added.
Erase cursor at the execution of dviout(DOS).
Enable recursive completion at section-type completion.
author | yuuji |
---|---|
date | Sat, 29 Jan 1994 07:59:59 +0000 |
parents | 390df0e505da |
children | cb9afa9c1213 |
rev | line source |
---|---|
yuuji@10 | 1 ;;; -*- Emacs-Lisp -*- |
yuuji@10 | 2 ;;; Sample startup file to invoke yatex-mode with outline-minor mode. |
yuuji@13 | 3 ;;; (c )1993 by HIROSE Yuuji [yuuji@ae.keio.ac.jp] |
yuuji@13 | 4 ;;; Last modified Sat Jan 29 16:55:05 1994 on gloria |
yuuji@10 | 5 |
yuuji@10 | 6 ;;; |
yuuji@10 | 7 ;; outline-minor-mode(使用しない場合は不要です) |
yuuji@10 | 8 ;;; |
yuuji@10 | 9 (autoload 'outline-minor-mode "min-out" t) |
yuuji@10 | 10 (make-variable-buffer-local 'outline-prefix-char) |
yuuji@10 | 11 (make-variable-buffer-local 'outline-regexp) |
yuuji@10 | 12 (setq default-outline-regexp "[*\^l]+") |
yuuji@10 | 13 (make-variable-buffer-local 'outline-level-function) |
yuuji@10 | 14 (setq-default outline-level-function 'outline-level-default) |
yuuji@10 | 15 (defvar LaTeX-outline-regexp |
yuuji@10 | 16 (concat "[ \t]*" (regexp-quote "\\") |
yuuji@10 | 17 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|" |
yuuji@10 | 18 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)")) |
yuuji@10 | 19 |
yuuji@10 | 20 ;;; |
yuuji@10 | 21 ;; yatex-mode |
yuuji@10 | 22 ;;; |
yuuji@10 | 23 (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist)) |
yuuji@10 | 24 (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) |
yuuji@10 | 25 ;;↓min-outを使用しない場合、;;@ の行は不要です。 |
yuuji@10 | 26 (defvar yatex-mode-hook |
yuuji@10 | 27 '(lambda () |
yuuji@10 | 28 (setq outline-regexp LaTeX-outline-regexp) ;;@ |
yuuji@10 | 29 (outline-minor-mode) ;;@ |
yuuji@10 | 30 (YaTeX-define-begend-key "ba" "abstract"))) |
yuuji@10 | 31 (defvar yatex-mode-load-hook |
yuuji@10 | 32 '(lambda () |
yuuji@10 | 33 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@ |
yuuji@10 | 34 (require 'min-out) ;;@ |
yuuji@10 | 35 (define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@ |
yuuji@10 | 36 )) |