瀏覽代碼

Fix edit-server-kill-client.

The list edit-server-clients holds processes, not buffers.
Wei Hu 14 年之前
父節點
當前提交
912e471893
共有 1 個文件被更改,包括 1 次插入1 次删除
  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.