tools/upload: mark file-local variables as safe

This commit is contained in:
Henrik Lissner 2018-09-19 23:51:56 -04:00
parent 40a2fffac7
commit e0e63850d4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -19,6 +19,16 @@
ssh-deploy-browse-remote-handler
ssh-deploy-remote-changes-handler)
:init
;; Make these safe as file-local variables
(dolist (sym '(ssh-deploy-root-local
ssh-deploy-root-remote
ssh-deploy-async
ssh-deploy-script))
(put sym 'safe-local-variable #'stringp))
(put 'ssh-deploy-on-explicitly-save 'safe-local-variable #'booleanp)
(put 'ssh-deploy-async 'safe-local-variable #'booleanp)
(put 'ssh-deploy-exclude-list 'safe-local-variable #'listp)
;; Maybe auto-upload on save
(defun +upload|init-after-save ()
(when (and (bound-and-true-p ssh-deploy-root-remote)