Mercurial > hgrepos > hgweb.cgi > yatex
changeset 169:0cb6c6a78e9e dev
YaTeX-change-section: If new string equals to old one, do not change text.
author | yuuji@gentei.org |
---|---|
date | Wed, 16 Feb 2011 21:38:13 +0900 |
parents | 191cffccc912 |
children | 269fb1992c2d |
files | yatex.el |
diffstat | 1 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/yatex.el Wed Feb 16 20:08:05 2011 +0900 +++ b/yatex.el Wed Feb 16 21:38:13 2011 +0900 @@ -2,7 +2,7 @@ ;;; Yet Another tex-mode for emacs - //–ì’¹// ;;; yatex.el rev. 1.74.4 ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed Feb 16 17:23:52 2011 on firestorm +;;; Last modified Wed Feb 16 21:20:13 2011 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ @@ -2309,7 +2309,8 @@ (set-marker end (match-end 1)) (goto-char beg) ;beginning of the command (setq new (YaTeX-read-section - (format "Change `%s' to: " cmd) nil))) + (format "Change `%s' to: " cmd) nil) + old cmd)) ((= where -1);;if point is on a optional parameter (set-marker beg (match-beginning 2)) @@ -2320,9 +2321,10 @@ (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd))) (YaTeX-addin cmd) (concat "[" - (read-string (format "Change `%s' to: " - (YaTeX-buffer-substring - (1+ beg) (1- end)))) + (read-string + (format "Change `%s' to: " + (setq old (YaTeX-buffer-substring + (1+ beg) (1- end))))) "]")))) ((> where 0);;if point is in arguments' braces @@ -2342,9 +2344,11 @@ (funcall (intern-soft (concat "YaTeX::" cmd)) where) (read-string (format "Change `%s' to: " old))))) ) ;cond - (delete-region beg end) - (goto-char beg) - (insert-before-markers new)) + (if (string= old new) + nil ;do not replace + (delete-region beg end) + (goto-char beg) + (insert-before-markers new))) (set-marker beg nil) (set-marker end nil)) ;;(goto-char (marker-position p))