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

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 9976824..90e682f 100644 (file)
--- 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 eb2e5a6..73b0660 100644 (file)
--- 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 90599d3..22d9fc6 100644 (file)
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -149,6 +149,13 @@
 \f
 ;;; 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.