Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexhks.el @ 353:2a72779d9c50 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite lambda notations to suppress annoying warnings from emacs24
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 21 Dec 2014 14:20:01 +0900
parents 9b4354af748c
children
comparison
equal deleted inserted replaced
352:ecf7b5543e65 353:2a72779d9c50
11 ;Private definitions begin from here. 11 ;Private definitions begin from here.
12 12
13 ;;97/1/27 13 ;;97/1/27
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview) 14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
15 ;;initial version 15 ;;initial version
16 (define-key YaTeX-user-extensional-map "0" 16 (let ((map YaTeX-user-extensional-map))
17 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part"))) 17 (define-key map "0"
18 (define-key YaTeX-user-extensional-map "1" 18 (function (lambda () (interactive)
19 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter"))) 19 (YaTeX-make-section nil nil nil "part"))))
20 (define-key YaTeX-user-extensional-map "2" 20 (define-key map "1"
21 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section"))) 21 (function (lambda () (interactive)
22 (define-key YaTeX-user-extensional-map "3" 22 (YaTeX-make-section nil nil nil "chapter"))))
23 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection"))) 23 (define-key map "2"
24 (define-key YaTeX-user-extensional-map "4" 24 (function (lambda () (interactive)
25 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection"))) 25 (YaTeX-make-section nil nil nil "section"))))
26 (define-key YaTeX-user-extensional-map "5" 26 (define-key map "3"
27 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph"))) 27 (function (lambda () (interactive)
28 (define-key YaTeX-user-extensional-map "6" 28 (YaTeX-make-section nil nil nil "subsection"))))
29 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph"))) 29 (define-key map "4"
30 (define-key YaTeX-user-extensional-map "r" 30 (function (lambda () (interactive)
31 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref"))) 31 (YaTeX-make-section nil nil nil "subsubsection"))))
32 (define-key YaTeX-user-extensional-map "i" 32 (define-key map "5"
33 '(lambda () (interactive) (YaTeX-make-singlecmd "item"))) 33 (function (lambda () (interactive)
34 (define-key YaTeX-user-extensional-map "\C-b" 34 (YaTeX-make-section nil nil nil "paragraph"))))
35 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow"))) 35 (define-key map "6"
36 (define-key YaTeX-user-extensional-map "l" 36 (function (lambda () (interactive)
37 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label"))) 37 (YaTeX-make-section nil nil nil "subparagraph"))))
38 (define-key YaTeX-user-extensional-map "f" 38 (define-key map "r"
39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac"))) 39 (function (lambda () (interactive)
40 (define-key YaTeX-user-extensional-map "S" 40 (YaTeX-make-section nil nil nil "ref"))))
41 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength"))) 41 (define-key map "i"
42 (define-key YaTeX-user-extensional-map "b" 42 (function (lambda () (interactive)
43 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf"))) 43 (YaTeX-make-singlecmd "item"))))
44 (define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info) 44 (define-key map "\C-b"
45 (function (lambda () (interactive)
46 (YaTeX-make-singlecmd "leftarrow"))))
47 (define-key map "l"
48 (function (lambda () (interactive)
49 (YaTeX-make-section nil nil nil "label"))))
50 (define-key map "f"
51 (function (lambda () (interactive)
52 (YaTeX-make-section nil nil nil "frac"))))
53 (define-key map "S"
54 (function (lambda () (interactive)
55 (YaTeX-make-section nil nil nil "setlength"))))
56 (define-key map "b"
57 (function (lambda () (interactive)
58 (YaTeX-make-fontsize nil "bf"))))
59 (define-key map "I" 'YaTeX-browse-info))
45 60
46 (defun YaTeX-browse-info () 61 (defun YaTeX-browse-info ()
47 "Browse YaTeX's info" 62 "Browse YaTeX's info"
48 (interactive) 63 (interactive)
49 (require 'info) 64 (require 'info)
50 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top"))) 65 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top")))
51 66
52 67
53 ; 68 ;
54 ;;; End of yatexhks.el 69 ;;; End of yatexhks.el
55 (provide 'yatexhks) 70 (provide 'yatexhks)

yatex.org