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:20:44 +02:00
parent d3fd146cb2
commit 7bfbdd0c6b
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
viking-mode.el
View File

@@ -207,16 +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)))
(len (length keys))
(first (car keys))
(times 0))
(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
(dolist (k keys)
(if (equal first k)
(setq times (+ times 1))
(throw 'nomore t))))
(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
times)))
;;;;; kill/delete wrappers