mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Neil Jerram 2006-11-13 22:21:36 +00:00
parent d9f71a0754
commit 19b16cd055
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
emacs/ChangeLog
View file

@ -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.

2
emacs/gds-scheme.el
View file

@ -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)