`\patchcmd` で `\hyper@normalise` コマンドをパッチできません

`\patchcmd` で `\hyper@normalise` コマンドをパッチできません

マクロ全体を上書きせずにコマンドにフックを追加することは可能ですか。カスタム定義を追加して正規化できる\hyper@normalise直前に、マクロの最後にフックを追加したいと思います。\hyper@n@rmalise

私が達成したいのはこれです:

\begingroup
  \endlinechar=-1 %
  \catcode`\^^A=14 %
  \catcode`\^^M\active
  \catcode`\%\active
  \catcode`\#\active
  \catcode`\_\active
  \catcode`\$\active
  \catcode`\&\active
  \gdef\hyper@normalise{^^A
    \begingroup
    \catcode`\^^M\active
    \def^^M{ }^^A
    \catcode`\%\active
    \let%\@percentchar
    \let\%\@percentchar
    \catcode`\#\active
    \def#{\hyper@hash}^^A
    \def\#{\hyper@hash}^^A
    \@makeother\&^^A
    \edef&{\string&}^^A
    \edef\&{\string&}^^A
    \edef\textunderscore{\string_}^^A
    \let\_\textunderscore
    \catcode`\_\active
    \let_\textunderscore
    \let~\hyper@tilde
    \let\~\hyper@tilde
    \let\textasciitilde\hyper@tilde
    \let\\\@backslashchar
    \edef${\string$}^^A
    \Hy@safe@activestrue
    \csname hyper@normalise@hook\endcsname % <--HERE
    \hyper@n@rmalise
  }^^A
\endgroup

しかし、パッケージ内で\patchcmd凍結する必要がないようにしたいのです。このマクロでは多くの catcodes が変更されているため、エラーが発生します。\hyper@normalise

Runaway definition?
\active \def  \catcode `\
! File ended while scanning definition of \etb@resrvda.

MWE:

\documentclass{article}
\usepackage{etoolbox}
\usepackage{hyperref}

\makeatletter
\patchcmd\hyper@normalise{\hyper@n@rmalise}{\csname hyper@normalise@hook\endcsname \hyper@n@rmalise}{}{}
\show\hyper@normalise
\makeatother

\begin{document}
aa
\end{document}

関連情報