1.1 --- a/yatexlib.el	Sat Sep 11 11:40:56 2010 +0900
     1.2 +++ b/yatexlib.el	Wed Feb 16 20:08:05 2011 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c)1994-2009 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sat Sep 11 11:40:11 2010 on firestorm
     1.8 +;;; Last modified Wed Feb 16 19:58:33 2011 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -665,6 +665,13 @@
    1.13      (self-insert-command 1)
    1.14      (YaTeX-minibuffer-complete)))
    1.15  
    1.16 +(defun YaTeX-yatex-buffer-list ()
    1.17 +  (save-excursion
    1.18 +    (delq nil (mapcar (function (lambda (buf)
    1.19 +				  (set-buffer buf)
    1.20 +				  (if (eq major-mode 'yatex-mode) buf)))
    1.21 +		      (buffer-list)))))
    1.22 +
    1.23  (defun foreach-buffers (pattern job)
    1.24    "For each buffer which matches with PATTERN, do JOB."
    1.25    (let ((list (buffer-list)))