Mercurial > hgrepos > hgweb.cgi > yatex
view yatexm-o.el @ 76:c16a10460ce5
Rename uncomment-region to uncomment-out-region to
distinguish from newcomment.el's function.
author | yuuji |
---|---|
date | Mon, 25 Nov 2002 09:33:34 +0000 |
parents | 44e3a5e1e883 |
children | 0734be649cb8 |
line wrap: on
line source
;;; -*- Emacs-Lisp -*- ;;; Sample startup file to invoke yatex-mode with outline-minor mode. ;;; (c )1993 by HIROSE Yuuji [yuuji@yatex.org] ;;; Last modified Thu Aug 26 18:16:00 1999 on firestorm ;;; ;; 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) (setq LaTeX-outline-regexp (concat "[ \t]*" (regexp-quote "\\") "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|" "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)" "\\*?[ \t]*[[{]")) ;;; ;; 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 1) ;;@ )) (defvar yatex-mode-load-hook '(lambda () (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@ (require 'min-out) ;;@ ;;auctex 付属の min-out.el の場合これ↓ ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@ ;;Emacs 付属の outline.el の場合これ↓ (define-key outline-mode-prefix-map "\C-?" 'hide-subtree) (YaTeX-define-begend-key "ba" "abstract") ))