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