Mercurial > hgrepos > hgweb.cgi > yatex
comparison yatexenv.el @ 353:2a72779d9c50 dev
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 | 9cfc505ba6aa |
children | dbef6cf84f98 |
comparison
equal
deleted
inserted
replaced
352:ecf7b5543e65 | 353:2a72779d9c50 |
---|---|
1 ;;; yatexenv.el --- YaTeX environment-specific functions | 1 ;;; yatexenv.el --- YaTeX environment-specific functions |
2 ;;; (c) 1994-2013 by HIROSE Yuuji.[yuuji@yatex.org] | 2 ;;; (c) 1994-2013 by HIROSE Yuuji.[yuuji@yatex.org] |
3 ;;; Last modified Wed Nov 20 14:14:39 2013 on firestorm | 3 ;;; Last modified Sun Dec 21 13:58:31 2014 on firestorm |
4 ;;; $Id$ | 4 ;;; $Id$ |
5 | 5 |
6 ;;; Code: | 6 ;;; Code: |
7 ;;; | 7 ;;; |
8 ;; Functions for tabular environment | 8 ;; Functions for tabular environment |
196 (while (>= (setq amps (1- amps)) 0) | 196 (while (>= (setq amps (1- amps)) 0) |
197 (insert "& "))) | 197 (insert "& "))) |
198 (YaTeX-indent-line))) | 198 (YaTeX-indent-line))) |
199 | 199 |
200 (mapcar | 200 (mapcar |
201 '(lambda (s) | 201 (function |
202 (lambda (s) | |
202 (fset (intern (concat "YaTeX-intelligent-newline-" | 203 (fset (intern (concat "YaTeX-intelligent-newline-" |
203 (symbol-name s))) | 204 (symbol-name s))) |
204 'YaTeX-intelligent-newline-align)) | 205 'YaTeX-intelligent-newline-align))) |
205 '(align* flalign flalign* matrix pmatrix bmatrix Bmatrix vmatrix Vmatrix | 206 '(align* flalign flalign* matrix pmatrix bmatrix Bmatrix vmatrix Vmatrix |
206 cases eqnarray eqnarray* alignat alignat*)) | 207 cases eqnarray eqnarray* alignat alignat*)) |
207 | 208 |
208 ;;; | 209 ;;; |
209 ;; Functions for tabbing environment | 210 ;; Functions for tabbing environment |