changeset 19630:95743e18a01c

(defgroup, defcustom): Add Emacs 19 compatibility definitions.
author Richard M. Stallman <rms@gnu.org>
date Sat, 30 Aug 1997 19:48:14 +0000
parents 70c989c729f1
children 51b56762f98b
files lisp/textmodes/texinfmt.el lisp/textmodes/texinfo.el lisp/textmodes/texnfo-upd.el
diffstat 3 files changed, 21 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfmt.el	Sat Aug 30 19:46:24 1997 +0000
+++ b/lisp/textmodes/texinfmt.el	Sat Aug 30 19:48:14 1997 +0000
@@ -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)
--- a/lisp/textmodes/texinfo.el	Sat Aug 30 19:46:24 1997 +0000
+++ b/lisp/textmodes/texinfo.el	Sat Aug 30 19:48:14 1997 +0000
@@ -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)
--- a/lisp/textmodes/texnfo-upd.el	Sat Aug 30 19:46:24 1997 +0000
+++ b/lisp/textmodes/texnfo-upd.el	Sat Aug 30 19:48:14 1997 +0000
@@ -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.