* rudel-session-initiation.el (rudel-session-initiation-advertise):

fixed use of `some'
smithzvk · Nov 29, 2009 · ea2dbd0 · ea2dbd0
1 parent 1f786e4
commit ea2dbd0
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/rudel-session-initiation.el b/rudel-session-initiation.el
@@ -103,15 +103,15 @@ backend:
 
 The programmatic equivalent looks like this:
 
-(add-to-list 
+(add-to-list
  'rudel-configured-sessions
  (list :name            \"myserver\"
        :backend         'obby
        :host            \"my.sobby-server.net\"
        :username        user-login-name
        ;; Use M-x list-colors-display to see color choices.
        :color           \"white\"
-       :encryption      t 
+       :encryption      t
        :port            6522
        ;; empty string means no password
        :global-password \"\"
@@ -232,12 +232,14 @@ advertise the session."
   (multiple-value-bind (primary-backends fallback-backends)
       (rudel-session-initiation-suitable-backends 'advertise)
     (or ;; Try to advertise the session using primary backends.
-        (some (mapcar (lambda (backend)
+        (some #'identity
+	      (mapcar (lambda (backend)
 			(rudel-advertise backend info))
 		      (mapcar #'cdr primary-backends)))
 	;; When the primary backends fail, try to advertise the
 	;; session using fallback backends
-	(some (mapcar (lambda (backend)
+	(some #'identity
+	      (mapcar (lambda (backend)
 			(rudel-advertise backend info))
 		      (mapcar #'cdr fallback-backends)))))
   )