Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatex19.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 ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later 1 ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later
2 ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org] 2 ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
3 ;;; Last modified Mon Apr 1 22:42:46 2013 on firestorm 3 ;;; Last modified Sun Dec 21 14:03:48 2014 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 5
6 ;;; Code: 6 ;;; Code:
7 ;(require 'yatex) 7 ;(require 'yatex)
8 8
52 (delq nil 52 (delq nil
53 (nreverse 53 (nreverse
54 (list 54 (list
55 (if YaTeX-auto-math-mode nil 55 (if YaTeX-auto-math-mode nil
56 (cons 'math (cons "Toggle math-mode" 56 (cons 'math (cons "Toggle math-mode"
57 '(lambda () (interactive) 57 (function(lambda () (interactive)
58 (YaTeX-switch-mode-menu nil ?t))))) 58 (YaTeX-switch-mode-menu nil ?t))))))
59 (cons 'mod (cons "Toggle Modify Mode" 59 (cons 'mod (cons "Toggle Modify Mode"
60 '(lambda () (interactive) 60 (function(lambda () (interactive)
61 (YaTeX-switch-mode-menu nil ?m)))))))) 61 (YaTeX-switch-mode-menu nil ?m)))))))))
62 (defvar YaTeX-mode-menu-map-percent (make-sparse-keymap "percent")) 62 (defvar YaTeX-mode-menu-map-percent (make-sparse-keymap "percent"))
63 (YaTeX-define-menu 63 (YaTeX-define-menu
64 'YaTeX-mode-menu-map-percent 64 'YaTeX-mode-menu-map-percent
65 (nreverse 65 (nreverse
66 '((! "Change LaTeX typesetter(%#!)" 66 '((! "Change LaTeX typesetter(%#!)"
225 (cons "Environment region" 225 (cons "Environment region"
226 YaTeX-mode-menu-map-envr))))) 226 YaTeX-mode-menu-map-envr)))))
227 227
228 (and (featurep 'xemacs) 228 (and (featurep 'xemacs)
229 (add-hook 'yatex-mode-hook 229 (add-hook 'yatex-mode-hook
230 '(lambda () 230 (function
231 (lambda ()
231 (or (assoc "YaTeX" current-menubar) 232 (or (assoc "YaTeX" current-menubar)
232 (progn 233 (progn
233 (set-buffer-menubar (copy-sequence current-menubar)) 234 (set-buffer-menubar (copy-sequence current-menubar))
234 (add-submenu nil YaTeX-mode-menu-map)))))) 235 (add-submenu nil YaTeX-mode-menu-map)))))))
235 236
236 ;; Other key bindings for window-system 237 ;; Other key bindings for window-system
237 ;(YaTeX-define-key [?\C- ] 'YaTeX-do-completion) 238 ;(YaTeX-define-key [?\C- ] 'YaTeX-do-completion)
238 (define-key YaTeX-mode-map [?\M-\C- ] 'YaTeX-mark-environment) 239 (define-key YaTeX-mode-map [?\M-\C- ] 'YaTeX-mark-environment)
239 240

yatex.org