(ff/compile-when-needed (concat name ".el"))
(mapc (lambda (dir)
(let* ((src (concat dir "/" name)))
+ ;; (message "Compiling " scr) ;;***********
(when (file-newer-than-file-p src (concat src "c"))
(if (let ((byte-compile-verbose nil))
(condition-case nil
(load "vc-git")
(defun ff/git-pull-push (universal) (interactive "P")
- (when universal (shell-command "git commit -a -m \"Update\"" nil))
+ (when universal (shell-command "git commit -a -m \"Update.\"" nil))
(message "git pull / push ...")
- (async-shell-command "git pull && git push" nil)
+ (async-shell-command "git remote get-url origin && git pull && git push" nil)
)
(defun ff/git-pull () (interactive)