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 issue#3: delete word at point if point is on the beginning of word

Browse Source
This commit is contained in:
git@daemon.de
2016-05-25 11:07:36 +02:00
parent 8a894f92dd
commit 233d45bf4f
1 changed files with 4 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
viking-mode.el
View File

@@ -19,7 +19,7 @@
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
;; USA ;; USA
;; Version: 0.05 ;; Version: 0.06
;; Author: T.v.Dein <tlinden@cpan.org> ;; Author: T.v.Dein <tlinden@cpan.org>
;; Keywords: kill delete ;; Keywords: kill delete
;; URL: https://github.com/tlinden/viking-mode ;; URL: https://github.com/tlinden/viking-mode
@@ -170,7 +170,7 @@
;;; Code: ;;; Code:
;;;; Consts ;;;; Consts
(defconst viking-mode-version "0.05" "Viking Mode version.") (defconst viking-mode-version "0.06" "Viking Mode version.")
(defgroup viking-mode nil (defgroup viking-mode nil
"Kill first, ask later - an emacs mode for killing things quickly" "Kill first, ask later - an emacs mode for killing things quickly"
@@ -337,21 +337,6 @@ should be a point-moving function."
;;;;; Public interactive kill functions ;;;;; Public interactive kill functions
(defun --viking-kill-word ()
"If point is on space or newline, delete those (like M-SPC), else kill word at point.
If 'viking-greedy-kill is t, clean up spaces and newlines afterwards."
(interactive)
(if (viking--point-is-in-space)
(viking--kill-space)
(progn
(if (eq (point) (line-beginning-position))
(viking--kill-word-right)
(viking--kill-word-at-point)
)
(when viking-greedy-kill ;; clean up afterwards as well
(viking--kill-space))
)))
(defun viking-kill-word () (defun viking-kill-word ()
"If point is on space or newline, delete those (like M-SPC), else kill word at point. "If point is on space or newline, delete those (like M-SPC), else kill word at point.
If 'viking-greedy-kill is t, clean up spaces and newlines afterwards." If 'viking-greedy-kill is t, clean up spaces and newlines afterwards."
@@ -363,7 +348,8 @@ If 'viking-greedy-kill is t, clean up spaces and newlines afterwards."
(if (viking--point-is-in-space) (if (viking--point-is-in-space)
(viking--kill-space) (viking--kill-space)
(progn (progn
(if (eq (point) (line-beginning-position)) (if (or (eq (point) (line-beginning-position))
(looking-back "[ \t]"))
(viking--kill-word-right) (viking--kill-word-right)
(viking--kill-word-at-point) (viking--kill-word-at-point)
) )