Mercurial > emacs

changeset 95612:26c59cfcaeff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(auth-source-user-or-password): Remove unnecessary eval-and-compile.
author Glenn Morris <rgm@gnu.org>
date Sat, 07 Jun 2008 02:33:51 +0000
parents 4ad2aacd19df
children 7e79847f2451
files lisp/url/url-auth.el
diffstat 1 files changed, 9 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-auth.el	Fri Jun 06 23:07:50 2008 +0000
+++ b/lisp/url/url-auth.el	Sat Jun 07 02:33:51 2008 +0000
@@ -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 @@
 				  (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 @@
 	    (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 @@
 		(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