yatex

diff yatexhks.el @ 566:2ef9f21dd13b

Add note on YaTeX::usepackage-alist-default
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 24 Jan 2019 15:19:32 +0900
parents 9b4354af748c
children
line diff
     1.1 --- a/yatexhks.el	Sun Dec 24 06:16:52 2006 +0000
     1.2 +++ b/yatexhks.el	Thu Jan 24 15:19:32 2019 +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  ;