X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=5f7aed0980d2241ceb29f973a01ea5f490364c98;hb=e8563b3d9852fdad0637e2a25a22375100b45aa3;hp=6dc9356eef710a8234bbf6ff20e136c7a07b4365;hpb=e61bde32719843a643f003ed0e85914495adc3ee;p=elisp.git

diff --git a/emacs.el b/emacs.el
index 6dc9356..5f7aed0 100644
--- a/emacs.el
+++ b/emacs.el
@@ -123,6 +123,7 @@ uses `load-path' to find it."
       (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
@@ -1223,9 +1224,9 @@ goback argument, go back where we were."
 (load "vc-git")
 
 (defun ff/git-pull-push (universal) (interactive "P")
-       (when universal (async-shell-command "git commit -a -m \"Update\""))
+       (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)