Mercurial > hgrepos > hgweb.cgi > yatex

changeset 173:7dc3c2332da5 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
YaTeX::label: Message for yank should remain.
author yuuji@gentei.org
date Fri, 18 Feb 2011 14:52:12 +0900
parents 429d10a0d5b2
children ab02213f5683
files yatexadd.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))))

yatex.org