diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2006-11-13 22:21:36 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2006-11-13 22:21:36 +0000 |
| commit | 19b16cd0551758d5f9103eb90126afbdb60f7461 (patch) | |
| tree | 1c601c91bc24e8f5d9310f8d191f493ea0dc1d75 /emacs | |
| parent | d9f71a0754d8d01804028700e3f6adce00e7f44e (diff) | |
| download | guile-19b16cd0551758d5f9103eb90126afbdb60f7461.tar.gz | |
*** empty log message ***
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/ChangeLog | 5 | ||||
| -rwxr-xr-x | emacs/gds-scheme.el | 2 |
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) |