🚀 go-pugleaf

>>>>> In <x5u1nvy616.fsf@civilnet.kuciv.kyoto-u.ac.jp>
>>>>>	SHIIBA Michiharu <shiiba@civilnet.kuciv.kyoto-u.ac.jp> wrote:

椎葉さん> query-replace-regexp に関する質問です。

椎葉さん> (defun foo ()
椎葉さん>   (interactive)
椎葉さん>   (query-replace-regexp "\\(\\w\\)_\\(\\w\\)" "\\1\\2")))

[...]

椎葉さん>   aaBcd, fooBar

椎葉さん> のようになるようにするには、先の関数 foo をどのように書き変
椎葉さん> えればよいでしょうか。

query-replace-regexp だけではたぶん無理です。こんな感じでしょうか?

(defun foo2 ()
  (interactive)
  (let (old new)
    (while (re-search-forward "\\(\\w+\\)_\\(\\w+\\)" nil t)
      (setq old (match-string 0)
	    new (concat (match-string 1)
			(capitalize (match-string 2))))
      (if (y-or-n-p (concat "Query replacing \"" old
			    "\" with \"" new "\" "))
	  (replace-match new)))
    (message "done")))
-- 
山岡

$B;32,MM(B

$B$"$j$,$H$&$4$6$$$^$7$?!#(B

$B;32,MM(B> query-replace-regexp $B$@$1$G$O$?$V$sL5M}$G$9!#$3$s$J46$8$G$7$g$&$+(B?

$B;32,MM(B> (defun foo2 ()
$B;32,MM(B>   (interactive)
$B;32,MM(B>   (let (old new)
$B;32,MM(B>     (while (re-search-forward "\\(\\w+\\)_\\(\\w+\\)" nil t)
$B;32,MM(B>       (setq old (match-string 0)
$B;32,MM(B> 	    new (concat (match-string 1)
$B;32,MM(B> 			(capitalize (match-string 2))))
$B;32,MM(B>       (if (y-or-n-p (concat "Query replacing \"" old
$B;32,MM(B> 			    "\" with \"" new "\" "))
$B;32,MM(B> 	  (replace-match new)))
$B;32,MM(B>     (message "done")))

foo_bar_aho $B$J$I$KBP1~$9$k$?$a$K!"(B

	  (replace-match new)

$B$r(B
          (progn
  	    (replace-match new)
            (backward-char 1))

$B$H$7$F;H$&$3$H$K$7$^$7$?!#$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B            


-- 
$BDGMU(B $B=<@2(B (Michiharu CBAR)

>>>>> Message-Id: <x5hejkch8a.fsf@civilnet.kuciv.kyoto-u.ac.jp> の記事で、
>>>>> "椎葉" == SHIIBA Michiharu <shiiba@civilnet.kuciv.kyoto-u.ac.jp>さま曰く...

(defun y-or-n-p-with-replace-highlight (beg end form &rest args)
  (unwind-protect
      (progn
	(pop-to-buffer (current-buffer))
	(replace-highlight beg end)
	(y-or-n-p (apply 'format form args)))
    (replace-dehighlight)))

何てものをあらかじめ定義しておいて

山岡様> (if (y-or-n-p (concat "Query replacing \"" old
山岡様> "\" with \"" new "\" "))

.の代りに

(if (y-or-n-p-with-replace-highlight
     (match-beginning 0) (match-end 0)
     "Quely replaceing \"%s\" with \"%s\" "
     old new)

などとするとちょっとだけ幸せかも知れません。

-- 
鈴木圭一 / keiichi@nanap.org
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B