Browse files

Mini-buffer entry is no longer an issue. EOM

  • Loading branch information...
1 parent 32315a1 commit 20f719016de76af9974b5bf83b485a58dc1d0dad @timvisher committed Nov 23, 2011
Showing with 10 additions and 12 deletions.
  1. +10 −12 emacs/vimgolf.el
View
22 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."

0 comments on commit 20f7190

Please sign in to comment.