Allora ho messo insieme il tuo oreambolo con l’esempio non funzionante.
`
\documentclass[10pt]{article}
\usepackage[greek, latin]{babel}
\languageattribute{greek}{polutoniko}
\DeclareRobustCommand{\greco}[1]{%
\begin{otherlanguage*}{greek}#1 \end{otherlanguage*}}
\usepackage{ledmac}
\makeatletter
\renewcommand*{\para@vfootnote}[2]{%
\insert\csname #1footins\endcsname
\bgroup
\notefontsetup
\interlinepenalty=\csname inter#1footnotelinepenalty\endcsname
\floatingpenalty=\@MM
\splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox
\leftskip=\z@skip \rightskip=\z@skip
\l@dparsefootspec #2\ledplinenumtrue % new from here
\ifnum\@nameuse{previous@#1@number}=\l@dparsedstartline\relax
\ledplinenumfalse
\fi
\ifnum\previous@page=\l@dparsedstartpage\relax
\else \ledplinenumtrue \fi
\ifnum\l@dparsedstartline=\l@dparsedendline\relax
\else \ledplinenumtrue \fi
\expandafter\xdef\csname previous@#1@number\endcsname{\l@dparsedstartline}
\xdef\previous@page{\l@dparsedstartpage} % to here
\setbox0=\vbox{\hsize=\maxdimen
\noindent\csname #1footfmt\endcsname#2}%
\setbox0=\hbox{\unvxh0}%
\dp0=0pt
\ht0=\csname #1footfudgefactor\endcsname\wd0
\box0
\penalty0
\egroup
}
\footparagraph{A}
\footparagraph{B}
\renewcommand{\notenumfont}{\footnotesize}
\newcommand{\notetextfont}{\footnotesize}
%\addtolength{\skip\Afootins}{1.5mm}
%\addtolength{\skip\Bfootins}{1.5mm}
%\count\Afootins=825
%\count\Bfootins=825
\newcommand{\abb}[1]{#1%
\let\rbracket\nobrak\relax}
\newcommand{\nobrak}{\textnormal{}}
\newcommand{\morenoexpands}{%
\let\abb=0%
}
\newcommand{\Aparafootfmt}[3]{%
\normal@pars\scriptsize
\parindent=0pt \parfillskip=0pt plus1fil
\notenumfont\printlines#1|\enspace
% \lemmafont#1|#2\enskip
\notetextfont
#3\penalty-10\hskip 1em plus 4em minus.4em\relax
}
\newcommand{\Bparafootfmt}[3]{%
\normal@pars\scriptsize
\parindent=0pt \parfillskip=0pt plus1fil
\notenumfont\printlines#1|%
\ifledplinenum
\enspace%
\else
{\hskip 0em plus0em minus.4em}%
\fi
\select@lemmafont#1|#2\rbracket\enskip
\notetextfont
#3\penalty-10\hskip 1em plus 4em minus.4em\relax }
\newcommand*{\previous@A@number}{-1}
\newcommand*{\previous@page}{-1}
\makeatother
\let\Afootfmt=\Aparafootfmt
\emergencystretch40pt
\author{}
\title{}
\date{}
\begin{document}
\beginnumbering
\pstart
\paragraph*{1} \textsc{STORAX NON REDIIT HAC NOCTE A CENA AESCHINUS} Haec fabula palliata Adelphoe, ut ipsum indicat nomen, et plurali numero, cum sit una, et \edtext{masculino genere}{\Afootnote{masculino genere CL} \ genere masculino {AK}},
\par
\end{document}
`
Ci manca evidentemente qualche cosa perché produce un grave errore (senza invocare nessun greco} in quanto \end{document} sarebbe emesso mentre il programma sta ancora elaborando del testo dentro delle scatole.
Perché funzioni, almeno in caratteri latino dopo {AK}}, credo che ci voglia qualche cosa d’altro, ma io non conosco ledmac e non ho guardato dentro i comandi che hai definito, quindi non so che cosa aggiungere (qualcosa che faccia il paio con \pstart forse?) per fargli terminare quel che deve fare prima di chiudere il documento.
Mi completi quanto c’è scritto dentro \begin{document}…\end{document}, per favore?