yatex

changeset 173:7dc3c2332da5 dev

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 diff
     1.1 --- a/yatexadd.el	Fri Feb 18 14:50:34 2011 +0900
     1.2 +++ b/yatexadd.el	Fri Feb 18 14:52:12 2011 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX add-in functions.
     1.5  ;;; yatexadd.el rev.19
     1.6  ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Wed Feb 16 21:35:40 2011 on firestorm
     1.8 +;;; Last modified Thu Feb 17 11:15:20 2011 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;;
    1.12 @@ -1145,7 +1145,7 @@
    1.13  			  (fboundp 'internal-find-face)
    1.14  			  (if (internal-find-face 'isearch) 'isearch 'region)))
    1.15  	    ov
    1.16 -	    (qmsg "Replace to `%s'? [yn!rq]")
    1.17 +	    (qmsg "Replace to `%s'? [yn!rq?]")
    1.18  	    continue ch)
    1.19  	(while bufs
    1.20  	  (set-buffer (setq buf (car bufs)))
    1.21 @@ -1174,7 +1174,7 @@
    1.22  				((= ch ?q) (throw 'exit t))
    1.23  				((= ch ?r)
    1.24  				 (message
    1.25 -				  "Exit recursive-edit by `%s'"
    1.26 +				  "Don't forget to exit recursive-edit by `%s'"
    1.27  				  (key-description
    1.28  				   (where-is-internal
    1.29  				    'exit-recursive-edit '(keymap) t)))
    1.30 @@ -1214,10 +1214,10 @@
    1.31  		     "をkill-ringに入れました。yank(%s)で取り出せます。"
    1.32  		   " is stored into kill-ring.  Paste it by yank(%s).")))
    1.33  	    (kill-new refstr)
    1.34 -	    (message (concat "`%s'" msg) refstr key)
    1.35  	    (and chmode
    1.36  		 (not (equal old label))
    1.37 -		 (YaTeX::label-rename-refs old label))))
    1.38 +		 (YaTeX::label-rename-refs old label))
    1.39 +	    (message (concat "`%s'" msg) refstr key)))
    1.40        label))))
    1.41        
    1.42