(auth-source-user-or-password): Remove unnecessary eval-and-compile.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index b303d9757e4b094711db9393fc3637ea91e5c43a..4b49746634cc4565e1df4e04bf13988223fad8ec 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-07  Glenn Morris  <rgm@gnu.org>
+
+       * url-auth.el (auth-source-user-or-password): Remove unnecessary
+       eval-and-compile.
+
 2008-05-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * url-handlers.el (url-file-name-completion): Add missing argument.

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index 91a3a49d2e53f2818b0bb86a958ada874b9a34f0..ebd5c54ce14df278dd97f4ca2c9bb73a8b6caed2 100644 (file)
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -1,7 +1,7 @@
 ;;; url-auth.el --- Uniform Resource Locator authorization modules
 
-;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Keywords: comm, data, processes, hypermedia
 
@@ -25,9 +25,7 @@
 (require 'url-vars)
 (require 'url-parse)
 (autoload 'url-warn "url")
-
-(eval-and-compile
-  (autoload 'auth-source-user-or-password "auth-source"))
+(autoload 'auth-source-user-or-password "auth-source")
 
 (defsubst url-auth-user-prompt (url realm)
   "String to usefully prompt for a username."
@@ -83,11 +81,11 @@ instead of the filename inheritance method."
                                  (symbol-value url-basic-auth-storage))))
     (cond
      ((and prompt (not byserv))
-      (setq user (or 
+      (setq user (or
                  (auth-source-user-or-password "login" server type)
                  (read-string (url-auth-user-prompt url realm)
                               (or user (user-real-login-name))))
-           pass (or 
+           pass (or
                  (auth-source-user-or-password "password" server type)
                  (read-passwd "Password: " nil (or pass ""))))
       (set url-basic-auth-storage
@@ -111,11 +109,11 @@ instead of the filename inheritance method."
            (setq byserv (cdr byserv))))
       (if (or (and (not retval) prompt) overwrite)
          (progn
-           (setq user (or 
+           (setq user (or
                        (auth-source-user-or-password "login" server type)
                        (read-string (url-auth-user-prompt url realm)
                                     (user-real-login-name)))
-                 pass (or 
+                 pass (or
                        (auth-source-user-or-password "password" server type)
                        (read-passwd "Password: "))
                  retval (base64-encode-string (format "%s:%s" user pass))
@@ -205,11 +203,11 @@ instead of hostname:portnum."
                (setq byserv (cdr byserv))))
          (if overwrite
              (if (and (not retval) prompt)
-                 (setq user (or 
+                 (setq user (or
                              (auth-source-user-or-password "login" server type)
                              (read-string (url-auth-user-prompt url realm)
                                           (user-real-login-name)))
-                       pass (or 
+                       pass (or
                              (auth-source-user-or-password "password" server type)
                              (read-passwd "Password: "))
                        retval (setq retval