Mercurial > emacs
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.