summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emacs/ChangeLog5
-rwxr-xr-xemacs/gds-scheme.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/emacs/ChangeLog b/emacs/ChangeLog
index 710f80e45..21c354c7b 100644
--- 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 8fb4ca2af..134e80592 100755
--- 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)