Mercurial > emacs

comparison lisp/net/socks.el @ 85226:716b4c75ab5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(socks-build-auth-list): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 03:01:49 +0000
parents 630c599116d6
children 1863c4982b31
comparison
equal deleted inserted replaced
85225:a0a1222030c8 85226:716b4c75ab5f
245 (socks-register-authentication-method 0 "No authentication" 'identity) 245 (socks-register-authentication-method 0 "No authentication" 'identity)
246 246
247 (defun socks-build-auth-list () 247 (defun socks-build-auth-list ()
248 (let ((num 0) 248 (let ((num 0)
249 (retval "")) 249 (retval ""))
250 (mapcar 250 (mapc
251 (function 251 (function
252 (lambda (x) 252 (lambda (x)
253 (if (fboundp (cdr (cdr x))) 253 (if (fboundp (cdr (cdr x)))
254 (setq retval (format "%s%c" retval (car x)) 254 (setq retval (format "%s%c" retval (car x))
255 num (1+ num))))) 255 num (1+ num)))))