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

fix #3: if last kill function is not viking-kill-buffer, repeat it.

Browse Source
This commit is contained in:
TLINDEN
2016-05-28 13:15:23 +02:00
parent 7675a3c395
commit a1d84ede79
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
viking-mode.el
View File

@@ -132,7 +132,7 @@
;; The kill functions to be called in a row can be customized as well. The ;; The kill functions to be called in a row can be customized as well. The
;; default is this list: ;; default is this list:
;; (setq vikink-kill-functions (list 'viking-kill-word ;; (setq viking-kill-functions (list 'viking-kill-word
;; 'viking-kill-line-from-point ;; 'viking-kill-line-from-point
;; 'viking-kill-line ;; 'viking-kill-line
;; 'viking-kill-paragraph ;; 'viking-kill-paragraph
@@ -385,8 +385,12 @@ should be a point-moving function."
(defun viking--next-killf() (defun viking--next-killf()
"Return next kill function, update 'viking--current-killf and "Return next kill function, update 'viking--current-killf and
'viking--last-killf." 'viking--last-killf."
(setq viking--last-killf (pop viking--current-killf)) (if (and (eq (length viking--current-killf) 1)
viking--last-killf) (not (equal (car viking--current-killf) 'viking-kill-buffer)))
;; just return, do not pop
(car viking--current-killf)
;; else: remove element from the front and return it
(pop viking--current-killf)))
(defun viking--killw (count) (defun viking--killw (count)