1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00

(url-register-auth-scheme): Fix `format' call.

This commit is contained in:
Stefan Monnier 2004-04-12 04:02:17 +00:00
parent d3c91027f3
commit caae2fd85f

View File

@ -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))