From 20f719016de76af9974b5bf83b485a58dc1d0dad Mon Sep 17 00:00:00 2001 From: Tim Visher Date: Wed, 23 Nov 2011 10:58:12 -0500 Subject: [PATCH] Mini-buffer entry is no longer an issue. EOM --- emacs/vimgolf.el | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/emacs/vimgolf.el b/emacs/vimgolf.el index 50e2c7f..15cb598 100644 --- a/emacs/vimgolf.el +++ b/emacs/vimgolf.el @@ -108,7 +108,6 @@ with `C-c C-v` prefixes to help in playing VimGolf. (defun vimgolf-capturable-keystroke-p () (not (or executing-kbd-macro - (< 0 (recursion-depth)) (member this-command '(digit-argument negative-argument @@ -147,17 +146,16 @@ unknown key sequence was entered).") (defun vimgolf-refresh-keystroke-log () "Refresh the contents of the keystrokes log buffer." (let ((deactivate-mark nil)) - (when (not (< 0 (recursion-depth))) - (with-current-buffer (get-buffer-create vimgolf-keystrokes-buffer-name) - (erase-buffer) - (insert (format "Keystrokes (%d):\n\n" (vimgolf-count-keystrokes)) - (mapconcat 'key-description (mapcar 'car vimgolf-keystrokes) " ") - "\n\nFull command log:\n\n") - (dolist (entry vimgolf-keystrokes) - (insert (key-description (car entry))) - (insert " ") - (princ (cdr entry) (current-buffer)) - (insert "\n")))))) + (with-current-buffer (get-buffer-create vimgolf-keystrokes-buffer-name) + (erase-buffer) + (insert (format "Keystrokes (%d):\n\n" (vimgolf-count-keystrokes)) + (mapconcat 'key-description (mapcar 'car vimgolf-keystrokes) " ") + "\n\nFull command log:\n\n") + (dolist (entry vimgolf-keystrokes) + (insert (key-description (car entry))) + (insert " ") + (princ (cdr entry) (current-buffer)) + (insert "\n"))))) (defun vimgolf-enable-capture (enable) "Enable keystroke logging if `ENABLE' is non-nil otherwise disable it."