176 |
|
|
177 |
;; From custom web page for compatibility between versions of custom: |
;; From custom web page for compatibility between versions of custom: |
178 |
(eval-and-compile |
(eval-and-compile |
179 |
(condition-case () |
(condition-case () |
180 |
(require 'custom) |
(require 'custom) |
181 |
(error nil)) |
(error nil)) |
182 |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
183 |
nil ;; We've got what we needed |
nil ;; We've got what we needed |
184 |
;; We have the old custom-library, hack around it! |
;; We have the old custom-library, hack around it! |
185 |
(defmacro defgroup (&rest args) |
(defmacro defgroup (&rest args) |
186 |
nil) |
nil) |
187 |
(defmacro custom-add-option (&rest args) |
(defmacro custom-add-option (&rest args) |
188 |
nil) |
nil) |
189 |
(defmacro defcustom (var value doc &rest args) |
(defmacro defcustom (var value doc &rest args) |
190 |
(` (defvar (, var) (, value) (, doc)))))) |
`(defvar ,var ,value ,doc)))) |
191 |
|
|
192 |
(defcustom checkdoc-autofix-flag 'semiautomatic |
(defcustom checkdoc-autofix-flag 'semiautomatic |
193 |
"*Non-nil means attempt auto-fixing of doc strings. |
"*Non-nil means attempt auto-fixing of doc strings. |