etoolbox-mypatchcmd-test.tex

## etoolbox-mypatchcmd-test.tex
\documentclass{minimal}
\usepackage[T1]{fontenc}
\usepackage{etoolbox}

\makeatletter

% パッチを当てて，失敗したときだけ定型のエラーメッセージを出したいとする．
% いちいち面倒なのでマクロ化する．
\newrobustcmd*{\mypatchcmdi}[3]{% 一見良さそうだが，実はダメ．
  \patchcmd{#1}{#2}{#3}{}{\message{^^JError!: \string#1, #2, #3^^J}}}

\long\def\mypatchcmdii@#1#2#3#4{#1{#2}{#3}{#4}{}{\message{^^JError!: \string#2, #3, #4^^J}}}
\newrobustcmd*{\mypatchcmdii}{% これならOK．
  \etb@dbg@trce\mypatchcmdii
  \begingroup
  \@makeother\#%
  \mypatchcmdii@\etb@patchcmd}
\makeatother

\begin{document}

\def\hoge{a}

\mypatchcmdi{\hoge}{a}{b}
\meaning\hoge                   % OK

\mypatchcmdii{\hoge}{b}{a}
\meaning\hoge                   % OK

\def\hoge#1#2{#1}

\mypatchcmdi{\hoge}{#1}{#2}
\meaning\hoge                   % NG!!  #1, #2 が ##1, ##2 に化けてしまう．

\mypatchcmdii{\hoge}{#1}{#2}
\meaning\hoge                   % OK

\end{document}