Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexsec.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 8d3156073892
children d69fd7b1ac4d
comparison
equal deleted inserted replaced
352:ecf7b5543e65 353:2a72779d9c50
1 ;;; yatexsec.el --- YaTeX sectioning browser 1 ;;; yatexsec.el --- YaTeX sectioning browser
2 ;;; 2 ;;;
3 ;;; (c) 1994-2013 by HIROSE Yuuji [yuuji@yatex.org] 3 ;;; (c) 1994-2013 by HIROSE Yuuji [yuuji@yatex.org]
4 ;;; Last modified Mon Apr 1 22:46:28 2013 on firestorm 4 ;;; Last modified Sun Dec 21 14:16:35 2014 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 (defvar YaTeX-sectioning-level 8 (defvar YaTeX-sectioning-level
9 '(("part" . 0) 9 '(("part" . 0)
53 (define-key YaTeX-sectioning-minibuffer-map "\M-v" 53 (define-key YaTeX-sectioning-minibuffer-map "\M-v"
54 'YaTeX-sectioning-scroll-down) 54 'YaTeX-sectioning-scroll-down)
55 (define-key YaTeX-sectioning-minibuffer-map "\C-r" 55 (define-key YaTeX-sectioning-minibuffer-map "\C-r"
56 'YaTeX-sectioning-scroll-down) 56 'YaTeX-sectioning-scroll-down)
57 (define-key YaTeX-sectioning-minibuffer-map "\C-w" 57 (define-key YaTeX-sectioning-minibuffer-map "\C-w"
58 '(lambda () (interactive) (YaTeX-sectioning-scroll-down 1))) 58 (function (lambda () (interactive) (YaTeX-sectioning-scroll-down 1))))
59 (define-key YaTeX-sectioning-minibuffer-map "\C-z" 59 (define-key YaTeX-sectioning-minibuffer-map "\C-z"
60 '(lambda () (interactive) (YaTeX-sectioning-scroll-up 1))) 60 (function (lambda () (interactive) (YaTeX-sectioning-scroll-up 1))))
61 (define-key YaTeX-sectioning-minibuffer-map "\C-l" 61 (define-key YaTeX-sectioning-minibuffer-map "\C-l"
62 'YaTeX-sectioning-recenter) 62 'YaTeX-sectioning-recenter)
63 (define-key YaTeX-sectioning-minibuffer-map "?" 63 (define-key YaTeX-sectioning-minibuffer-map "?"
64 'YaTeX-sectioning-help) 64 'YaTeX-sectioning-help)
65 (YaTeX-sectioning-map-hide YaTeX-sectioning-minibuffer-map) 65 (YaTeX-sectioning-map-hide YaTeX-sectioning-minibuffer-map)

yatex.org