+ PACKAGEDIR))))
+
+(load "bytecomp" nil t)
+
+(if (fboundp 'byte-compile-file-form-custom-declare-variable)
+ nil
+ ;; Bind defcustom'ed variables when byte-compiling.
+ (put 'custom-declare-variable 'byte-hunk-handler
+ 'byte-compile-file-form-custom-declare-variable)
+ (defun byte-compile-file-form-custom-declare-variable (form)
+ (if (memq 'free-vars byte-compile-warnings)
+ (setq byte-compile-bound-variables
+ (cons (nth 1 (nth 1 form)) byte-compile-bound-variables)))
+ form))
+
+(cond ((featurep 'xemacs)
+ ;; Shut up!
+ (setq byte-compile-warnings
+ (delq 'unused-vars
+ (copy-sequence byte-compile-default-warnings))))
+ ((and (boundp 'emacs-major-version)
+ (or (> emacs-major-version 20)
+ (and (eq emacs-major-version 20)
+ (>= emacs-minor-version 3))))
+ ;; Compiler macro for replacing `sref' with `aref'.
+ (put 'sref 'byte-optimizer
+ (lambda (form)
+ (cons 'aref (cdr form))))))