*** empty log message ***

diff --git a/emacs/ChangeLog b/emacs/ChangeLog
index 710f80e..21c354c 100644 (file)
--- a/emacs/ChangeLog
+++ b/emacs/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-02  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * gds-scheme.el (gds-choose-client): Change assq to memq, so that
+       the mapcar really constructs a list of available clients.
+
 2006-10-14  Neil Jerram  <neil@ossau.uklinux.net>
 
        * gds.el (gds-socket-type-alist): New.

diff --git a/emacs/gds-scheme.el b/emacs/gds-scheme.el
index 8fb4ca2..134e805 100755 (executable)
--- a/emacs/gds-scheme.el
+++ b/emacs/gds-scheme.el
@@ -158,7 +158,7 @@ Emacs to display an error or trap so that the user can debug it."
         (default nil))
     ;; Prepare a table containing all current clients.
     (mapcar (lambda (client-info)
-               (setq table (cons (cons (cadr (assq 'name client-info))
+               (setq table (cons (cons (cadr (memq 'name client-info))
                                       (car client-info))
                                 table)))
              gds-client-info)