changeset 54792:369ef3f04d8e

(url-register-auth-scheme): Fix `format' call.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Apr 2004 04:02:17 +0000
parents 04bb18c57fc6
children 4051557a5374
files lisp/url/url-auth.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-auth.el	Mon Apr 12 04:01:43 2004 +0000
+++ b/lisp/url/url-auth.el	Mon Apr 12 04:02:17 2004 +0000
@@ -298,9 +298,9 @@
 	 (node (assoc type url-registered-auth-schemes)))
     (if (not (fboundp function))
 	(url-warn 'security
-		  (format (eval-when-compile
-			    "Tried to register `%s' as an auth scheme"
-			    ", but it is not a function!") function)))
+		  (format (concat
+			   "Tried to register `%s' as an auth scheme"
+			   ", but it is not a function!") function)))
 
     (if node
 	(setcdr node (cons function rating))