# HG changeset patch
# User yuuji@gentei.org
# Date 1298008332 -32400
# Node ID 7dc3c2332da594c8f88959fb53b8ea7bd3f061d2
# Parent  429d10a0d5b2fc3940076226264bbc7a5f0a5c96
YaTeX::label: Message for yank should remain.

diff -r 429d10a0d5b2 -r 7dc3c2332da5 yatexadd.el
--- a/yatexadd.el	Fri Feb 18 14:50:34 2011 +0900
+++ b/yatexadd.el	Fri Feb 18 14:52:12 2011 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX add-in functions.
 ;;; yatexadd.el rev.19
 ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Wed Feb 16 21:35:40 2011 on firestorm
+;;; Last modified Thu Feb 17 11:15:20 2011 on firestorm
 ;;; $Id$
 
 ;;;
@@ -1145,7 +1145,7 @@
 			  (fboundp 'internal-find-face)
 			  (if (internal-find-face 'isearch) 'isearch 'region)))
 	    ov
-	    (qmsg "Replace to `%s'? [yn!rq]")
+	    (qmsg "Replace to `%s'? [yn!rq?]")
 	    continue ch)
 	(while bufs
 	  (set-buffer (setq buf (car bufs)))
@@ -1174,7 +1174,7 @@
 				((= ch ?q) (throw 'exit t))
 				((= ch ?r)
 				 (message
-				  "Exit recursive-edit by `%s'"
+				  "Don't forget to exit recursive-edit by `%s'"
 				  (key-description
 				   (where-is-internal
 				    'exit-recursive-edit '(keymap) t)))
@@ -1214,10 +1214,10 @@
 		     "をkill-ringに入れました。yank(%s)で取り出せます。"
 		   " is stored into kill-ring.  Paste it by yank(%s).")))
 	    (kill-new refstr)
-	    (message (concat "`%s'" msg) refstr key)
 	    (and chmode
 		 (not (equal old label))
-		 (YaTeX::label-rename-refs old label))))
+		 (YaTeX::label-rename-refs old label))
+	    (message (concat "`%s'" msg) refstr key)))
       label))))