From: Stefan Monnier Date: Mon, 12 Apr 2004 04:02:17 +0000 (+0000) Subject: (url-register-auth-scheme): Fix `format' call. X-Git-Tag: ttn-vms-21-2-B4~6903 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=caae2fd85ff30753f4abf44bbb1049eefa2af099;p=emacs.git (url-register-auth-scheme): Fix `format' call. --- 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))