Don't clear history on ignored commands.

lewang · Jun 14, 2015 · 713eb31 · 713eb31
1 parent 8f3cc94
commit 713eb31
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/command-log-mode.el b/command-log-mode.el
@@ -62,7 +62,9 @@
 (add-hook 'post-self-insert-hook 'clm/recent-history)
 
 (defun clm/zap-recent-history ()
-  (unless (eq this-original-command #'self-insert-command)
+  (unless (or (member this-original-command
+		      clm/log-command-exceptions*)
+	      (eq this-original-command #'self-insert-command))
     (setq clm/recent-history-string "")))
 
 (add-hook 'post-command-hook 'clm/zap-recent-history)