From caae2fd85ff30753f4abf44bbb1049eefa2af099 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Apr 2004 04:02:17 +0000 Subject: [PATCH] (url-register-auth-scheme): Fix `format' call. --- lisp/url/url-auth.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index e730a73eee3..5d9b9ab945c 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -298,9 +298,9 @@ RATING a rating between 1 and 10 of the strength of the authentication. (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)) -- 2.39.5