From 8424dbb2e6f25ff76cd571bf8ec267a293857bee Mon Sep 17 00:00:00 2001 From: fukui Date: Wed, 12 Jan 2000 14:31:45 +0000 Subject: [PATCH] *base64.el: Unbound base64-*-string and base64-*-region when defined by autoload. --- lisp/base64.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/base64.el b/lisp/base64.el index ff4146c..4c0e87b 100644 --- a/lisp/base64.el +++ b/lisp/base64.el @@ -30,6 +30,20 @@ (require 'mel) (eval-and-compile + (defun autoload-functionp (object) + (if (functionp object) + (let ((def object)) + (while (and (symbolp def) (fboundp def)) + (setq def (symbol-function def))) + (eq (car-safe def) 'autoload)))) + (if (autoload-functionp 'base64-decode-string) + (fmakunbound 'base64-decode-string)) + (if (autoload-functionp 'base64-decode-region) + (fmakunbound 'base64-decode-region)) + (if (autoload-functionp 'base64-encode-string) + (fmakunbound 'base64-encode-string)) + (if (autoload-functionp 'base64-encode-region) + (fmakunbound 'base64-encode-region)) (mel-find-function 'mime-decode-string "base64") (mel-find-function 'mime-decode-region "base64") (mel-find-function 'mime-encode-string "base64") -- 1.7.10.4