home
·
contact
·
privacy
projects
/
plomvi.el
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
421b0c0
)
Stronger match to vim char deletion and end of line behavior.
author
Christian Heller
<c.heller@plomlompom.de>
Thu, 7 Mar 2019 10:29:16 +0000
(11:29 +0100)
committer
Christian Heller
<c.heller@plomlompom.de>
Thu, 7 Mar 2019 10:29:16 +0000
(11:29 +0100)
plomvi.el
patch
|
blob
|
history
diff --git
a/plomvi.el
b/plomvi.el
index 54a96b4a92953ea9f3bea5dbffcdc2a55e75344b..8dd5117f6bd1907c7e7eb09c51ad11e3aa621a53 100644
(file)
--- a/
plomvi.el
+++ b/
plomvi.el
@@
-163,8
+163,9
@@
Note that this ignores killed rectangles."
(kill-rectangle (region-beginning) (region-end)))
((use-region-p)
(kill-region (region-beginning) (region-end)))
(kill-rectangle (region-beginning) (region-end)))
((use-region-p)
(kill-region (region-beginning) (region-end)))
- (t
- (delete-char 1))))
+ ((not (= (line-beginning-position) (line-end-position)))
+ (delete-char 1)
+ (if (not (= (point) (line-beginning-position))) (backward-char)))))
(defun plomvi-rectangle-mark()
"Start marked rectangle, move right one char so a single column is visible."
(defun plomvi-rectangle-mark()
"Start marked rectangle, move right one char so a single column is visible."
@@
-219,6
+220,12
@@
Note that this ignores killed rectangles."
(interactive)
(plomvi-mode -1))
(interactive)
(plomvi-mode -1))
+(defun plomvi-end-of-line()
+ "Move to end of line exclusive line break char."
+ (interactive)
+ (end-of-line)
+ (if (not (= (point) (line-beginning-position))) (backward-char)))
+
(defvar plomvi-mode-basic-map (make-sparse-keymap)
"Keymap for `plomvi-mode' on read-only buffers.
(defvar plomvi-mode-basic-map (make-sparse-keymap)
"Keymap for `plomvi-mode' on read-only buffers.
@@
-243,7
+250,7
@@
become available to be used for other purposes.")
(define-key plomvi-mode-basic-map (kbd "g") 'plomvi-g-map)
(define-key plomvi-g-map (kbd "g") 'beginning-of-buffer)
(define-key plomvi-mode-basic-map (kbd "G") 'plomvi-goto-line)
(define-key plomvi-mode-basic-map (kbd "g") 'plomvi-g-map)
(define-key plomvi-g-map (kbd "g") 'beginning-of-buffer)
(define-key plomvi-mode-basic-map (kbd "G") 'plomvi-goto-line)
-(define-key plomvi-mode-basic-map (kbd "$") 'end-of-line)
+(define-key plomvi-mode-basic-map (kbd "$") '
plomvi-
end-of-line)
(define-key plomvi-mode-basic-map (kbd "0") 'plomvi-prefix-zero-or-line-start)
(define-key plomvi-mode-basic-map (kbd "1") 'digit-argument)
(define-key plomvi-mode-basic-map (kbd "2") 'digit-argument)
(define-key plomvi-mode-basic-map (kbd "0") 'plomvi-prefix-zero-or-line-start)
(define-key plomvi-mode-basic-map (kbd "1") 'digit-argument)
(define-key plomvi-mode-basic-map (kbd "2") 'digit-argument)