1.1 --- a/yatexlib.el	Sat Nov 23 01:04:05 2013 +0900
     1.2 +++ b/yatexlib.el	Sun Dec 21 14:20:01 2014 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries
     1.5  ;;; 
     1.6  ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Fri Nov 22 07:53:13 2013 on firestorm
     1.8 +;;; Last modified Sun Dec 21 14:15:24 2014 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -287,8 +287,8 @@
    1.13        (delete-region (point) (progn (forward-sexp) (point)))
    1.14        (delete-blank-lines)
    1.15        (insert "(setq " name " '(\n")
    1.16 -      (mapcar '(lambda (s)
    1.17 -		 (insert (format "%s\n" (prin1-to-string s))))
    1.18 +      (mapcar (function (lambda (s)
    1.19 +			  (insert (format "%s\n" (prin1-to-string s)))))
    1.20  	      value)
    1.21        (insert "))\n\n")
    1.22        (delete-blank-lines)
    1.23 @@ -844,9 +844,9 @@
    1.24  (fset 'YaTeX-last-key
    1.25        (if (fboundp 'win:last-key)
    1.26  	  'win:last-key
    1.27 -	'(lambda () (if (boundp 'last-command-char)
    1.28 -			last-command-char
    1.29 -		      last-command-event))))
    1.30 +	(function (lambda () (if (boundp 'last-command-char)
    1.31 +				 last-command-char
    1.32 +			       last-command-event)))))
    1.33  (defun YaTeX-switch-to-window ()
    1.34    "Switch to windows.el's window decided by last pressed key."
    1.35    (interactive)