From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 30 Aug 1997 19:48:14 +0000 (+0000)
Subject: (defgroup, defcustom): Add Emacs 19 compatibility definitions.
X-Git-Tag: emacs-20.1~318
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80216a47a461ee8aa52872c551241c6a67bad78b;p=emacs.git

(defgroup, defcustom): Add Emacs 19 compatibility definitions.
---

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 9976824403b..90e682f4705 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -27,6 +27,13 @@
 
 ;;; Emacs lisp functions to convert Texinfo files to Info files.
 
+(or (fboundp 'defgroup)
+    (defmacro defgroup (&rest ignore) nil))
+
+(or (fboundp 'defcustom)
+    (defmacro defcustom (var value doc &rest ignore)
+      `(defvar ,var ,value ,doc)))
+
 (defvar texinfmt-version "2.37 of 24 May 1997")
 
 (defun texinfmt-version (&optional here)
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index eb2e5a60862..73b06600aeb 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -27,6 +27,13 @@
 
 ;;; Code:
 
+(or (fboundp 'defgroup)
+    (defmacro defgroup (&rest ignore) nil))
+
+(or (fboundp 'defcustom)
+    (defmacro defcustom (var value doc &rest ignore)
+      `(defvar ,var ,value ,doc)))
+
 (defgroup texinfo nil
   "Texinfo Mode"
   :group 'docs)
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 90599d31f29..22d9fc60538 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -149,6 +149,13 @@
 
 ;;; Code:
 
+(or (fboundp 'defgroup)
+    (defmacro defgroup (&rest ignore) nil))
+
+(or (fboundp 'defcustom)
+    (defmacro defcustom (var value doc &rest ignore)
+      `(defvar ,var ,value ,doc)))
+
 (defvar texinfo-master-menu-header
   " --- The Detailed Node Listing ---\n"
   "String inserted before lower level entries in Texinfo master menu.