From: Francois Fleuret <francois@fleuret.org>
Date: Wed, 2 Aug 2017 06:05:46 +0000 (+0200)
Subject: Update.
X-Git-Url: https://ant.fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=dec839751ebc5e22f91748a6b225955765176937;p=elisp.git

Update.
---

diff --git a/emacs.el b/emacs.el
index 1d2d66f..037615f 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1202,6 +1202,7 @@ goback argument, go back where we were."
        )
 
 (defun ff/git-pull () (interactive)
+       (message "git pull ...")
        (shell-command "git pull" nil)
        )
 
@@ -2117,7 +2118,7 @@ a file in /tmp"
 
 (setq compilation-read-command t
       compile-command "make -j -k"
-      compile-history '("make clean" "make DEBUG=yes -j -k" "make -j -k")
+      ;; compile-history '("make clean" "make DEBUG=yes -j -k" "make -j -k")
       )
 
 (defun ff/universal-compile (universal) (interactive "P")
@@ -2634,6 +2635,14 @@ with a time tag, and save this file"
 (setq ff/map (make-sparse-keymap))
 (define-key global-map [(control \`)] ff/map)
 
+;; (defun ff/start-stop-macro-recording () (interactive)
+  ;; (if (or defining-kbd-macro executing-kbd-macro)
+      ;; (kmacro-end-macro)
+    ;; (kmacro-start-macro))
+  ;; )
+
+;; (define-key global-map [(shift return)] 'ff/start-stop-macro-recording)
+
 (unless window-system
   ;; (define-key global-map [(control @)] ff/map)
   (define-key global-map [(meta O) \`] ff/map)