tools/upload: mark file-local variables as safe
This commit is contained in:
parent
40a2fffac7
commit
e0e63850d4
1 changed files with 10 additions and 0 deletions
|
@ -19,6 +19,16 @@
|
||||||
ssh-deploy-browse-remote-handler
|
ssh-deploy-browse-remote-handler
|
||||||
ssh-deploy-remote-changes-handler)
|
ssh-deploy-remote-changes-handler)
|
||||||
:init
|
: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
|
;; Maybe auto-upload on save
|
||||||
(defun +upload|init-after-save ()
|
(defun +upload|init-after-save ()
|
||||||
(when (and (bound-and-true-p ssh-deploy-root-remote)
|
(when (and (bound-and-true-p ssh-deploy-root-remote)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue