From 80216a47a461ee8aa52872c551241c6a67bad78b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 30 Aug 1997 19:48:14 +0000 Subject: [PATCH] (defgroup, defcustom): Add Emacs 19 compatibility definitions. --- lisp/textmodes/texinfmt.el | 7 +++++++ lisp/textmodes/texinfo.el | 7 +++++++ lisp/textmodes/texnfo-upd.el | 7 +++++++ 3 files changed, 21 insertions(+) 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. -- 2.39.2