projects
/
elisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor comment change.
[elisp.git]
/
emacs.el
diff --git
a/emacs.el
b/emacs.el
index
6dc9356
..
5f7aed0
100644
(file)
--- 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)))
(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
(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")
(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 ...")
(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)
)
(defun ff/git-pull () (interactive)