Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatex.el @ 386:8d17b1902bdd dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update menu string of YaTeX-%-menu
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 06 Jan 2015 23:20:53 +0900
parents 0f66df4d0477
children fa7370eb8292
comparison
equal deleted inserted replaced
385:0f66df4d0477 386:8d17b1902bdd
1 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*- 1 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
2 ;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org] 2 ;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org]
3 ;;; Last modified Tue Jan 6 23:02:32 2015 on firestorm 3 ;;; Last modified Tue Jan 6 23:19:53 2015 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 ;;; The latest version of this software is always available at; 5 ;;; The latest version of this software is always available at;
6 ;;; http://www.yatex.org/ 6 ;;; http://www.yatex.org/
7 7
8 ;;; Code: 8 ;;; Code:
1654 1654
1655 (defun YaTeX-%-menu (&optional beg end char) 1655 (defun YaTeX-%-menu (&optional beg end char)
1656 "Operate %# notation." 1656 "Operate %# notation."
1657 ;;Do not use interactive"r" for the functions which require no mark 1657 ;;Do not use interactive"r" for the functions which require no mark
1658 (interactive) 1658 (interactive)
1659 (message "!)Edit-%%#! B)EGIN-END-region P)review L)Edit-%%#LPR make(I)ndex B)ibtex") 1659 (message "!)Edit-%%#! D)VIPDF B)EGIN-END-region P)review L)PR make(I)ndex b)ibtex")
1660 (let ((c (or char (read-char))) (string "") key 1660 (let ((c (or char (read-char))) (string "") key
1661 (b (make-marker)) (e (make-marker))) 1661 (b (make-marker)) (e (make-marker)))
1662 (save-excursion 1662 (save-excursion
1663 (cond 1663 (cond
1664 ((rindex "!plib" c) ;Edit %#xxx 1664 ((rindex "!plib" c) ;Edit %#xxx
1665 (setq key (cdr (assq c '((?! . "!") 1665 (setq key (cdr (assq c '((?! . "!")
1666 (?p . "PREVIEW") 1666 (?p . "PREVIEW")
1667 (?l . "LPR") 1667 (?l . "LPR")
1668 (?i . "MAKEINDEX") 1668 (?i . "MAKEINDEX")
1669 (?d . "DVIPDF")
1669 (?b . "BIBTEX"))))) 1670 (?b . "BIBTEX")))))
1670 (YaTeX-getset-builtin key t)) 1671 (YaTeX-getset-builtin key t))
1671 1672
1672 ((= c ?B) ;%#BEGIN %#END region 1673 ((= c ?B) ;%#BEGIN %#END region
1673 (or end (setq beg (min (point) (mark)) end (max (point) (mark)))) 1674 (or end (setq beg (min (point) (mark)) end (max (point) (mark))))
1682 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-< 1683 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-<
1683 (insert "%#BEGIN") 1684 (insert "%#BEGIN")
1684 (goto-char e) 1685 (goto-char e)
1685 (insert "%#END\n") 1686 (insert "%#END\n")
1686 (set-marker b nil) 1687 (set-marker b nil)
1687 (set-marker e nil)) 1688 (set-marker e nil))))))
1688 ))))
1689 1689
1690 (defvar YaTeX-refcommand-def-regexp-default 1690 (defvar YaTeX-refcommand-def-regexp-default
1691 "label\\|bibitem") 1691 "label\\|bibitem")
1692 (defvar YaTeX-refcommand-def-regexp-private nil 1692 (defvar YaTeX-refcommand-def-regexp-private nil
1693 "*Regexp of defining label commands") 1693 "*Regexp of defining label commands")

yatex.org