Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatex.el @ 231:d329bbed72cd dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MAKEINDEX's short-cut should be `i'.
author yuuji@gentei.org
date Tue, 24 Jan 2012 09:45:23 +0900
parents ccc75ecb360f
children 5de195a540c7
comparison
equal deleted inserted replaced
230:7f4a5db88fbb 231:d329bbed72cd
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; Yet Another tex-mode for emacs - //–ì’¹// 2 ;;; Yet Another tex-mode for emacs - //–ì’¹//
3 ;;; yatex.el rev. 1.75.2 3 ;;; yatex.el rev. 1.75.2
4 ;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Mon Jan 23 01:19:32 2012 on firestorm 5 ;;; Last modified Mon Jan 23 07:58:11 2012 on firestorm
6 ;;; $Id$ 6 ;;; $Id$
7 ;;; The latest version of this software is always available at; 7 ;;; The latest version of this software is always available at;
8 ;;; http://www.yatex.org/ 8 ;;; http://www.yatex.org/
9 9
10 (require 'comment) 10 (require 'comment)
1637 1637
1638 (defun YaTeX-%-menu (&optional beg end char) 1638 (defun YaTeX-%-menu (&optional beg end char)
1639 "Operate %# notation." 1639 "Operate %# notation."
1640 ;;Do not use interactive"r" for the functions which require no mark 1640 ;;Do not use interactive"r" for the functions which require no mark
1641 (interactive) 1641 (interactive)
1642 (message "!)Edit-%%#! B)EGIN-END-region P)review L)Edit-%%#LPR M)akeindex B)ibtex") 1642 (message "!)Edit-%%#! B)EGIN-END-region P)review L)Edit-%%#LPR make(I)ndex B)ibtex")
1643 (let ((c (or char (read-char))) (string "") key 1643 (let ((c (or char (read-char))) (string "") key
1644 (b (make-marker)) (e (make-marker))) 1644 (b (make-marker)) (e (make-marker)))
1645 (save-excursion 1645 (save-excursion
1646 (cond 1646 (cond
1647 ((rindex "!plmb" c) ;Edit %#xxx 1647 ((rindex "!plib" c) ;Edit %#xxx
1648 (setq key (cdr (assq c '((?! . "!") 1648 (setq key (cdr (assq c '((?! . "!")
1649 (?p . "PREVIEW") 1649 (?p . "PREVIEW")
1650 (?l . "LPR") 1650 (?l . "LPR")
1651 (?m . "MAKEINDEX") 1651 (?i . "MAKEINDEX")
1652 (?b . "BIBTEX"))))) 1652 (?b . "BIBTEX")))))
1653 (YaTeX-getset-builtin key t)) 1653 (YaTeX-getset-builtin key t))
1654 1654
1655 ((= c ?b) ;%#BEGIN %#END region 1655 ((= c ?b) ;%#BEGIN %#END region
1656 (or end (setq beg (min (point) (mark)) end (max (point) (mark)))) 1656 (or end (setq beg (min (point) (mark)) end (max (point) (mark))))

yatex.org