Mercurial > hgrepos > hgweb.cgi > yatex
view yatexm-o.el @ 586:91a6b97d01fa draft
Add \fbox to default dic after very long absence.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Wed, 21 Sep 2022 11:08:21 +0900 |
parents | 2a72779d9c50 |
children |
line wrap: on
line source
;;; yatexm-o.el --- Sample to invoke yatex-mode with outline-minor mode ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org] ;;; Last modified Sun Dec 21 14:15:47 2014 on firestorm ;;; Code: ;;; ;; 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 (function (lambda () (setq outline-regexp LaTeX-outline-regexp) ;;@ (outline-minor-mode 1) ;;@ ))) (defvar yatex-mode-load-hook (function (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") )))