yatex
diff yatexhks.el @ 499:16763e5b7481
Extension should include period. Fixed
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Mon, 30 Oct 2017 21:02:35 +0900 |
parents | 9b4354af748c |
children |
line diff
1.1 --- a/yatexhks.el Sun Dec 24 06:16:52 2006 +0000 1.2 +++ b/yatexhks.el Mon Oct 30 21:02:35 2017 +0900 1.3 @@ -13,41 +13,56 @@ 1.4 ;;97/1/27 1.5 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview) 1.6 ;;initial version 1.7 -(define-key YaTeX-user-extensional-map "0" 1.8 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "part"))) 1.9 -(define-key YaTeX-user-extensional-map "1" 1.10 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter"))) 1.11 -(define-key YaTeX-user-extensional-map "2" 1.12 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "section"))) 1.13 -(define-key YaTeX-user-extensional-map "3" 1.14 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection"))) 1.15 -(define-key YaTeX-user-extensional-map "4" 1.16 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection"))) 1.17 -(define-key YaTeX-user-extensional-map "5" 1.18 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph"))) 1.19 -(define-key YaTeX-user-extensional-map "6" 1.20 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph"))) 1.21 -(define-key YaTeX-user-extensional-map "r" 1.22 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref"))) 1.23 -(define-key YaTeX-user-extensional-map "i" 1.24 - '(lambda () (interactive) (YaTeX-make-singlecmd "item"))) 1.25 -(define-key YaTeX-user-extensional-map "\C-b" 1.26 - '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow"))) 1.27 -(define-key YaTeX-user-extensional-map "l" 1.28 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "label"))) 1.29 -(define-key YaTeX-user-extensional-map "f" 1.30 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac"))) 1.31 -(define-key YaTeX-user-extensional-map "S" 1.32 - '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength"))) 1.33 -(define-key YaTeX-user-extensional-map "b" 1.34 - '(lambda () (interactive) (YaTeX-make-fontsize nil "bf"))) 1.35 -(define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info) 1.36 +(let ((map YaTeX-user-extensional-map)) 1.37 + (define-key map "0" 1.38 + (function (lambda () (interactive) 1.39 + (YaTeX-make-section nil nil nil "part")))) 1.40 + (define-key map "1" 1.41 + (function (lambda () (interactive) 1.42 + (YaTeX-make-section nil nil nil "chapter")))) 1.43 + (define-key map "2" 1.44 + (function (lambda () (interactive) 1.45 + (YaTeX-make-section nil nil nil "section")))) 1.46 + (define-key map "3" 1.47 + (function (lambda () (interactive) 1.48 + (YaTeX-make-section nil nil nil "subsection")))) 1.49 + (define-key map "4" 1.50 + (function (lambda () (interactive) 1.51 + (YaTeX-make-section nil nil nil "subsubsection")))) 1.52 + (define-key map "5" 1.53 + (function (lambda () (interactive) 1.54 + (YaTeX-make-section nil nil nil "paragraph")))) 1.55 + (define-key map "6" 1.56 + (function (lambda () (interactive) 1.57 + (YaTeX-make-section nil nil nil "subparagraph")))) 1.58 + (define-key map "r" 1.59 + (function (lambda () (interactive) 1.60 + (YaTeX-make-section nil nil nil "ref")))) 1.61 + (define-key map "i" 1.62 + (function (lambda () (interactive) 1.63 + (YaTeX-make-singlecmd "item")))) 1.64 + (define-key map "\C-b" 1.65 + (function (lambda () (interactive) 1.66 + (YaTeX-make-singlecmd "leftarrow")))) 1.67 + (define-key map "l" 1.68 + (function (lambda () (interactive) 1.69 + (YaTeX-make-section nil nil nil "label")))) 1.70 + (define-key map "f" 1.71 + (function (lambda () (interactive) 1.72 + (YaTeX-make-section nil nil nil "frac")))) 1.73 + (define-key map "S" 1.74 + (function (lambda () (interactive) 1.75 + (YaTeX-make-section nil nil nil "setlength")))) 1.76 + (define-key map "b" 1.77 + (function (lambda () (interactive) 1.78 + (YaTeX-make-fontsize nil "bf")))) 1.79 + (define-key map "I" 'YaTeX-browse-info)) 1.80 1.81 (defun YaTeX-browse-info () 1.82 - "Browse YaTeX's info" 1.83 - (interactive) 1.84 - (require 'info) 1.85 - (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top"))) 1.86 + "Browse YaTeX's info" 1.87 + (interactive) 1.88 + (require 'info) 1.89 + (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top"))) 1.90 1.91 1.92 ;