scip/viking-mode
1
0
Fork 0
mirror of https://codeberg.org/scip/viking-mode.git synced 2025-12-16 20:10:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

added some commentary to viking-last-key-repeats, besser is das

Browse Source
This commit is contained in:
TLINDEN
2016-05-15 15:22:37 +02:00
parent 7bfbdd0c6b
commit 4313dd0b44
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
viking-mode.el
View File

@@ -207,15 +207,15 @@ should be a point-moving function."
(defun viking-last-key-repeats ()
"Returns how many times the last key has been pressed as integer."
(interactive)
(let* ((keys (reverse (append (recent-keys) nil))) ;; list of last keys pressed, last @0
(pressed (car keys)) ;; the very last key pressed, i.e. the one bound to this defun
(times 0)) ;; how many times that key have been pressed
(let* ((keys (reverse (append (recent-keys) nil))) ;; list of last keys pressed, last @0
(pressed (car keys)) ;; the very last key pressed, i.e. the one bound to this defun
(times 0)) ;; how many times that key have been pressed
(progn
(catch 'nomore ;; don't iterate endless
(dolist (k keys) ;; loop over the key list, (car keys) is the most recent, due to 'reverse above
(if (equal pressed k) ;; one more of the same key pressed in a row
(setq times (+ times 1)) ;; register
(throw 'nomore t)))) ;; another key, break the loop and rerturn the count
(throw 'nomore t)))) ;; another key, break the loop and return the count
times)))
;;;;; kill/delete wrappers