edit-server local variables need permanent-local property about emacs_chrome HOT 2 CLOSED

permanent-local-patch

Index: edit-server.el
===================================================================
RCS file: /home/roland/repository/elisp/19/edit-server.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -p -r1.4 -r1.5
--- edit-server.el  10 Aug 2011 17:14:09 -0000  1.4
+++ edit-server.el  10 Aug 2011 18:26:20 -0000  1.5
@@ -118,29 +118,37 @@ If nil, the new frame will use the exist
 (defvar edit-server-proc 'nil
    "Network process associated with the current edit, made local when
  the edit buffer is created")
+(put 'edit-server-proc 'permanent-local t)

 (defvar edit-server-frame 'nil
    "The frame created for a new edit-server process, made local when
  then edit buffer is created")
+(put 'edit-server-frame 'permanent-local t)

 (defvar edit-server-clients '()
    "List of all client processes associated with the server process.")
+(put 'edit-server-clients 'permanent-local t)

 (defvar edit-server-phase nil
    "Symbol indicating the state of the HTTP request parsing.")
+(put 'edit-server-phase 'permanent-local t)

 (defvar edit-server-received nil
    "Number of bytes received so far in the client buffer.
 Depending on the character encoding, may be different from the buffer length.")
+(put 'edit-server-received 'permanent-local t)

 (defvar edit-server-request nil
    "The HTTP request (GET, HEAD, POST) received.")
+(put 'edit-server-request 'permanent-local t)

 (defvar edit-server-content-length nil
    "The value gotten from the HTTP `Content-Length' header.")
+(put 'edit-server-content-length 'permanent-local t)

 (defvar edit-server-url nil
    "The value gotten from the HTTP `x-url' header.")
+(put 'edit-server-url 'permanent-local t)

 ;; Mode magic
 ;