Mercurial > hgrepos > hgweb.cgi > yatex
changeset 119:34096706b634 dev
Bind local variable source-window for YaTeX-read-section-with-overview
in YaTeX-change-section.
author | yuuji@gentei.org |
---|---|
date | Wed, 23 Dec 2009 20:09:22 +0900 |
parents | e1693ffc64cc |
children | 8772bd5d1f02 |
files | yatex.el |
diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/yatex.el Fri Nov 20 07:22:01 2009 +0900 +++ b/yatex.el Wed Dec 23 20:09:22 2009 +0900 @@ -2,8 +2,8 @@ ;;; Yet Another tex-mode for emacs - //–ì’¹// ;;; yatex.el rev. 1.74.1 ;;; (c)1991-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Oct 15 14:27:41 2009 on firestorm -;;; $Id: yatex.el,v ce2deaceb818 2009/09/28 02:37:27 yuuji $ +;;; Last modified Wed Dec 23 20:05:55 2009 on firestorm +;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ @@ -2205,7 +2205,8 @@ (defun YaTeX-read-section-with-overview () "Read sectioning command with overview. -This function refers a local variable `source-window' in YaTeX-make-section" +This function refers a local variable `source-window' in YaTeX-make-section, +because this function is called with no argument." (interactive) (require 'yatexsec) ;some case needs this (if (> (minibuffer-depth) 1) @@ -2265,7 +2266,7 @@ (beg (make-marker)) (end (make-marker)) old new) (if (null where) nil (unwind-protect - (progn + (let ((source-window (selected-window))) (cond ((equal where 0);;if point is on section command (set-marker beg (match-beginning 1))