;; Shut up.
-(defvar byte-compile-default-warnings)
-
(defun maybe-fbind (args)
(while args
(or (fboundp (car args))
(defun maybe-bind (args)
(mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
-(maybe-fbind '(babel-fetch
- babel-wash create-image decode-coding-string display-graphic-p
- bbdb-complete-name
- display-time-event-handler
- find-image font-create-object gnus-mule-get-coding-system
- font-lock-set-defaults
- image-size image-type-available-p insert-image
- make-temp-file message-xmas-redefine
- mail-aliases-setup mm-copy-tree
- mule-write-region-no-coding-system put-image
- ring-elements
- canlock-verify
- charsetp
- coding-system-p
- propertize make-mode-line-mouse2-map
- make-mode-line-mouse-map
- rmail-select-summary rmail-summary-exists rmail-update-summary
- sc-cite-regexp set-font-family set-font-size temp-directory
- string-as-multibyte
+(maybe-fbind '(Info-directory
+ Info-menu clear-string cp-supported-codepages create-image
+ custom-autoload display-graphic-p display-time-event-handler
+ epg-check-configuration find-coding-system find-image image-size
+ image-type-available-p insert-image line-number-at-pos
+ make-mode-line-mouse-map make-network-process make-temp-file
+ propertize&nb