From 51659ed000698902d6396b71173f795b4ddb37b7 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@gnu.org>
Date: Sat, 24 May 1997 22:06:39 +0000
Subject: [PATCH] (\deftypemethod, \deftypemethodheader): New macros to
 implement new commands @deftypemethod and @deftypemethodx. Suggestion from:
 KHMarbaise@p69.ks.fido.de (Karl Heinz Marbaise).

---
 texinfo.tex | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/texinfo.tex b/texinfo.tex
index a1d564bf..a5ad72e3 100644
--- a/texinfo.tex
+++ b/texinfo.tex
@@ -3985,6 +3985,7 @@ width0pt\relax} \fi
 \def\defmacx #1 {\errmessage{@defmacx in invalid context}}
 \def\defspecx #1 {\errmessage{@defspecx in invalid context}}
 \def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}}
+\def\deftypemethodx #1 {\errmessage{@deftypemethodx in invalid context}}
 \def\deftypeunx #1 {\errmessage{@deftypeunx in invalid context}}
 
 % @defmethod, and so on
@@ -4000,6 +4001,16 @@ width0pt\relax} \fi
 \defunargs {#3}\endgroup %
 }
 
+% @deftypemethod foo-class return-type foo-method args
+%
+\def\deftypemethod{%
+  \defmethparsebody\Edeftypemethod\deftypemethodx\deftypemethodheader}
+%
+% #1 is the class name, #2 the data type, #3 the method name, #4 the args.
+\def\deftypemethodheader#1#2#3#4{%
+  \deftypefnheaderx{Method on #1}{#2}#3 #4\relax
+}
+
 % @defmethod == @defop Method
 
 \def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}