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

Fix GDS utility client startup

Browse source 
* emacs/gds-scheme.el (gds-start-utility-guile): Use buffer-local
  variable gds-client instead of client, as client is actually unbound
  when the process-filter lambda runs.  (i.e. This isn't Scheme code!)
This commit is contained in:
Neil Jerram 2009-08-28 00:29:04 +01:00
parent 1505848425
commit a27173cf78
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
emacs/gds-scheme.el
View file

@ -206,8 +206,7 @@ Emacs to display an error or trap so that the user can debug it."
"-q"
"--debug"
"-c"
code))
(client nil))
code)))
;; Note that this process can be killed automatically on Emacs
;; exit.
(process-kill-without-query proc)
@ -217,17 +216,18 @@ Emacs to display an error or trap so that the user can debug it."
(if (process-buffer proc)
(with-current-buffer (process-buffer proc)
(insert string)
(or client
(or gds-client
(save-excursion
(goto-char (point-min))
(setq client (condition-case nil
(read (current-buffer))
(error nil)))))))))
(setq gds-client
(condition-case nil
(read (current-buffer))
(error nil)))))))))
;; Accept output from the new process until we have its number.
(while (not client)
(while (not (with-current-buffer (process-buffer proc) gds-client))
(accept-process-output proc))
;; Return the new process's client number.
client))
(with-current-buffer (process-buffer proc) gds-client)))
;;;; Evaluating code.