Mercurial > emacs

comparison lisp/url/url-auth.el @ 62400:e30c08177a3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace `string-to-int' by `string-to-number'.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 16 May 2005 10:07:31 +0000
parents 2954cb243379
children a8fa7c632ee4 21eea50897a7
comparison
equal deleted inserted replaced
62399:87fca255126a 62400:e30c08177a3b
291 ((symbolp type) (downcase (symbol-name type))) 291 ((symbolp type) (downcase (symbol-name type)))
292 (t (error "Bad call to `url-register-auth-scheme'")))) 292 (t (error "Bad call to `url-register-auth-scheme'"))))
293 (function (or function (intern (concat "url-" type "-auth")))) 293 (function (or function (intern (concat "url-" type "-auth"))))
294 (rating (cond 294 (rating (cond
295 ((null rating) 2) 295 ((null rating) 2)
296 ((stringp rating) (string-to-int rating)) 296 ((stringp rating) (string-to-number rating))
297 (t rating))) 297 (t rating)))
298 (node (assoc type url-registered-auth-schemes))) 298 (node (assoc type url-registered-auth-schemes)))
299 (if (not (fboundp function)) 299 (if (not (fboundp function))
300 (url-warn 'security 300 (url-warn 'security
301 (format (concat 301 (format (concat