192 |
|
|
193 |
|
|
194 |
(eval-and-compile |
(eval-and-compile |
195 |
(condition-case () |
(condition-case () |
196 |
(require 'custom) |
(require 'custom) |
197 |
(error nil)) |
(error nil)) |
198 |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
199 |
nil ;; We've got what we needed |
nil ;; We've got what we needed |
200 |
;; We have the old custom-library, hack around it! |
;; We have the old custom-library, hack around it! |
201 |
(defmacro defgroup (&rest args) |
(defmacro defgroup (&rest args) |
202 |
nil) |
nil) |
203 |
(defmacro defface (var values doc &rest args) |
(defmacro defface (var values doc &rest args) |
204 |
(` (make-face (, var)))) |
`(make-face ,var)) |
205 |
(defmacro defcustom (var value doc &rest args) |
(defmacro defcustom (var value doc &rest args) |
206 |
(` (defvar (, var) (, value) (, doc)))))) |
`(defvar ,var ,value ,doc)))) |
207 |
|
|
208 |
;; User options |
;; User options |
209 |
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |