Mercurial > emacs
comparison lisp/progmodes/cc-vars.el @ 48656:546d8af61357
Simply require wid-edit and custom in eval-when-compile.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 04 Dec 2002 11:49:10 +0000 |
parents | a885153e42b4 |
children | 13365bab7fce |
comparison
equal
deleted
inserted
replaced
48655:06a337e05b08 | 48656:546d8af61357 |
---|---|
48 (cc-bytecomp-defun char-table-range) ; Emacs 19+ | 48 (cc-bytecomp-defun char-table-range) ; Emacs 19+ |
49 (cc-bytecomp-defun char-table-p) ; Emacs 19+, XEmacs 20+ | 49 (cc-bytecomp-defun char-table-p) ; Emacs 19+, XEmacs 20+ |
50 | 50 |
51 ;; Pull in custom if it exists and is recent enough (the one in Emacs | 51 ;; Pull in custom if it exists and is recent enough (the one in Emacs |
52 ;; 19.34 isn't). | 52 ;; 19.34 isn't). |
53 (eval | 53 (eval-when-compile |
54 (cc-eval-when-compile | 54 (require 'custom) |
55 (condition-case nil | 55 (require 'wid-edit)) |
56 (progn | |
57 (require 'custom) | |
58 (or (fboundp 'defcustom) (error "")) | |
59 (require 'wid-edit) | |
60 '(progn ; Compile in the require's. | |
61 (require 'custom) | |
62 (require 'wid-edit))) | |
63 (error | |
64 (message "Warning: Compiling without Customize support \ | |
65 since a (good enough) custom library wasn't found") | |
66 (cc-bytecomp-defmacro define-widget (name class doc &rest args)) | |
67 (cc-bytecomp-defmacro defcustom (symbol value doc &rest args) | |
68 `(defvar ,symbol ,value ,doc)) | |
69 (cc-bytecomp-defmacro custom-declare-variable (symbol value doc | |
70 &rest args) | |
71 `(defvar ,(eval symbol) ,(eval value) ,doc)) | |
72 nil)))) | |
73 | 56 |
74 (cc-eval-when-compile | 57 (cc-eval-when-compile |
75 ;; Need the function form of `backquote', which isn't standardized | 58 ;; Need the function form of `backquote', which isn't standardized |
76 ;; between Emacsen. It's called `bq-process' in XEmacs, and | 59 ;; between Emacsen. It's called `bq-process' in XEmacs, and |
77 ;; `backquote-process' in Emacs. `backquote-process' returns a | 60 ;; `backquote-process' in Emacs. `backquote-process' returns a |