Skip to content
Snippets Groups Projects
Commit 3dcc9958 authored by Qiantan Hong's avatar Qiantan Hong
Browse files

cleanup

parent b421e4e6
No related branches found
No related tags found
No related merge requests found
......@@ -1789,24 +1789,6 @@ Handle received STRING from PROCESS."
(pushash crdt--user-id new-site-id crdt--site-id-table)
new-site-id))
(defun crdt-proxy-ambient-read (message)
(memq (car message) '(get)))
(defun crdt-proxy-ambient-overlay (message)
(memq (car message) '(overlay-add overlay-move overlay-remove overlay-put)))
(defun crdt-proxy-ambient-write (message)
(memq (car message) '(insert delete)))
(defun crdt-proxy-ambient-remote-command (message)
(memq (car message) '(command)))
(defun crdt-proxy-ambient-variable (message)
(memq (car message) '(var)))
(defun crdt-proxy-ambient-process (message)
(memq (car message) '(process process-mark)))
;;; UI commands
(defvar crdt--ephemeral-advices nil)
......@@ -1951,10 +1933,7 @@ of the current buffer."
`(("Port: " (number-to-string port) ,(crdt--settings-make-ensure-type 'numberp))
("Session Name: " ,session-name ,(crdt--settings-make-ensure-nonempty session-name))
("Password: " "")
("Display Name: " ,crdt-default-name)
("Default Proxies: "
"(crdt-proxy-ambient-read crdt-proxy-ambient-write crdt-proxy-ambient-remote-command)"
,(crdt--settings-make-ensure-type 'listp)))))))))
("Display Name: " ,crdt-default-name))))))))
(cl-defun crdt-stop-share-buffer (&optional (session crdt--session)
(network-name crdt--buffer-network-name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment