zzkt/ethermacs
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

Pay attention to distractions

Browse source
This commit is contained in:
nik gaffney 2020-10-17 22:06:22 +02:00
parent a9ed8fa679
commit 0f30176fb7
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
etherpad.el
View file

@ -213,7 +213,7 @@ Should be available at https://<host>/api/1/openapi.json"
(message "pad has been synced (at revision %s)" etherpad--local-pad-revision))))) (message "pad has been synced (at revision %s)" etherpad--local-pad-revision)))))
(defun etherpad-before-change-function (begin end) (defun etherpad-before-change-function (_begin _end)
"Function to run before etherpad update (buffer BEGIN and END). "Function to run before etherpad update (buffer BEGIN and END).
should be specific to minor mode and buffer local." should be specific to minor mode and buffer local."
(let* ((remote-revision (etherpad--api-pad-revision etherpad--local-pad-name)) (let* ((remote-revision (etherpad--api-pad-revision etherpad--local-pad-name))
@ -221,7 +221,7 @@ should be specific to minor mode and buffer local."
(when (> remote-revision local-revision) (when (> remote-revision local-revision)
(etherpad-update)))) (etherpad-update))))
(defun etherpad-after-change-function (begin end length) (defun etherpad-after-change-function (_begin _end _length)
"Function to run after buuffer has changed (buffer BEGIN, END & LENGTH). "Function to run after buuffer has changed (buffer BEGIN, END & LENGTH).
should be specific to minor mode and buffer local." should be specific to minor mode and buffer local."
(etherpad-save)) (etherpad-save))
@ -239,8 +239,8 @@ should be specific to minor mode and buffer local."
"Enable autosync." "Enable autosync."
(interactive) (interactive)
(message "enabled autosync with etherpad server.") (message "enabled autosync with etherpad server.")
(make-local-variable #'after-change-functions) (make-local-variable 'after-change-functions)
(make-local-variable #'before-change-functions) (make-local-variable 'before-change-functions)
(add-hook 'after-change-functions #'etherpad-after-change-function) (add-hook 'after-change-functions #'etherpad-after-change-function)
(add-hook 'before-change-functions #'etherpad-before-change-function)) (add-hook 'before-change-functions #'etherpad-before-change-function))
@ -265,6 +265,6 @@ should be specific to minor mode and buffer local."
(interactive) (interactive)
(remove-hook 'auto-save-hook #'etherpad-save)) (remove-hook 'auto-save-hook #'etherpad-save))
(provide 'etherpad)
(provide 'etherpad)
;;; etherpad.el ends here ;;; etherpad.el ends here