awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/upload: refactor safe-local-variable setters

Browse Source
This commit is contained in:
Henrik Lissner
2018-09-19 23:58:01 -04:00
parent e0e63850d4
commit 25d19514de
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
modules/tools/upload/config.el
View File

@ -20,14 +20,13 @@
ssh-deploy-remote-changes-handler) ssh-deploy-remote-changes-handler)
:init :init
;; Make these safe as file-local variables ;; Make these safe as file-local variables
(dolist (sym '(ssh-deploy-root-local (dolist (sym '((ssh-deploy-root-local . stringp)
ssh-deploy-root-remote (ssh-deploy-root-remote . stringp)
ssh-deploy-async (ssh-deploy-script . functionp)
ssh-deploy-script)) (ssh-deploy-on-explicitly-save . booleanp)
(put sym 'safe-local-variable #'stringp)) (ssh-deploy-async . booleanp)
(put 'ssh-deploy-on-explicitly-save 'safe-local-variable #'booleanp) (ssh-deploy-exclude-list . listp)))
(put 'ssh-deploy-async 'safe-local-variable #'booleanp) (put (car sym) 'safe-local-variable (cdr sym)))
(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 ()