diff lisp/emacs-lisp/checkdoc.el @ 41608:45db352a0971

Converted backquote to the new style.
author Sam Steingold <sds@gnu.org>
date Tue, 27 Nov 2001 15:52:52 +0000
parents 3d601db16361
children be541feb06cc
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el	Tue Nov 27 05:26:27 2001 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Tue Nov 27 15:52:52 2001 +0000
@@ -176,18 +176,18 @@
 
 ;; From custom web page for compatibility between versions of custom:
 (eval-and-compile
-  (condition-case ()
-      (require 'custom)
-    (error nil))
-  (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
-      nil ;; We've got what we needed
-    ;; We have the old custom-library, hack around it!
-    (defmacro defgroup (&rest args)
-      nil)
-    (defmacro custom-add-option (&rest args)
-      nil)
-    (defmacro defcustom (var value doc &rest args)
-      (` (defvar (, var) (, value) (, doc))))))
+ (condition-case ()
+     (require 'custom)
+   (error nil))
+ (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
+     nil ;; We've got what we needed
+     ;; We have the old custom-library, hack around it!
+     (defmacro defgroup (&rest args)
+       nil)
+     (defmacro custom-add-option (&rest args)
+       nil)
+     (defmacro defcustom (var value doc &rest args)
+       `(defvar ,var ,value ,doc))))
 
 (defcustom checkdoc-autofix-flag 'semiautomatic
   "*Non-nil means attempt auto-fixing of doc strings.