summaryrefslogtreecommitdiff
path: root/emacs/gds-scheme.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/gds-scheme.el')
-rwxr-xr-xemacs/gds-scheme.el2
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)