Silence the bytecompiler.
authorueno <ueno>
Wed, 6 Jun 2007 09:02:32 +0000 (09:02 +0000)
committerueno <ueno>
Wed, 6 Jun 2007 09:02:32 +0000 (09:02 +0000)
lisp/riece-twitter.el

index 6212ff0..84e7722 100644 (file)
   :group 'riece-twitter
   :type 'string)
 
   :group 'riece-twitter
   :type 'string)
 
-(if (fboundp 'clear-string)
-    (defalias 'riece-twitter-clear-string 'clear-string)
-  (defun riece-twitter-clear-string (string)
-    (fillarray string ?\x0)))
+(eval-and-compile
+  (if (fboundp 'clear-string)
+      (defalias 'riece-twitter-clear-string 'clear-string)
+    (defun riece-twitter-clear-string (string)
+      (fillarray string ?\0))))
 
 (defun riece-twitter-set-credential (credential)
   "Set your credential used to login to Twitter."
 
 (defun riece-twitter-set-credential (credential)
   "Set your credential used to login to Twitter."