Przeglądaj źródła

Fix edit-server-kill-client.

The list edit-server-clients holds processes, not buffers.
Wei Hu 14 lat temu
rodzic
commit
912e471893
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      edit-server.el

+ 1 - 1
edit-server.el

@@ -344,7 +344,7 @@ and its buffer are killed with `edit-server-kill-client'."
   (let ((procbuf (process-buffer proc)))
     (delete-process proc)
     (kill-buffer procbuf)
-    (setq edit-server-clients (delq procbuf edit-server-clients))))
+    (setq edit-server-clients (delq proc edit-server-clients))))
 
 (defun edit-server-done (&optional abort nokill)
   "Finish editing: send HTTP response back, close client and editing buffers.