diff options
Diffstat (limited to 'emacs/gds-scheme.el')
-rwxr-xr-x | emacs/gds-scheme.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |